home *** CD-ROM | disk | FTP | other *** search
/ MacWorld UK 2000 March / MW_UK_2000_03.iso / Shareware World / Utilities / Text Processing / Alpha / Tcl / Menus / toolboxAssistMenu.tcl < prev    next >
Encoding:
Text File  |  1999-10-23  |  1.9 KB  |  80 lines  |  [TEXT/ALFA]
  1. #================================================================================
  2. # QuickView™ Toolbox Assistant Help
  3. #================================================================================
  4.  
  5. alpha::menu toolboxRefMenu 1.0.3 "C C++" "•400" {
  6.     ensureset toolboxRefSig ALTV
  7. } {
  8.     toolboxRefMenu
  9. } {} uninstall {this-file}
  10.  
  11. proc toolboxRefMenu {} {}
  12.  
  13. namespace eval toolboxref {}
  14.  
  15. proc toolboxref::menuProc {menu item} {
  16.     menu::generalProc toolboxref $item
  17. }
  18.  
  19. Menu -n $toolboxRefMenu -p toolboxref::menuProc {
  20.     gotoReference
  21.     "(-"
  22.     displayTrapTemplate
  23.     insertTrapTemplate
  24.     "/L<O<UlookupTrap"
  25. }
  26.  
  27. set lastTrap {}
  28.  
  29. proc toolboxref::insertTrapTemplate {} {
  30.     global lastTrap toolboxRefSig
  31.     
  32.     app::ensureRunning $toolboxRefSig
  33.     set text [getSelect]
  34.     if {![string length $text]} {
  35.     if {[catch {prompt "Trap name:" $lastTrap} text]} return
  36.     } else {
  37.     deleteText [getPos] [selEnd]
  38.     }
  39.     set lastTrap $text
  40.     set res [AEBuild -r '$toolboxRefSig' DanR {TMPL} "----" "“$text”"]
  41.     regexp {“.*”} $res one
  42.     insertText [string trim $one {“”}]
  43. }
  44.  
  45. proc toolboxref::displayTrapTemplate {} {
  46.     global lastTrap toolboxRefSig
  47.  
  48.     app::ensureRunning $toolboxRefSig
  49.     set text {}
  50.     catch {set text [getSelect]}
  51.     if {![string length $text]} {
  52.     if {[catch {prompt "Trap name:" $lastTrap} text]} return
  53.     }
  54.     set lastTrap $text
  55.     
  56.     set res [AEBuild -r '$toolboxRefSig' DanR {TMPL} "----" "“$text”"]
  57.     regexp {“.*”} $res one
  58.     alertnote [string trim $one {“”}]
  59. }
  60.  
  61. proc toolboxref::lookupTrap {} {
  62.     global lastTrap toolboxRefSig
  63.  
  64.     app::ensureRunning $toolboxRefSig
  65.     set text {}
  66.     catch {set text [getSelect]}
  67.     if {![string length $text]} {
  68.     if {[catch {prompt "Trap name:" $lastTrap} text]} return
  69.     }
  70.     set lastTrap $text
  71.     AEBuild '$toolboxRefSig' DanR {REF } "----" "“$text”"
  72. }
  73.  
  74. proc toolboxref::gotoReference {} {
  75.     global toolboxRefSig
  76.     switchTo [app::ensureRunning $toolboxRefSig]
  77. }
  78.  
  79.  
  80.