summaryrefslogtreecommitdiff
path: root/getxbookgui
diff options
context:
space:
mode:
authorNick White <git@njw.me.uk>2011-09-23 19:40:07 +0100
committerNick White <git@njw.me.uk>2011-09-23 19:40:07 +0100
commit3a8af67794dff90aa33031ca3f9865272ddf0d83 (patch)
tree97f5571b8ca39b738d868d51bf9183c9c7a9845f /getxbookgui
parent107d013df904b61fce0aaaf40d25d7d900861792 (diff)
Update gui a little
Diffstat (limited to 'getxbookgui')
-rwxr-xr-xgetxbookgui5
1 files changed, 3 insertions, 2 deletions
diff --git a/getxbookgui b/getxbookgui
index e476ca0..504b6bb 100755
--- a/getxbookgui
+++ b/getxbookgui
@@ -1,8 +1,8 @@
-#!/usr/bin/tclsh
+#!/usr/bin/tclsh8.5
# See COPYING file for copyright and license details.
package require Tk
-set bin [list getgbook]
+set bin [list getgbook getabook]
proc go {} {
set cmd "[.bin get [.bin curselection]] [.id get]"
@@ -12,6 +12,7 @@ proc go {} {
.txt insert end "\n"
update
}
+ .txt insert end "done"
}
label .lab -text "book id"