From 3a8af67794dff90aa33031ca3f9865272ddf0d83 Mon Sep 17 00:00:00 2001 From: Nick White Date: Fri, 23 Sep 2011 19:40:07 +0100 Subject: Update gui a little --- getxbookgui | 5 +++-- 1 file 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" -- cgit v1.2.3