home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1997 January / macpower199701.bin / AMUG / Publishing_19 / Alpha 6.5.sit / Tcl / UserCode / otherMenu.tcl < prev    next >
Encoding:
Text File  |  1996-08-15  |  501 b   |  18 lines  |  [TEXT/ALFA]
  1. #===========================================================================
  2. # Calling OtherMenu AEvent.  Requires OtherMenu version 1.4 or later.
  3. #         -- Mark Nagata
  4.  
  5. proc OMEvent {filler fname} {
  6.     global HOME
  7.     
  8.     regexp {[^:]+} $HOME disk
  9.     set path "$disk:System Folder:OtherMenu Folder:Externals:"
  10.     append path $fname
  11.     AEBuild -r 'ALFA' *Men *Men "----" [makeAlis $path]
  12. }
  13.  
  14.  
  15. bind 'm' <zs> {OMEvent -- "Memory Map"}
  16. bind 'i' <zs> {OMEvent -- "Files:File InfoI"}
  17. bind 'p' <zs> {OMEvent -- "Put AwayI"}
  18.