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/desire.tk  | 26 ++------------------------
 desiredata/src/unused.tcl | 27 ++++++++++++++++++++++++++-
 2 files changed, 28 insertions(+), 25 deletions(-)

diff --git a/desiredata/src/desire.tk b/desiredata/src/desire.tk
index 86efe50c..8aa6b0aa 100644
--- a/desiredata/src/desire.tk
+++ b/desiredata/src/desire.tk
@@ -8697,30 +8697,8 @@ def OopsDialogue damn {} {$self ok}
 
 #----------------------------------------------------------------
 
-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
-}
+set main [Client new]
+set window_list [list $main]
 
 def Canvas auto_test {} {
 	$self editmode= 1
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