[PD-cvs] pd/src desire.tk,1.1.2.600.2.33,1.1.2.600.2.34

[Mathieu Bouchard]

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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
better logging of two-argument netsend


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.33
retrieving revision 1.1.2.600.2.34
diff -C2 -d -r1.1.2.600.2.33 -r1.1.2.600.2.34
*** desire.tk	7 Dec 2006 02:27:57 -0000	1.1.2.600.2.33
--- desire.tk	7 Dec 2006 02:55:29 -0000	1.1.2.600.2.34
***************
*** 251,263 ****
  #   obj, msg, floatatom, symbolatom, text, connect, text_setto, array.
  # this does NOT happen with #X coords/restore/pop.
! proc* netsend {message {callback noserial}} {
  	global serial replyset sock
  	if {$sock == ""} {error "connection to server needed for doing this"}
  	if {[string compare $callback noserial]} {
  		set replyset($serial) $callback
  		incr serial
  	}
  	puts $sock "$message;"
- 	if {$::debug} {puts "<- $message;"}
  }
  
--- 251,265 ----
  #   obj, msg, floatatom, symbolatom, text, connect, text_setto, array.
  # this does NOT happen with #X coords/restore/pop.
! proc netsend {message {callback noserial}} {
  	global serial replyset sock
  	if {$sock == ""} {error "connection to server needed for doing this"}
  	if {[string compare $callback noserial]} {
  		set replyset($serial) $callback
+ 		if {$::debug} {puts "<- $message; [VTgreen]serial #$serial will do: $callback \$new[VTgrey]"}
  		incr serial
+ 	} else {
+ 		if {$::debug} {puts "<- $message;"}
  	}
  	puts $sock "$message;"
  }