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