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 /getxbookgui | |
parent | 534ee0b4c15a1ba2ad9fe8522a341154898beeac (diff) |
Add getxbookgui to Makefile etc
Diffstat (limited to 'getxbookgui')
-rwxr-xr-x | getxbookgui | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/getxbookgui b/getxbookgui new file mode 100755 index 0000000..08d3f04 --- /dev/null +++ b/getxbookgui @@ -0,0 +1,24 @@ +#!/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 |