home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 March / Macworld (1998-03) (Disk 1).dmg / Shareware World / Utilities / Text Processing / Alpha / Tcl / Menus / thinkRefMenu.tcl < prev    next >
Encoding:
Text File  |  1997-10-08  |  1.4 KB  |  72 lines  |  [TEXT/ALFA]
  1. #================================================================================
  2. # THINK Ref
  3. #================================================================================
  4.  
  5. alpha::menu thinkRefMenu 1.0 "•265"
  6.  
  7. proc thinkRefMenu {} {}
  8.  
  9. menu -n $thinkRefMenu {
  10.     "gotoReference"
  11.     "(-"
  12.     "displayTrapTemplate"
  13.     "insertTrapTemplate"
  14.     "/L<O<UlookupTrap"
  15. }
  16.  
  17.  
  18.  
  19. set lastTrap {}
  20.  
  21. proc insertTrapTemplate {} {
  22.     global lastTrap
  23.  
  24.     app::launchFore DanR
  25.     set text [getSelect]
  26.     if {![string length $text]} {
  27.         if {[catch {prompt "Trap name:" $lastTrap} text]} return
  28.     } else {
  29.         deleteText [getPos] [selEnd]
  30.     }
  31.     set lastTrap $text
  32.     set res [AEBuild -r {'DanR'} DanR {TMPL} "----" "“$text”"]
  33.     regexp {“.*”} $res one
  34.     insertText [string trim $one {“”}]
  35. }
  36.  
  37. proc displayTrapTemplate {} {
  38.     global lastTrap
  39.  
  40.     app::launchFore DanR
  41.     set text {}
  42.     catch {set text [getSelect]}
  43.     if {![string length $text]} {
  44.         if {[catch {prompt "Trap name:" $lastTrap} text]} return
  45.     }
  46.     set lastTrap $text
  47.  
  48.     set res [AEBuild -r {'DanR'} DanR {TMPL} "----" "“$text”"]
  49.     regexp {“.*”} $res one
  50.     alertnote [string trim $one {“”}]
  51. }
  52.  
  53. proc lookupTrap {} {
  54.     global lastTrap
  55.  
  56.     app::launchFore DanR
  57.     set text {}
  58.     catch {set text [getSelect]}
  59.     if {![string length $text]} {
  60.         if {[catch {prompt "Trap name:" $lastTrap} text]} return
  61.     }
  62.     set lastTrap $text
  63.     set num 0
  64.     AEBuild {'DanR'} DanR {REF } "----" "“$text”"
  65. }
  66.  
  67. proc gotoReference {} {
  68.     app::launchFore DanR
  69. }
  70.  
  71.  
  72.