Add basic tcl/tk gui

1 files changed, 24 insertions, 0 deletions

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