[PD-cvs] pd/src desire.tk,1.1.2.600.2.200,1.1.2.600.2.201

Mathieu Bouchard matju at users.sourceforge.net
Mon Jul 2 08:52:55 CEST 2007


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
  }





More information about the Pd-cvs mailing list