[PD-cvs] pd/src desire.tk,1.1.2.170,1.1.2.171

[Mathieu Bouchard]

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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
class browser


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.170
retrieving revision 1.1.2.171
diff -C2 -d -r1.1.2.170 -r1.1.2.171
*** desire.tk	21 Apr 2006 07:17:53 -0000	1.1.2.170
--- desire.tk	21 Apr 2006 08:49:35 -0000	1.1.2.171
***************
*** 637,641 ****
      # }
  
! # for audio switch on/off	    
      #switch -- $key {
      #  slash  {menu_audio 1}
--- 637,641 ----
      # }
  
! # for audio switch on/off
      #switch -- $key {
      #  slash  {menu_audio 1}
***************
*** 660,666 ****
  	$self eval% [dict get $@accels $key]
  	return
!     } {
! 	puts "ctrlkey: unknown $key"
!     }
  }
  
--- 660,664 ----
  	$self eval% [dict get $@accels $key]
  	return
!     } {puts "ctrlkey: unknown $key"}
  }
  
***************
*** 672,678 ****
  	$self eval% [dict get $@accels $key]
  	return
!     } {
! 	puts "altkey: unknown $key"
!     }
  }
  
--- 670,674 ----
  	$self eval% [dict get $@accels $key]
  	return
!     } {puts "altkey: unknown $key"}
  }
  
***************
*** 919,922 ****
--- 915,920 ----
  }
  
+ def Client class_browser {} {ClassBrowser new_as browser browser}
+ 
  proc menu_audio {flag} {pd pd dsp $flag}
  
***************
*** 962,979 ****
  
  #-----------------------------------------------------------------------------------#
- # .xc47f00d.c -> .xc47f00d (tk canvas to tk toplevel)
- proc canvastosym {name} {
-     regsub {.c$} $name "" name
-     return $name
- }
- 
- # .xc47f00d.c -> xc47f00d (tk canvas to $_ canvas)
- proc c2self {name} {
-     regsub {.c$} $name "" name
-     regsub {^\.} $name "" name
-     return $name
- }    
- 
- #-----------------------------------------------------------------------------------#
  # check or uncheck the "edit" menu item
  def Canvas editmode {} {return $@editmode}
--- 960,963 ----
***************
*** 3214,3224 ****
  }
  
! ############ class list
  
! proc class_browser_new {name} {
! 	pd "pd update-path ; pd update-class-list class_list_callback"
  }
  
! proc class_list_fill_box {s} {
  	set f .browser.cl
  	global class_list
--- 3198,3210 ----
  }
  
! ############ class browser
  
! class_new ClassBrowser {Dialog}
! def ClassBrowser init {name} {
! 	set @name $name
! 	pd "pd update-path ; pd update-class-list $self list_callback"
  }
  
! def ClassBrowser fill_box {s} {
  	set f .browser.cl
  	global class_list
***************
*** 3235,3239 ****
  }
  
! proc search_for_externs {} {
  	global pd_path
  	global class_list
--- 3221,3225 ----
  }
  
! def ClassBrowser search_for_externs {} {
  	global pd_path
  	global class_list
***************
*** 3246,3252 ****
  }
  
! proc class_list_callback {} {
  	global class_list
! 	search_for_externs
  	toplevel .browser
  	set f .browser.cl
--- 3232,3238 ----
  }
  
! def ClassBrowser list_callback {} {
  	global class_list
! 	$self search_for_externs
  	toplevel .browser
  	set f .browser.cl
***************
*** 3273,3277 ****
  	pack [button $b.close -text [say close] -command "destroy .browser"] -side right
  	pack $b -side bottom -fill x -expand no
! 	class_list_fill_box ""
  	bind $f.1 <Button-1> {
  		after 1 {
--- 3259,3263 ----
  	pack [button $b.close -text [say close] -command "destroy .browser"] -side right
  	pack $b -side bottom -fill x -expand no
! 	$self fill_box ""
  	bind $f.1 <Button-1> {
  		after 1 {
***************
*** 3281,3289 ****
  		}
  	}
! 	bind $b.2 <KeyPress> {after 1 {class_list_fill_box [.browser.butt.2 get]}}
  	after 1 "focus $b.2"
  }
  
! proc class_info_callback {class} {
  	global class_info
  	set f .browser.cl
--- 3267,3275 ----
  		}
  	}
! 	bind $b.2 <KeyPress> {after 1 "$self fill_box [.browser.butt.2 get]"}
  	after 1 "focus $b.2"
  }
  
! def ClassBrowser info_callback {class} {
  	global class_info
  	set f .browser.cl