diff options
| author | Nick White <git@njw.me.uk> | 2012-04-21 16:03:40 +0100 |
|---|---|---|
| committer | Nick White <git@njw.me.uk> | 2012-04-21 16:03:40 +0100 |
| commit | accf901e2858fa86811f8fa405fb0bb45ce48347 (patch) | |
| tree | bb786ca7c8c9aa5f18066b0a27af9202252597f1 | |
| parent | 903eec3fd54f5fb2928131c8e6f51a9cfd9026b6 (diff) | |
Regularise capitalisation in gui
| -rwxr-xr-x | getxbookgui.tcl | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/getxbookgui.tcl b/getxbookgui.tcl index a587ea0..69ae9c2 100755 --- a/getxbookgui.tcl +++ b/getxbookgui.tcl @@ -2,9 +2,9 @@ # See COPYING file for copyright and license details. package require Tk -set bins {{getgbook "book id" "Google\nBook Preview"} \ - {getabook "isbn 10" "Amazon Look\nInside This Book"} \ - {getbnbook "isbn 13" "Barnes & Noble\nBook Viewer"}} +set bins {{getgbook "Book ID" "Google\nBook Preview"} \ + {getabook "ISBN 10" "Amazon Look\nInside This Book"} \ + {getbnbook "ISBN 13" "Barnes & Noble\nBook Viewer"}} set binselected 0 set dling 0 set manual 0 @@ -18,9 +18,9 @@ proc updateStatus {chan} { if { $a != "" } { .st configure -text $a } } else { if { ! [catch {close $chan}] } { - .st configure -text "[.input.id get] done" + .st configure -text "[.input.id get] Done" } - .dl configure -state normal -text "download" + .dl configure -state normal -text "Download" set dling 0 } } @@ -30,7 +30,7 @@ proc go {} { if { [.input.id get] == "" } { return } set cmd "[lindex [lindex $bins $binselected] 0] [.input.id get]" set dling 1 - .dl configure -state disabled -text "downloading" + .dl configure -state disabled -text "Downloading" .st configure -text "" set out [open "|$cmd 2>@1" "r"] fileevent $out readable [list updateStatus $out] @@ -96,7 +96,7 @@ for {set i 0} {$i < [llength $bins]} {incr i} { } .binfr.$binselected invoke -button .dl -text "download" -command go +button .dl -text "Download" -command go label .st pack .input.lab -side left |