home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 2: Collection B / 17Bit_Collection_B.iso / files / 2234a.dms / in.adf / S / .edrc next >
Encoding:
Text File  |  1993-03-15  |  5.2 KB  |  141 lines
  1. #DME setup file - do not delete and carry in s: if you
  2. #move DME and you want the file requester etc
  3. #
  4. #   DME menus
  5. #   ~~~~~~~~~
  6. #   Menus originally by Mike Doodson, July 1991
  7. #   Extra, and improved options for BenchMaster 1.1 by Simon Evans 1992
  8.  
  9. #Initial Settings
  10. resize 77 30
  11. insertmode on
  12. savetabs on
  13. addpath s:
  14. margin 70
  15. wordwrap off
  16. title (WELCOME TO DME!)
  17.  
  18. #User Key Mapping
  19. map (bs)     (ifelse !l (bs) (up last join))
  20. map (del)    (ifelse !r (del) (join))
  21. map (return) (split down first)
  22. map (left)   (ifelse l `if !t `up last'' left)
  23. map (right)  (ifelse r `if !b `down first'' right)
  24. map (help)   (execute (sys:file/ppmore sys:Help/DME.hlp))
  25. map (nk9)    (pageup)
  26. map (nk3)    (pagedown)
  27. map (nk8)    (up)
  28. map (nk2)    (down)
  29. map (nk4)    (ifelse l `if !t `up last'' left)
  30. map (nk6)    (ifelse r `if !b `down first''right)
  31. map (nk7)    (top)
  32. map (nk1)    (bottom)
  33. map (s-up)   (top)
  34. map (s-down) (bottom)
  35. map (R-rmb)  (menuon)
  36. map (a-up)   (screentop)
  37. map (a-down) (screenbottom)
  38. map (c-up) (pageup)
  39. map (c-down) (pagedown)
  40.  
  41. map (f1) (newwindow arpload resize 77 30)
  42. map (s-f1) (newfile unnamed)
  43. map (f2) (arpload chfilename \$filename)
  44. map (s-f2) (iconify)
  45. map (f3) (if m saveold saveas RRD:dme.wrk)
  46. map (f4) (arpsave saveas RRD:dme.wrk)
  47. map (f5) (block)
  48. map (f6) (unblock)
  49. map (f7) (bsave RRD:dme.temp bdelete)
  50. map (f8) (bcopy)
  51. map (f9) (insfile RRD:dme.temp)
  52. map (s-f10) (quit)
  53. map (f10) (saveas RRD:dme.prn execute (file/pptype RRD:dme.prn))
  54. map (s-f3) (first block last block bsave RRD:dme.temp bdelete first)
  55. map (s-f4) (insline)
  56. map (s-f5) (insertmode toggle)
  57. map (s-f6) (WORDWRAP toggle)
  58. map (s-f7) (resize 77 30)
  59. map (s-f8) (s-up escimm (find))
  60. map (s-f9) (execute newshell)
  61. #Menus definitions
  62.  
  63. menuoff
  64. menuadd (PROJECT) CLEAR         (newfile unnamed)
  65. menuadd (PROJECT) OPEN          (arpload chfilename \$filename)
  66. menuadd (PROJECT) (INSERT FILE) (arpinsfile)
  67. menuadd (PROJECT) SAVE          (if m saveold saveas RRD:dme.wrk)
  68. menuadd (PROJECT) (SAVE AS)     (arpsave saveas RRD:dme.wrk)
  69. menuadd (PROJECT) (---------)   ()
  70. menuadd (PROJECT) (PRINT)       (saveas RRD:dme.prn execute (file/pptype RRD:dme.prn) execute (del RRD:dme.prn))
  71. menuadd (PROJECT) (PRINT)       (saveas RRD:dme.prn execute (file/pptype RRD:dme.prn) execute (del RRD:dme.prn))
  72. menuadd (PROJECT) (PRINT ?)     (execute (file/pptype))
  73. menuadd (PROJECT) (--------- )  ()
  74. menuadd (PROJECT) CLOSE         (quit)
  75.  
  76. menuadd (WINDOW) ICONIFY      (iconify)
  77. menuadd (WINDOW) (MORE DME)   (newwindow arpload resize 77 30)
  78. menuadd (WINDOW) SHELL        (execute newshell)
  79. menuadd (WINDOW) (---------)  ()
  80. menuadd (WINDOW) PAL          (resize 77 30)
  81. menuadd (WINDOW) NTSC         (resize 77 23)
  82. menuadd (WINDOW) SIZE         (escimm (resize ))
  83. menuadd (WINDOW) (--------- ) ()
  84. menuadd (WINDOW) CLOSE        (quit)
  85.  
  86. menuadd (EDIT ) (MARK BLOCK)   (block)
  87. menuadd (EDIT ) (UNMARK BLOCK) (unblock)
  88. menuadd (EDIT ) (CUT BLOCK)    (bsave RRD:dme.temp bdelete)
  89. menuadd (EDIT ) (COPY BLOCK)   (bcopy)
  90. menuadd (EDIT ) PASTE          (insfile RRD:dme.temp)
  91. menuadd (EDIT ) (---------)    ()
  92. menuadd (EDIT ) (CUT LINE)     (first block last block bsave RRD:dme.temp bdelete first)
  93. menuadd (EDIT ) (INSERT LINE)  (insline)
  94. menuadd (EDIT ) (--------- )   ()
  95. menuadd (EDIT ) UNDO           (insfile RRD:dme.temp)
  96.  
  97. menuadd CHARACTER (NORMAL/RESET)  ((\\\)(\\\))
  98. menuadd CHARACTER (BOLD ON)       ( `\\\' )
  99. menuadd CHARACTER (ITALTIC ON)    ( `\\\' )
  100. menuadd CHARACTER (UNDERLINED ON) ( `\\\' )
  101. menuadd CHARACTER (---------)     ()
  102. menuadd CHARACTER (COLOUR 0)      ( `\\\' )
  103. menuadd CHARACTER (COLOUR 1)      ( `\\\' )
  104. menuadd CHARACTER (COLOUR 2)      ( `\\\' )
  105. menuadd CHARACTER (COLOUR 3)      ( `\\\' )
  106.  
  107. menuadd DOCUMENT (SET MARGIN   TO?)   (escimm (margin ))
  108. menuadd DOCUMENT (SET MARGIN   @60)   (MARGIN 60)
  109. menuadd DOCUMENT (RESET MARGIN @70)   (MARGIN 70)
  110. menuadd DOCUMENT (---------)          ()
  111. menuadd DOCUMENT (WORDWRAP ON/OFF)    (WORDWRAP toggle)
  112. menuadd DOCUMENT (INSERT ON/OFF)      (insertmode toggle)
  113.  
  114. menuadd PARAGRAPH (INDENT)       ( `\\\      ' setparcol 6)
  115. menuadd PARAGRAPH (INDENT OFF)   (setparcol 0)
  116. menuadd PARAGRAPH (---------)    ()
  117. menuadd PARAGRAPH (REFORMAT)     (last while !l (up last) down REFORMAT)
  118. menuadd PARAGRAPH (JUSTIFY EVEN) (last while !l (up last) down reformat down last while !l (up justify full down down last))
  119. menuadd PARAGRAPH (JUSTIFY LEFT) (last while !l (up last) down reformat down last while !l (up unjustify down down last))
  120.  
  121. menuadd SEARCH FIND             (s-up escimm (find ))
  122. menuadd SEARCH (REPEAT LAST FIND)    (next)
  123. menuadd SEARCH CHANGE             (escimm (findr ))
  124. menuadd SEARCH (REPEAT LAST CHANGE)  (nextr)
  125. menuadd SEARCH (GLOBAL REPLACE)      (escimm (findstr ) escimm (repstr ) repeat lbot(nextr))
  126. menuadd SEARCH (IGONORE CASE ON S&R) (ignorecase toggle)
  127.  
  128. menuadd PREFS/INFO (CONFIG EDIT)    (newwindow newfile sys:s/.edrc menuoff title (CONFIGURATION FILE) resize 77 30)
  129. menuadd PREFS/INFO (SAVE CONFIG)    (saveas sys:s/.edrc)
  130. menuadd PREFS/INFO (SYSTEM PREFS)   (execute sys:system/preferences)
  131. menuadd PREFS/INFO (FONT SET)       (escimm (setfont ))
  132. menuadd PREFS/INFO (---------)      ()
  133. menuadd PREFS/INFO (VIEWCRUNCHED)   (execute sys:file/ppmore)
  134. menuadd PREFS/INFO (--------- )     ()
  135. menuadd PREFS/INFO (HELP!)          (help)
  136.  
  137. menuon
  138.  
  139. #end of file
  140.  
  141.