[PD-cvs] pd/src desire.tk,1.1.2.600.2.101,1.1.2.600.2.102

[Mathieu Bouchard]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv855

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
removed Find menu in main window; fixed [nbx] refresh.


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.101
retrieving revision 1.1.2.600.2.102
diff -C2 -d -r1.1.2.600.2.101 -r1.1.2.600.2.102
*** desire.tk	18 Dec 2006 22:30:05 -0000	1.1.2.600.2.101
--- desire.tk	18 Dec 2006 23:54:39 -0000	1.1.2.600.2.102
***************
*** 722,726 ****
      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]
      }
--- 722,726 ----
      menu .mbar
      pack [frame .controls] -side top -fill x
!     foreach t {file window help} {
  	.mbar add cascade -label [say $t] -menu [menu .mbar.$t -tearoff $::pd_tearoff]
      }
***************
*** 1010,1014 ****
  	audio_on audio_off {}
  	quit}
-     $self populate_menu find {find find_again find_last_error}
      $self populate_menu help {
  	about documentation class_browser client_class_tree clipboard_view history_view do_what_i_mean {}
--- 1010,1013 ----
***************
*** 1748,1751 ****
--- 1747,1755 ----
  	if {[info exists @find_string]} {$@find_canvas search}
  }
+ 
+ def Canvas find_last_error {} {
+ 	netsend [list pd finderror]
+ }
+ 
  def Canvas bind {eventtype selector args} {
      set c [$self widget]
***************
*** 4907,4910 ****
--- 4911,4919 ----
  }
  
+ def NumBox reinit {mess} {
+ 	super $mess
+ 	set @text $@val
+ }
+ 
  def NumBox draw {} {
  	super