home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Utilities / Programming / MT2ToolKit 1.0b1 / PascalMenu < prev    next >
Encoding:
Text File  |  1995-10-13  |  1.1 KB  |  28 lines  |  [TEXT/MPS ]
  1. # --------------------------------------------------
  2. #    MT2ToolKit, version 1.0b1
  3. #    (C) Copyright by Michael Trofimov, 10/6/95.
  4. # --------------------------------------------------
  5. # PascalMenu
  6. # Add Pascal menu
  7.  
  8. AddMenu Pascal    'Check syntax' 'CheckPasSyntax ≥ "{MPW}"Errors'
  9. AddMenu Pascal    'Match delimiters'    'MatchIt "{Active}" ≥ "{MPW}"Errors || ∂
  10. Alert < "{MPW}"Errors'
  11. AddMenu Pascal 'Mark source' 'markSour2 ≥ "{MPW}"Errors'
  12. AddMenu Pascal 'Add %%-marker' 'Echo ∂{%%∂} -n'
  13. AddMenu Pascal '(-' ''
  14.  
  15. AddMenu Pascal 'Trivial' 'commando trivial ≥ "{MPW}"Errors'
  16. AddMenu Pascal 'Generate array' 'commando Gener ≥ "{MPW}"Errors'
  17. AddMenu Pascal 'Paste data' 'PasteData ≥ "{MPW}"Errors'
  18. AddMenu Pascal '(-' ''
  19.  
  20. AddMenu Pascal    'Delete the menu' "DeleteMenu 'Pascal'; ∂
  21. DeleteMenu -help 'Pascal Help';AddMenu Edit '<IPascal menu' 'PascalMenu'"
  22.  
  23. # Other menus :
  24. DeleteMenu Edit 'Pascal menu' 
  25. AddMenu Find '<INext %%-marker /5' 'Find /∂{%%[¬∂}]*∂}/ "{Active}"'
  26. AddMenu Find '<IPred %%-marker /4' 'Find \∂{%%[¬∂}]*∂}\ "{Active}"'
  27. AddMenu -help 'Pascal Help' 'Open "{worksheet}"; Help PascalMenu -f "{MPW}MT2ToolKit:NewItems.Help" ∑∑ "{worksheet}"'
  28.