diff options
| -rwxr-xr-x | getxbookgui | 5 |
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" |