Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6546
Modified Files: Tag: desiredata desire.tk Log Message: reapply console_clear
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.64 retrieving revision 1.1.2.600.2.65 diff -C2 -d -r1.1.2.600.2.64 -r1.1.2.600.2.65 *** desire.tk 12 Dec 2006 18:00:41 -0000 1.1.2.600.2.64 --- desire.tk 12 Dec 2006 18:32:32 -0000 1.1.2.600.2.65 *************** *** 680,688 ****
def Client init_controls {} { - global pd_tearoff menu .mbar pack [frame .controls] -side top -fill x foreach t {file find window help} { ! .mbar add cascade -label [say $t] -menu [menu .mbar.$t -tearoff $pd_tearoff] } .mbar.window configure -postcommand "$self fix_window_menu" --- 680,687 ----
def Client init_controls {} { menu .mbar pack [frame .controls] -side top -fill x foreach t {file find window help} { ! .mbar add cascade -label [say $t] -menu [menu .mbar.$t -tearoff $::pd_tearoff] } .mbar.window configure -postcommand "$self fix_window_menu" *************** *** 706,715 **** -variable $y -anchor w -command $z] -side left } ! pack [button .controls.switches.dio -text [say io_errors] -command {netsend [list pd audiostatus]} -padx 5] pack .controls.switches -side right ! frame .debug # pack [label .debug.1 -anchor w -text ""] -side left ! pack [entry .controls.3 -textvariable ::serial -width 5] -side right ! pack [label .controls.2 -text "obj.serial: " -justify right] -side right # set @book [Notebook new_as book] # $@book add_section 1 [say posts] --- 705,721 ---- -variable $y -anchor w -command $z] -side left } ! pack [button .controls.clear -text [say console_clear] -command {.log.1 delete 0.0 end} -padx 5] -side right ! pack [button .controls.switches.dio -text [say io_errors] -command {netsend [list pd audiostatus]} -padx 5] pack .controls.switches -side right ! if {$::debug} { ! frame .debug ! pack [label .debug.1 -anchor w -text ""] -side left ! pack [entry .debug.3 -textvariable ::serial -width 5] -side right ! pack [label .debug.2 -text "obj.serial: " -justify right] -side right ! pack .debug -side bottom -fill x ! } # pack [label .debug.1 -anchor w -text ""] -side left ! #pack [entry .controls.3 -textvariable ::serial -width 5] -side right ! #pack [label .controls.2 -text "obj.serial: " -justify right] -side right # set @book [Notebook new_as book] # $@book add_section 1 [say posts] *************** *** 720,724 **** set ::console [Console new .log] } - pack .debug -side bottom -fill x . configure -menu .mbar wm title . "DesireData" --- 726,729 ---- *************** *** 1913,1920 **** def Canvas new_menubar {} { set name .$self ! global pd_opendir pd_tearoff cmdline key accels set m $name.m menu $m ! foreach x {file edit view put window help} {menu $m.$x -tearoff $pd_tearoff} $self populate_menu file { new_file open_file {} --- 1918,1925 ---- def Canvas new_menubar {} { set name .$self ! global pd_opendir cmdline key accels set m $name.m menu $m ! foreach x {file edit view put window help} {menu $m.$x -tearoff $::pd_tearoff} $self populate_menu file { new_file open_file {} *************** *** 4928,4934 **** }
- #class_new NumBox {Labeled Box} class_new NumBox {Labeled AtomBox} ! def Box popup_properties {} {IEMPropertiesDialog new $self}
def NumBox init {mess} { --- 4933,4938 ---- }
class_new NumBox {Labeled AtomBox} ! def NumBox popup_properties {} {IEMPropertiesDialog new $self}
def NumBox init {mess} {