Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23524
Modified Files: Tag: desiredata desire.tk Log Message: dashed boxes
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.200 retrieving revision 1.1.2.600.2.201 diff -C2 -d -r1.1.2.600.2.200 -r1.1.2.600.2.201 *** desire.tk 1 Jul 2007 00:08:58 -0000 1.1.2.600.2.200 --- desire.tk 2 Jul 2007 06:52:51 -0000 1.1.2.600.2.201 *************** *** 2363,2366 **** --- 2363,2369 ---- }
+ def ObjectBox valid= {v} {set @valid $v} + def ObjectBox valid {} {return $@valid} + def Canvas selection {} {return $@selection} def Canvas selection= {objs} { *************** *** 2407,2411 **** #set xyc [l+ [list $x2 $y1 $x2 $y2 $x1 $y2] [list -1 +1 -1 -1 +1 -1]] if {[$self selected?]} {set fg [$self look selectframe]} {set fg [$self look frame3]} ! $self item BASE rectangle $xya -fill [$self look bg] -outline $fg -width 1 #$self item BASE1 line $xyb -fill [$self look frame1] -width 1 #$self item BASE2 line $xyc -fill [$self look frame2] -width 1 --- 2410,2418 ---- #set xyc [l+ [list $x2 $y1 $x2 $y2 $x1 $y2] [list -1 +1 -1 -1 +1 -1]] if {[$self selected?]} {set fg [$self look selectframe]} {set fg [$self look frame3]} ! if {$@valid} { ! $self item BASE rectangle $xya -fill [$self look bg] -outline $fg -width 1 ! } else { ! $self item BASE rectangle $xya -fill [$self look bg] -outline $fg -width 1 -dash {3 3} ! } #$self item BASE1 line $xyb -fill [$self look frame1] -width 1 #$self item BASE2 line $xyc -fill [$self look frame2] -width 1 *************** *** 5084,5088 **** #A 0 0;
! proc change {self canvas e {ninlets 0} {noutlets 0}} { foreach mess [pd_mess_split $e] {change_2 $self $mess} #the server ought to take care of this: --- 5091,5095 ---- #A 0 0;
! proc change {self canvas e {ninlets 0} {noutlets 0} {valid 1}} { foreach mess [pd_mess_split $e] {change_2 $self $mess} #the server ought to take care of this: *************** *** 5091,5094 **** --- 5098,5102 ---- $self ninlets= $ninlets $self noutlets= $noutlets + if {[$self class] == "ObjectBox"} {$self valid= $valid} $self changed }