From 89c7c8fe61bb7a1b3059e43b96a97d80df2d9835 Mon Sep 17 00:00:00 2001
From: Nick White <git@njw.me.uk>
Date: Wed, 31 Aug 2011 18:24:59 +0100
Subject: Add basic tcl/tk gui

---
 gui.tcl | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 gui.tcl

(limited to 'gui.tcl')

diff --git a/gui.tcl b/gui.tcl
new file mode 100644
index 0000000..08d3f04
--- /dev/null
+++ b/gui.tcl
@@ -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
-- 
cgit v1.2.3