aboutsummaryrefslogtreecommitdiff
path: root/desiredata/src/desire.tk
diff options
context:
space:
mode:
Diffstat (limited to 'desiredata/src/desire.tk')
-rw-r--r--desiredata/src/desire.tk26
1 files changed, 2 insertions, 24 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