Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28238
Modified Files: Tag: devel_0_39 desire.tk Log Message: some rendering fix before i go to work;)
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.69 retrieving revision 1.1.2.70 diff -C2 -d -r1.1.2.69 -r1.1.2.70 *** desire.tk 19 Sep 2005 04:13:55 -0000 1.1.2.69 --- desire.tk 19 Sep 2005 08:56:06 -0000 1.1.2.70 *************** *** 1517,1521 **** [lindex $@selection 0] unedit $self set @obj_in_edit 0 ! puts "completing it!" } } --- 1517,1521 ---- [lindex $@selection 0] unedit $self set @obj_in_edit 0 ! #puts "completing it!" } } *************** *** 1911,1915 **** set class [lindex $d $i] switch -- $class {obj {set i 4; set class [lindex $d 4]}} - if {![info exists _($x:_class)]} { if {[info exists classinfo($class)]} { --- 1911,1914 ---- *************** *** 1922,1931 **** set canvas $_($x:canvas) $x init ! set _($x:text) [lindex $d $i end] set _($x:valid) 0 $x update_size $x draw $canvas - puts "_($x:text)='$_($x:text)'" if {[string length $_($x:text)]==0} {$x edit $canvas} } if {![info exists fields($class)]} {set class obj} --- 1921,1930 ---- set canvas $_($x:canvas) $x init ! set _($x:text) [lrange $d $i end] set _($x:valid) 0 $x update_size $x draw $canvas if {[string length $_($x:text)]==0} {$x edit $canvas} + set _($_($x:canvas):selection) $x } if {![info exists fields($class)]} {set class obj} *************** *** 3026,3028 **** #c } #c that thing..redraws anythign that is currently selected or was currently selected ! #c lsort proably does what u want (has an integer flag too) \ No newline at end of file --- 3025,3027 ---- #c } #c that thing..redraws anythign that is currently selected or was currently selected ! #c lsort proably does what u want (has an integer flag too)