From 4f6a4cf91c817ffa2bf60241ca940544d0da7e54 Mon Sep 17 00:00:00 2001
From: "N.N." <matju@users.sourceforge.net>
Date: Wed, 3 Jun 2009 21:27:18 +0000
Subject: move readline stuff out

svn path=/trunk/; revision=11665
---
 desiredata/src/unused.tcl | 27 ++++++++++++++++++++++++++-
 1 file changed, 26 insertions(+), 1 deletion(-)

(limited to 'desiredata/src/unused.tcl')

diff --git a/desiredata/src/unused.tcl b/desiredata/src/unused.tcl
index 29f2b551..98601545 100644
--- a/desiredata/src/unused.tcl
+++ b/desiredata/src/unused.tcl
@@ -1,3 +1,29 @@
+if {$tk} {
+	set main [Client new]
+	set window_list [list $main]
+} else {
+	set cmdline(console) 0
+	#foreach dir $auto_path {
+	#	set file $dir/libtclreadline[info sharedlibextension]
+	#	puts "trying $file"
+	#	if {![catch {load $file}]} {puts "found tclreadline !"}
+	#}
+	package require tclreadline
+	proc ::tclreadline::prompt1 {} {return "desire> "}
+	::tclreadline::Loop
+	#while {1} {
+	#	#set line [::tclreadline::readline read]
+	#	puts -nonewline "desire> "
+	#	flush stdout
+	#	set line [gets stdin]
+	#	if {[catch {puts [eval $line]}]} {
+	#		puts "error: $::errorInfo"
+	#	}
+	#}
+	#vwait foo
+}
+
+
 #lappend ::auto_path /usr/local/lib/graphviz
 catch {package require Tcldot}
 def Canvas graphviz_sort {} {
@@ -50,4 +76,3 @@ def Canvas graphviz_sort {} {
 		}
 	}
 }
-
-- 
cgit v1.2.1