[PD-cvs] pd/src desire.tk,1.1.2.476,1.1.2.477

chunlee chunlee at users.sourceforge.net
Fri Sep 22 00:33:31 CEST 2006


Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23624

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
reverting Canvas reinit


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.476
retrieving revision 1.1.2.477
diff -C2 -d -r1.1.2.476 -r1.1.2.477
*** desire.tk	21 Sep 2006 20:23:30 -0000	1.1.2.476
--- desire.tk	21 Sep 2006 22:33:28 -0000	1.1.2.477
***************
*** 1304,1315 ****
  	  }
  	  2 {
! 		  if {[lindex $args 0] != "graph1"} {
! 			  set @subpatch 1
! 			  set @graph1 0
! 		  } else {
! 			  set @subpatch 1
! 			  set @graph1 1
! 		  }
! 		#  set @subpatch 1
  		  set @name [lindex $args 0]
  		  set @mapped [lindex $args 1]
--- 1304,1308 ----
  	  }
  	  2 {
! 		  set @subpatch 1
  		  set @name [lindex $args 0]
  		  set @mapped [lindex $args 1]
***************
*** 1337,1353 ****
  	  switch [llength $mess] {
  	    8  {set @gop 0; set @goprect 0}
! 	    9  {
! 		    if {$@graph1} {
! 			    #X coords 0 5 4 0 200 140 1;
! 			    set @xfrom [lindex $mess 2]
! 			    set @yfrom [lindex $mess 3]
! 			    set @xto [lindex $mess 4]
! 			    set @yto [lindex $mess 5]
! 			    set @xs [lindex $mess 6]
! 			    set @ys [lindex $mess 7]
! 			    puts "  i got a graph1 for $self"
! 		    }
! 		    set @gop [lindex $mess 8]; set @goprect 0e
! 	    }
  	    11 {
  		set @gop [lindex $mess 8]
--- 1330,1334 ----
  	  switch [llength $mess] {
  	    8  {set @gop 0; set @goprect 0}
! 	    9  {set @gop [lindex $mess 8]; set @goprect 0}
  	    11 {
  		set @gop [lindex $mess 8]





More information about the Pd-cvs mailing list