[PD-cvs] pd/src desire.tk,1.1.2.600.2.49,1.1.2.600.2.50

chunlee chunlee at users.sourceforge.net
Sat Dec 9 16:29:19 CET 2006


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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
fix {$1} in msg and comment


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.49
retrieving revision 1.1.2.600.2.50
diff -C2 -d -r1.1.2.600.2.49 -r1.1.2.600.2.50
*** desire.tk	9 Dec 2006 03:04:08 -0000	1.1.2.600.2.49
--- desire.tk	9 Dec 2006 15:29:14 -0000	1.1.2.600.2.50
***************
*** 1521,1525 ****
  				return
  			}
! 		  if {![winfo exists .$self.c]} {$self init_window}
  		}
  	}
--- 1521,1525 ----
  				return
  			}
! 			if {![winfo exists .$self.c]} {$self init_window}
  		}
  	}
***************
*** 1537,1540 ****
--- 1537,1542 ----
  	    11 {
  		set @gop [lindex $mess 8]
+ 	        #set @gop [expr [lindex $mess 8] & 1] 
+ 	        #set @hidetext [expr [lindex $mess 8] & 2]
  		set @goprect 1
  		set @xmargin [lindex $mess 9]
***************
*** 1573,1576 ****
--- 1575,1579 ----
  
  def Canvas gop {} {return $@gop}
+ def Canvas hidtext {} {return $@hidetext}
  def Canvas abs {} {return $@abs}
  def Canvas subpatch {} {return $@subpatch}
***************
*** 1965,1972 ****
  	set @y1 [lindex $mess 3]
  	set @text [lrange $mess 4 end]
  	set c [lindex $mess 4]
  	if {$c != ""} {
  		# what's this hack?
! 		regsub -all {\\} [string range $mess [string first $c $mess 0] end] "" text
  	} else {
  		set text ""
--- 1968,1977 ----
  	set @y1 [lindex $mess 3]
  	set @text [lrange $mess 4 end]
+ 	set textstr [join [lrange $mess 4 end]]
  	set c [lindex $mess 4]
  	if {$c != ""} {
  		# what's this hack?
! 		# this hack is to remove the "\" in the text
! 		regsub -all {\\} $textstr "" text
  	} else {
  		set text ""
***************
*** 7100,7104 ****
  	}
  }
! 
  def ClientPrefsDialog reset {} {
  	# this should reload defaults.ddrc ?
--- 7105,7109 ----
  	}
  }
!  
  def ClientPrefsDialog reset {} {
  	# this should reload defaults.ddrc ?





More information about the Pd-cvs mailing list