[PD-cvs] pd/src desire.tk,1.1.2.468,1.1.2.469

Mathieu Bouchard matju at users.sourceforge.net
Thu Sep 14 09:24:41 CEST 2006


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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
renamed error message "cannot find channel"


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.468
retrieving revision 1.1.2.469
diff -C2 -d -r1.1.2.468 -r1.1.2.469
*** desire.tk	13 Sep 2006 22:46:44 -0000	1.1.2.468
--- desire.tk	14 Sep 2006 07:24:38 -0000	1.1.2.469
***************
*** 559,562 ****
--- 559,570 ----
  }
  
+ # miller uses this nowadays (matju fished it in pd-cvs for 0.40). we don't use it for now.
+ # remember to fix all quoting problems, which in the end may or may not involve the following proc.
+ proc pdtk_unspace {x} {
+   set y [string map {" " "_" ";" "" "," "" "{" "" "}" "" "\\" ""} $x]
+   if {$y == ""} {set y "empty"}
+   concat $y
+ }
+ 
  proc pdtk_pd_meters {indb outdb inclip outclip} {
      foreach {z clip db} [list in $inclip $indb out $outclip $outdb] {
***************
*** 638,643 ****
  		set cmd [gets $sock]
  		if {[eof $sock]} {
! 			tk_messageBox -message "server gone boom" -type ok
  			set sock {}
  		}
  		if {[fblocked $sock]} {break}
--- 646,653 ----
  		set cmd [gets $sock]
  		if {[eof $sock]} {
! 			global errorCode
! 			tk_messageBox -message "connection ended by server. (crash?)" -type ok
  			set sock {}
+ 			return
  		}
  		if {[fblocked $sock]} {break}
***************
*** 975,978 ****
--- 985,989 ----
  proc pd {args} {
  	global sock
+ 	if {$sock == ""} {error "connection to server needed for doing this"}
  	set s [join $args " "]
  	puts $sock "$s;"
***************
*** 1308,1314 ****
  	  2 {
  		  set @subpatch 1
! 		  set @name [lindex $args 0 ]
  		  set @mapped [lindex $args 1]
- 		  #set @mapped $@mapped
  		  set @fontsize "what?"
  	  }
--- 1319,1324 ----
  	  2 {
  		  set @subpatch 1
! 		  set @name [lindex $args 0]
  		  set @mapped [lindex $args 1]
  		  set @fontsize "what?"
  	  }
***************
*** 3746,3754 ****
  	$self add .$self {
  		{x1   entry -width 7} \
! 		    {x2   entry -width 7} \
! 		    {xpix entry -width 7} \
! 		    {y2   entry -width 7} \
! 		    {y1   entry -width 7} \
! 		    {ypix entry -width 7}
  	}
  	#.$self.xrangef.x2 select from 0
--- 3756,3764 ----
  	$self add .$self {
  		{x1   entry -width 7} \
! 		{x2   entry -width 7} \
! 		{xpix entry -width 7} \
! 		{y2   entry -width 7} \
! 		{y1   entry -width 7} \
! 		{ypix entry -width 7}
  	}
  	#.$self.xrangef.x2 select from 0





More information about the Pd-cvs mailing list