Add basic tcl/tk gui

2 files changed, 25 insertions, 0 deletions

diff --git a/getgbook.c b/getgbook.c
index d1d6e4a..862d90c 100644
--- a/getgbook.c
+++ b/getgbook.c
@@ -128,6 +128,7 @@ int getpage(Page *page)
 	}
 
 	printf("%d downloaded\n", page->num);
+	fflush(stdout);
 	return 0;
 }
 
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