diff options
| author | N.N. <matju@users.sourceforge.net> | 2009-06-03 21:27:18 +0000 |
|---|---|---|
| committer | N.N. <matju@users.sourceforge.net> | 2009-06-03 21:27:18 +0000 |
| commit | 4f6a4cf91c817ffa2bf60241ca940544d0da7e54 (patch) | |
| tree | 15e89e2a882bba7fc17b2a149c56f9e9fc83a24f /desiredata/src/desire.tk | |
| parent | dff5e27fa631ca30f77b5eb1d64a93fbe356b1e3 (diff) | |
move readline stuff out
svn path=/trunk/; revision=11665
Diffstat (limited to 'desiredata/src/desire.tk')
| -rw-r--r-- | desiredata/src/desire.tk | 26 |
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 |