[PD-cvs] pd/src desire.tk,1.1.2.600.2.307,1.1.2.600.2.308
chunlee
chunlee at users.sourceforge.net
Tue Aug 7 17:41:25 CEST 2007
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13012
Modified Files:
Tag: desiredata
desire.tk
Log Message:
fix Selection unset
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.307
retrieving revision 1.1.2.600.2.308
diff -C2 -d -r1.1.2.600.2.307 -r1.1.2.600.2.308
*** desire.tk 7 Aug 2007 15:29:42 -0000 1.1.2.600.2.307
--- desire.tk 7 Aug 2007 15:41:21 -0000 1.1.2.600.2.308
***************
*** 334,339 ****
class_new Selection {Hash}
def Selection set {k v} {super $k $v; $v selected?= 1}
! def Selection unset {k} {super $k; if {[$self exists $k]} {[$self get $k] selected?= 0}}
!
#-----------------------------------------------------------------------------------#
# abstract class: subclass must def {value value= <<}
--- 334,338 ----
class_new Selection {Hash}
def Selection set {k v} {super $k $v; $v selected?= 1}
! def Selection unset {k} {if {[$self exists $k]} {[$self get $k] selected?= 0}; super $k}
#-----------------------------------------------------------------------------------#
# abstract class: subclass must def {value value= <<}
***************
*** 3665,3669 ****
def Canvas select_all {} {$@objectsel reinit [$objects list]}
! def Canvas deselect_all {} {puts [$@objectsel list]; $@objectsel clear; puts [$@objectsel list]}
def Canvas popup_help {} {$::main class_browser}
--- 3664,3668 ----
def Canvas select_all {} {$@objectsel reinit [$objects list]}
! def Canvas deselect_all {} {$@objectsel clear}
def Canvas popup_help {} {$::main class_browser}
More information about the Pd-cvs
mailing list