[PD-cvs] pd/src desire.tk,1.1.2.600.2.64,1.1.2.600.2.65

[chunlee]

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