Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29116
Modified Files: Tag: desiredata desire.tk Log Message: console_clear
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.60 retrieving revision 1.1.2.600.2.61 diff -C2 -d -r1.1.2.600.2.60 -r1.1.2.600.2.61 *** desire.tk 11 Dec 2006 16:33:05 -0000 1.1.2.600.2.60 --- desire.tk 12 Dec 2006 06:41:26 -0000 1.1.2.600.2.61 *************** *** 678,686 ****
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" --- 678,685 ----
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" *************** *** 704,713 **** -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] --- 703,716 ---- -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 ! } # set @book [Notebook new_as book] # $@book add_section 1 [say posts] *************** *** 718,722 **** set ::console [Console new .log] } - pack .debug -side bottom -fill x . configure -menu .mbar wm title . "DesireData" --- 721,724 ---- *************** *** 1919,1926 **** 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 {} --- 1921,1928 ---- 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 {} *************** *** 4931,4937 **** }
- #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} {