summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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"