pd/src desire.tk,1.1.2.468,1.1.2.469 - Pd-cvs

14 Sep 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