From 2b57396a362a70d7a1cae36a246e682181b5f023 Mon Sep 17 00:00:00 2001
From: Nick White <git@njw.me.uk>
Date: Wed, 7 Sep 2011 22:32:08 +0100
Subject: Add getxbookgui to Makefile etc

---
 gui.tcl | 24 ------------------------
 1 file changed, 24 deletions(-)
 delete mode 100755 gui.tcl

(limited to 'gui.tcl')

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
-- 
cgit v1.2.3