home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 3 / Info_Mac_1994-01.iso / Text Processing / Alpha 5.63 / sample / filesetMenu.tcl next >
Encoding:
Text File  |  1993-11-22  |  709 b   |  31 lines  |  [TEXT/ALFA]

  1. # Load this file to create a heirarchical fileset menu that allows you 
  2. # to open any file in any fileset.
  3. #
  4. # Doesn't bother trying to specialcase names or pathnames that have
  5. # non-alphanumeric characters in them.
  6.  
  7. proc filesetProc {menu item} {
  8.     global fileSets
  9.     if {[set match [lsearch $fileSets($menu) *$item]] >= 0} {
  10.         edit [lindex $fileSets($menu) $match]
  11.     }
  12. }    
  13.  
  14. proc makeFilesetMenu {} {
  15.     global fileSets
  16.     
  17.     foreach f [lsort [array names fileSets]] {
  18.         if {$f == "Help"} continue
  19.         set menu {}
  20.         foreach m $fileSets($f) {
  21.             lappend menu [file tail $m]
  22.         }
  23.         lappend sets [list menu -m -n $f -p filesetProc $menu]
  24.     }
  25.     menu -m -n FileSets -p filesetProc $sets
  26.     insertMenu FileSets
  27. }
  28.  
  29.  
  30. makeFilesetMenu
  31.