home *** CD-ROM | disk | FTP | other *** search
/ RBBS in a Box Volume 1 #3.1 / RBBSIABOX31.cdr / magn / m_tp4.msc < prev    next >
Text File  |  1988-06-04  |  4KB  |  132 lines
  1. ; Mouse 1.0 - Configured for Turbo Pascal 4.0
  2. ;
  3. ;
  4.  
  5. Comment  ("Configured for Turbo Pascal 4.0")
  6. Comment  ("  ")
  7. Comment  ("Left Button   :  Main Menu")
  8. Comment  ("Middle Button :  Enter")
  9. Comment  ("Right Button  :  Esc")
  10.  
  11. ; Parameters
  12. ExpertMode (Yes)        ; Exit menu by going off field only
  13. ReverseVideo (Yes)
  14. FixedMenu (No)
  15. EnableBeep (Yes)
  16. Sensitivity (15,5)
  17. Hysteresis (1,1)
  18.  
  19. ;
  20. ; Cursor Definitions
  21. ;
  22. MedKeys: Cursor
  23. (
  24. Left  ([c-Left])
  25. Right ([c-Right])
  26. Up    ([Up])
  27. Down  ([Down])
  28. Sensitivity (15,5)
  29. Hysteresis (1,1)
  30. )
  31. ;
  32. ; Cursor Definitions
  33.  
  34. Menus: Cursor
  35. (
  36. Left  ([Left])
  37. Right ([Right])
  38. Up    ([Up])
  39. Down  ([Down])
  40. )
  41.  
  42. ; Button Definitions
  43.  
  44. LBM: Button (Menu(main))
  45. MB: Button (keys([Enter]))
  46. RB: Button (Keys([Esc]))
  47.  
  48. LBB: Button (Menu(BlockActions))
  49. LBC: Button (Menu(CursorActions))
  50. LBS: Button (Menu(Search))
  51.  
  52. ; Menu Definitions
  53.  
  54. Main: Menu
  55. (
  56.  Title ("TP 4.0 MAIN")
  57.  Item ("Pick",        Keys([F10]"F""P") Cursor(MedKeys))
  58.  Item ("Load",        Keys([F3]) Cursor(Menus))
  59.  Item ("Edit",        Keys([a-E]) Cursor(MedKeys))
  60.  Item ("Save",        Keys([F2]) Cursor(MedKeys))
  61.  Item ("File Menu",   Keys([a-F]) Cursor(MedKeys))
  62.  Item ("Zoom",        Keys([F5]) Cursor(MedKeys))
  63.  Item ("Switch",      Keys([F6]) Cursor(MedKeys))
  64.  Item ("Compile Menu",Keys([a-C]) Cursor(MedKeys))
  65.  Item ("Make",        Keys([F9]) Cursor(MedKeys))
  66.  Item ("Build",       Keys([F10]"C""B") Cursor(MedKeys))
  67.  Item ("Run ",        Keys([a-R]) Cursor(MedKeys))
  68.  Item ("Options",     Keys([F10]"O") Cursor(MedKeys))
  69.  Item ("OS Shell",    Keys([a-F]"O") Cursor(MedKeys))
  70.  Item ("Quit",        Keys([F10]"F""Q") Cursor(MedKeys))
  71.  Item ("BLOCK ACTIONS",  Menu(BlockActions),Button(LBB) Cursor(MedKeys))
  72.  Item ("CURSOR ACTIONS", Menu(CursorActions),Button(LBC) Cursor(MedKeys))
  73.  Item ("SEARCH ACTIONS", Menu(Search),Button(LBS) Cursor(MedKeys))
  74.  Footer ("Turbo Pascal 4.0")
  75. )
  76.  
  77. ;
  78.  
  79. BlockActions: Menu
  80. (
  81.  Title ("BLOCK ACTIONS")
  82.  Item ("Mark Block Begin",   Keys([c-K]"B"))
  83.  Item ("Mark Block End",     Keys([c-K]"K"))
  84.  Item ("Mark Single Word",   Keys([c-K]"T"))
  85.  Item ("Block Move",         Keys([c-K]"V"))
  86.  Item ("Block Copy",         Keys([c-K]"C"))
  87.  Item ("Block Hide",         Keys([c-K]"H"))
  88.  Item ("Block Delete",       Keys([c-K]"Y"))
  89.  Item ("Block Read",         Keys([c-K]"R"))
  90.  Item ("Block Write",        Keys([c-K]"W"))
  91.  Item ("Block Print",        Keys([c-K]"P"))
  92.  Item ("CURSOR ACTIONS", Menu(CursorActions),Button(LBC))
  93.  Item ("RETURN TO MAIN", Menu(Main),Button(LBM))
  94. )
  95.  
  96. CursorActions: Menu
  97. (
  98.  Title ("CURSOR ACTIONS")
  99.  Item ("Top of File",      Keys([c-Q]"R"))
  100.  Item ("Bottom of File",   Keys([c-Q]"C"))
  101.  Item ("Top of Screen",    Keys([c-Q]"E"))
  102.  Item ("Bottom of Screen", Keys([c-Q]"X"))
  103.  Item ("Block Beginning",  Keys([c-Q]"B"))
  104.  Item ("Block End",        Keys([c-Q]"K"))
  105.  Item ("Page Up",          Keys([c-R]))
  106.  Item ("Page Down",        Keys([c-C]))
  107.  Item ("Line Beginning",   Keys([c-Q]"S"))
  108.  Item ("Line End",         Keys([c-Q]"D"))
  109.  Item ("BLOCK ACTIONS",  Menu(BlockActions),Button(LBB))
  110.  Item ("RETURN TO MAIN", Menu(Main),Button(LBM))
  111. )
  112.  
  113. Search: Menu
  114. (
  115.  Title ("SEARCH")
  116.  Item ("Find Word/Phrase",   Keys([c-Q] "F"))
  117.  Item ("Find and Replace",   Keys([c-Q] "A"))
  118.  Item ("Repeat Last Find",   Keys([c-L]))
  119.  Item ("RETURN TO MAIN",     Menu(Main), Button(LBM))
  120. )
  121.  
  122.  
  123. ; Mouse Definition
  124.  
  125. Mouse
  126. (
  127.  Left (LBM)
  128.  Middle (MB)
  129.  LeftRight (MB)
  130.  Right  (RB)
  131.  Cursor (Menus)
  132. )