[PD-cvs] pd/src desire.tk,1.1.2.300,1.1.2.301

[Mathieu Bouchard]

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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
fixed console posting so that Zexy's splash doesn't splash over a few pages


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.300
retrieving revision 1.1.2.301
diff -C2 -d -r1.1.2.300 -r1.1.2.301
*** desire.tk	8 Aug 2006 17:45:36 -0000	1.1.2.300
--- desire.tk	8 Aug 2006 18:15:38 -0000	1.1.2.301
***************
*** 579,583 ****
  		if {[fblocked $sock]} {break}
  		if {[string first pdtk_post $cmd]!=0} {puts "-> $cmd"}
! 		set sock_lobby "$sock_lobby\n$cmd"
  		if {[catch {eval $sock_lobby}]} {
  			global errorCode errorInfo
--- 579,583 ----
  		if {[fblocked $sock]} {break}
  		if {[string first pdtk_post $cmd]!=0} {puts "-> $cmd"}
! 		append sock_lobby "\n$cmd"
  		if {[catch {eval $sock_lobby}]} {
  			global errorCode errorInfo
***************
*** 655,659 ****
  ################ utility functions #########################
  
! proc pdtk_post {s} {regsub -- "\n$" $s "" s; post %s $s}
  
  proc enquote {x} {
--- 655,659 ----
  ################ utility functions #########################
  
! proc pdtk_post {s} {post_to_gui $s}
  
  proc enquote {x} {
***************
*** 5679,5683 ****
  }
  
! def* ClientClassTreeDialog scroll {args} {
  	set w .$self.1.1
  	set zy [winfo height $w]
--- 5679,5683 ----
  }
  
! def ClientClassTreeDialog scroll {args} {
  	set w .$self.1.1
  	set zy [winfo height $w]
***************
*** 5768,5771 ****
  }
  
! Thing post_hierarchy
  
--- 5768,5771 ----
  }
  
! # Thing post_hierarchy