Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15430
Modified Files: Tag: desiredata desire.tk Log Message: some more GOP fixes
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.121 retrieving revision 1.1.2.600.2.122 diff -C2 -d -r1.1.2.600.2.121 -r1.1.2.600.2.122 *** desire.tk 20 Dec 2006 00:50:30 -0000 1.1.2.600.2.121 --- desire.tk 20 Dec 2006 01:24:35 -0000 1.1.2.600.2.122 *************** *** 2124,2128 ****
def TextBox draw_edit {} { ! set c [$@canvas widget] if {[lsearch [$@canvas selection] $self] < 0} {$@canvas selection+= $self} set t $c.${self}text --- 2124,2128 ----
def TextBox draw_edit {} { ! set c [[$self get_canvas] widget] if {[lsearch [$@canvas selection] $self] < 0} {$@canvas selection+= $self} set t $c.${self}text *************** *** 2164,2168 ****
def TextBox resize {key} { ! set c [$@canvas widget] set t $c.${self}text $self long_line --- 2164,2168 ----
def TextBox resize {key} { ! set c [[$self get_canvas] widget] set t $c.${self}text $self long_line *************** *** 2201,2205 **** #checks which line should be used as the width of the objectbox def TextBox long_line {} { ! set c [$@canvas widget] set t $c.${self}text set lines [lindex [$t configure -height] 4] --- 2201,2205 ---- #checks which line should be used as the width of the objectbox def TextBox long_line {} { ! set c [[$self get_canvas] widget] set t $c.${self}text set lines [lindex [$t configure -height] 4] *************** *** 2363,2367 **** if {!$@edit} {return} set @edit 0; $self changed edit ! set c [$@canvas widget] set t $c.${self}text if {$accept} {$self setto [$t get 1.0 "end - 1 chars"]} --- 2363,2367 ---- if {!$@edit} {return} set @edit 0; $self changed edit ! set c [[$self get_canvas] widget] set t $c.${self}text if {$accept} {$self setto [$t get 1.0 "end - 1 chars"]}