diff options
| author | Nick White <git@njw.me.uk> | 2011-09-23 19:40:07 +0100 |
|---|---|---|
| committer | Nick White <git@njw.me.uk> | 2011-09-23 19:40:07 +0100 |
| commit | 3a8af67794dff90aa33031ca3f9865272ddf0d83 (patch) | |
| tree | 97f5571b8ca39b738d868d51bf9183c9c7a9845f | |
| parent | 107d013df904b61fce0aaaf40d25d7d900861792 (diff) | |
Update gui a little
| -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" |