diff options
Diffstat (limited to 'getxbookgui')
-rwxr-xr-x | getxbookgui | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/getxbookgui b/getxbookgui deleted file mode 100755 index 56b6e63..0000000 --- a/getxbookgui +++ /dev/null @@ -1,30 +0,0 @@ -#!/usr/bin/tclsh -# See COPYING file for copyright and license details. -package require Tk - -set bin [list getgbook getabook] - -proc go {} { - if { [.id get] == "" } { return } - set cmd "[.bin get [.bin curselection]] [.id get]" - .dl configure -state disabled -text "downloading" - update - set out [open "|$cmd 2>@1" "r"] - while {![eof $out]} { - set a [gets $out] - if { $a != "" } { .st configure -text $a } - update - } - .dl configure -state normal -text "download" - .st configure -text "" -} - -label .lab -text "book id" -entry .id -listbox .bin -listvariable bin -exportselection 0 -.bin selection set 0 -button .dl -text "download" -command go -label .st -relief sunken -width 20 - -pack .lab .id .bin .dl .st -bind . <Return> go |