[PD-cvs] pd/src desire.tk,1.1.2.69,1.1.2.70
chunlee
chunlee at users.sourceforge.net
Mon Sep 19 10:56:09 CEST 2005
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)
More information about the Pd-cvs
mailing list