[PD-cvs] pd/src desire.tk,1.1.2.473,1.1.2.474
Mathieu Bouchard
matju at users.sourceforge.net
Mon Sep 18 03:29:53 CEST 2006
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 ----
More information about the Pd-cvs
mailing list