pd/src desire.tk,1.1.2.170,1.1.2.171 - Pd-cvs

21 Apr 2006


      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