[PD-cvs] pd/src desire.tk,1.1.2.600.2.60,1.1.2.600.2.61

[Mathieu Bouchard]

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} {