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 ++------------------------
 1 file changed, 2 insertions(+), 24 deletions(-)

(limited to 'desiredata/src/desire.tk')

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