Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26056
Modified Files: Tag: devel_0_39 desire.tk Log Message: .
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.473 retrieving revision 1.1.2.474 diff -C2 -d -r1.1.2.473 -r1.1.2.474 *** desire.tk 16 Sep 2006 01:22:06 -0000 1.1.2.473 --- desire.tk 18 Sep 2006 01:29:50 -0000 1.1.2.474 *************** *** 1165,1170 **** def Client audio_on {} {pd pd dsp 1} def Client audio_off {} {pd pd dsp 0} ! def Client clipboard_view {} {ClipboardDialog new} ! def Client history_view {} {global history; HistoryDialog new $history} def Client do_what_i_mean {} {wonder}
--- 1165,1170 ---- def Client audio_on {} {pd pd dsp 1} def Client audio_off {} {pd pd dsp 0} ! def Client clipboard_view {} {global clipboard; ClipboardDialog new $clipboard} ! def Client history_view {} {global history; HistoryDialog new $history} def Client do_what_i_mean {} {wonder}
*************** *** 3386,3390 **** set _($self:isnew) [expr [llength $mess] == 4] } - #if {$isnew} {$_class new_as $self} if {$isnew} {$_class new_as $self $mess} else {$self reinit $mess} switch -- $class { --- 3386,3389 ---- *************** *** 5520,5524 **** incr i } ! pack $f.buttonframe -side bottom -fill x -expand 1 -pady 2m pack $f.buttonsep -side bottom -fill x wm protocol $f WM_DELETE_WINDOW "$self cancel" --- 5519,5523 ---- incr i } ! pack $f.buttonframe -side bottom -fill x -pady 2m pack $f.buttonsep -side bottom -fill x wm protocol $f WM_DELETE_WINDOW "$self cancel" *************** *** 6205,6209 **** pack [text .$self.text -yscrollcommand ".$self.scroll set" -width 72 ] -side left -fill both -expand yes ! pack [scrollbar .$self.scroll -command ".$self.text yview"] -side right -fill y #12345678901234567890123456789012345678901234567890123456789012345678901 <- 72 chars .$self.text insert 0.0 "\ --- 6204,6208 ---- pack [text .$self.text -yscrollcommand ".$self.scroll set" -width 72 ] -side left -fill both -expand yes ! pack [scrollbar .$self.scroll -command ".$self.text yview"] -side right -fill y -expand yes #12345678901234567890123456789012345678901234567890123456789012345678901 <- 72 chars .$self.text insert 0.0 "\ *************** *** 6282,6287 **** }
- # ClipboardDialog new $clipboard - #---------------------------------------------------------------- class_new HistoryDialog {Dialog} --- 6281,6284 ----