diff options
| author | Nick White <git@njw.me.uk> | 2011-09-07 22:32:08 +0100 |
|---|---|---|
| committer | Nick White <git@njw.me.uk> | 2011-09-07 22:32:08 +0100 |
| commit | 2b57396a362a70d7a1cae36a246e682181b5f023 (patch) | |
| tree | 03796bddf691bc0efebbb31d041bafec580dcf40 /gui.tcl | |
| parent | 534ee0b4c15a1ba2ad9fe8522a341154898beeac (diff) | |
Add getxbookgui to Makefile etc
Diffstat (limited to 'gui.tcl')
| -rwxr-xr-x | gui.tcl | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/gui.tcl b/gui.tcl deleted file mode 100755 index 08d3f04..0000000 --- a/gui.tcl +++ /dev/null @@ -1,24 +0,0 @@ -#!/usr/bin/tclsh -# See COPYING file for copyright and license details. -package require Tk - -set bin [list getgbook getabook] - -proc go {} { - set cmd "[.bin get [.bin curselection]] [.id get]" - set out [open "|$cmd" "r"] - while {![eof $out]} { - .txt insert end [gets $out] - .txt insert end "\n" - update - } -} - -label .lab -text "book id" -entry .id -listbox .bin -listvariable bin -exportselection 0 -.bin selection set 0 -button .dl -text "download" -command go -text .txt - -pack .lab .id .bin .dl .txt |