pd/src desire.tk,1.1.2.476,1.1.2.477 - Pd-cvs

22 Sep 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]