Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26239
Modified Files: Tag: desiredata desire.tk Log Message: switch text widget colour to TextBox's "bgedit"; removed default opening of keyboard view and event history view.
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.230 retrieving revision 1.1.2.600.2.231 diff -C2 -d -r1.1.2.600.2.230 -r1.1.2.600.2.231 *** desire.tk 13 Jul 2007 22:32:10 -0000 1.1.2.600.2.230 --- desire.tk 14 Jul 2007 01:00:50 -0000 1.1.2.600.2.231 *************** *** 1100,1105 **** Listener new .pd " Pd Server" pd_eval } ! wm geometry .[$self keyboard_view] -0+0 ! wm geometry .[$self event_history_view] -0-0 }
--- 1100,1105 ---- Listener new .pd " Pd Server" pd_eval } ! #wm geometry .[$self keyboard_view] -0+0 ! #wm geometry .[$self event_history_view] -0-0 }
*************** *** 1978,1982 **** }
- def Canvas insertxy {} {return [list $@insert_x $@insert_y]}
--- 1978,1981 ---- *************** *** 2263,2268 **** if {[string length $line] > $width} {set width [string length $line]} } ! # in the future, this could have -bg [$self look bgedit] ! text $t -height $nl -width $width -relief flat -bg [$self look bg] -borderwidth 0 \ -highlightthickness 0 -font $font_str -fg [$self look fg] -insertbackground [$self look fg] bind $t <Key> "$self resize %K; $self key_input %W %x %y %K %A 0" --- 2262,2266 ---- if {[string length $line] > $width} {set width [string length $line]} } ! text $t -height $nl -width $width -relief flat -bg [$self look bgedit] -borderwidth 0 \ -highlightthickness 0 -font $font_str -fg [$self look fg] -insertbackground [$self look fg] bind $t <Key> "$self resize %K; $self key_input %W %x %y %K %A 0"