[PD-cvs] pd/src desire.tk,1.1.2.292,1.1.2.293

Mathieu Bouchard matju at users.sourceforge.net
Mon Aug 7 19:54:16 CEST 2006


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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
fixed subpatches


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.292
retrieving revision 1.1.2.293
diff -C2 -d -r1.1.2.292 -r1.1.2.293
*** desire.tk	7 Aug 2006 17:01:58 -0000	1.1.2.292
--- desire.tk	7 Aug 2006 17:54:14 -0000	1.1.2.293
***************
*** 850,878 ****
  	set dd_config [read $file]
  	close $file
! 	
! 	set lines [split $dd_config "\n"]
! 	foreach line $lines {
! 		# comments begins with "#", and is skipped 
! 		if {[regexp {^#} $line comment]} {} else {
! 		
! 		  #if {[regexp {^-[a-zA-Z]{2,10}} $line option]} {
! 		
! 		  foreach {word1 word2 word3} $line {
  		  #set word1 [string replace $word1 0 0]
  		  switch $word1 {
! 		  color {
! 		  set look($word2) $word3
! 		  puts "look($word2) $word3"
! 		  } 
! 		  font {
! 		  #puts "settings for font"
! 		  } 
! 		  default {
! 		  #puts "settings for something"
! 		  } 
! 	      }
! 		  
! 		  }
! 		#}
  		}
  	}
--- 850,869 ----
  	set dd_config [read $file]
  	close $file
! 	foreach line [split $dd_config "\n"] {
! 		if {[regexp {^#} $line comment]} {continue} ;# skip comments
! 		foreach {word1 word2 word3} $line {
  		  #set word1 [string replace $word1 0 0]
  		  switch $word1 {
! 		    color {
! 		      set look($word2) $word3
! 		      #puts "look($word2) $word3"
! 		    }
! 		    font {
! 		      #puts "settings for font"
! 		    }
! 		    default {
! 		      #puts "settings for something"
! 		    }
! 	          }
  		}
  	}
***************
*** 1110,1114 ****
      #sets the edit_toggle so the edit mode checkbox will follow if key binding is used
      catch {.$self.bbar.edit configure -image icon_mode_$mode}
!     $self draw
  }
  
--- 1101,1105 ----
      #sets the edit_toggle so the edit mode checkbox will follow if key binding is used
      catch {.$self.bbar.edit configure -image icon_mode_$mode}
!     $self changed ;#$self draw
  }
  
***************
*** 1381,1384 ****
--- 1372,1376 ----
  
  def* Canvas draw {} {
+ 	if {$@subpatch} {super} ;# is for the [pd] box if applicable
  	if {$@editmode} {set bg [look canvasbgedit]} else {set bg [look canvasbgrun]}
  	.$self.c configure -background $bg
***************
*** 3001,3009 ****
  		$self subscribe $c
  		$self canvas= $c
! 		#calling the ninlets because when its called by the server, its too late...
! 		#so the $ninlets and $noutlets are added to the sys_vgui call in pd_upload...
! 		#$self ninlets= $ninlets
! 		#$self noutlets= $noutlets
! 		$self draw
  		if {$unborn_child == [expr [llength $_($c:unborn)] - 1]} {
  			# when it reachs the last unborn child, its time to draw the wires
--- 2993,2997 ----
  		$self subscribe $c
  		$self canvas= $c
! 		$self draw ;# this shouldn't be here!
  		if {$unborn_child == [expr [llength $_($c:unborn)] - 1]} {
  			# when it reachs the last unborn child, its time to draw the wires





More information about the Pd-cvs mailing list