home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 132.dms / 132.adf / PTE / Defs / PTE.Def < prev    next >
Text File  |  1987-02-09  |  10KB  |  186 lines
  1. * the definitions in this file have been optimized for fast loading not
  2. * comfortable reading, please see Docs/PTE for more information
  3.  
  4. set path 'PTEDefs:^3' 'PTEDir:Demos/^3' 'PTEDir:Docs/^3' 'PTEDefs:Examples^3' 'DF0:^3'
  5. set delay 50
  6. set rate 14
  7. set environment 1 '- '
  8. set environment 2 'PTEDir:Icons/Def'
  9. set state ''
  10.  
  11. flag clear
  12. flag 254 '  Col ' ''
  13. flag 253 ' Icon ' ''
  14. * get rid of multi-keystroke commands
  15. sequence clear
  16.  
  17. * load the pop-down menu definitions
  18. macro PTEDefs:Menus.Def
  19. menu 2 2 5 off
  20. menu 3 4 2 off
  21. menu 3 4 3 off
  22. menu 3 5 2 off
  23. menu 3 5 3 off
  24. menu 4 3 0 off
  25. menu 4 4 0 off
  26. menu 5 0 0 off
  27. * disable loading of pte.def
  28. menu 6 7 3 off
  29.  
  30. *** cursor keys ****
  31. def up=[up]
  32. def down=[down]
  33. def left=[left]
  34. def right=[right]
  35. def s-up=[page up]
  36. def s-down=[page down]
  37. def s-left=[backtab word]
  38. def s-right=[tab word]
  39. def a-up=[top]
  40. def a-down=[bottom]
  41. def a-left=[begin line]
  42. def a-right=[end line]
  43. def c-up=[scroll up]
  44. def c-down=[scroll down]
  45. def c-left=[scroll left]
  46. def c-right=[scroll right]
  47.  
  48. **** numeric key pad ****
  49. def num-0=[if flag 254][if squeeze mode][replace mode][else][squeeze mode][end if][else][insert toggle][end if]
  50. def num-1=[end line]
  51. def num-2=[down]
  52. def num-3=[page down]
  53. def num-4=[left]
  54. def num-5=[store cursor]
  55. def num-6=[right]
  56. def num-7=[begin line]
  57. def num-8=[up]
  58. def num-9=[page up]
  59. def decimal=[execute key delete]
  60. def s-num-0='0'
  61. def s-num-1='1'
  62. def s-num-2='2'
  63. def s-num-3='3'
  64. def s-num-4='4'
  65. def s-num-5='5'
  66. def s-num-6='6'
  67. def s-num-7='7'
  68. def s-num-8='8'
  69. def s-num-9='9'
  70. def s-minus='-'
  71. def s-decimal='.'
  72. def a-num-0=[toggle flag 254][if flag 254][if insert mode][squeeze mode][end if][else][if squeeze mode][insert mode][end if][end if]
  73. def a-num-1=[last nonblank]
  74. def a-num-2=[next blank line][do][if blank line][down][else][exit loop][end if][loop][center line 10]
  75. def a-num-3=[bottom]
  76. def a-num-4=[backtab word]
  77. def a-num-5=[recall cursor]
  78. def a-num-6=[tab word]
  79. def a-num-7=[first nonblank]
  80. def a-num-8=[prev blank line][do][if blank line][up][else][exit loop][end if][loop][if][prev blank line][down][else][top][end if][center line 10]
  81. def a-num-9=[top]
  82. def a-minus=[forget cursor][recall cursor]
  83. def a-decimal=[store cursor][if no mark][mark char][else][end mark][unanchor][recall cursor][end if][end line][re-mark][recall cursor][forget cursor]
  84.  
  85. **** function keys ****
  86. def f1=[confirm]
  87. def f2=[command cursor][if flag 253][if file exists][environment 241]'^3.info'[else][execute key s-f3][end if][end if][error]'Saving file ...'[execute]'save'[error]
  88. def f3=[execute key f2][execute key f4]
  89. def f4=[command cursor][if modified][error 2]'File Modified! Hit F1 to abandon changes.'[else][error]'Quitting file ...'[end if][execute]'quit'[error]
  90. def f5=[clear last change][begin line][erase end line][error]
  91. def f6=[clear last change][erase end line]
  92. def f7=[delete line]
  93. def f8=[next file]
  94. def f9=[if command cursor][previous command][else][undo][end if]
  95. def f10=[insert line][if blank line][else][first nonblank][end if][down]
  96. def s-f1=[confirm][execute]
  97. def s-f3=[error]'Saving icon ...'[command cursor][delete line]'icon '[environment 2][execute][error]
  98. def s-f4=[store mark][store cursor][if][locate]'Directory "''c-'[right 11][unmark][mark char][end char]'-"'[left][if char in]'-:/'[right][insert mode]'/'[left][end if][mark char][command cursor][delete line]'set envir 9 \''
  99. def s-f4+[import mark][end line]'\''[execute][data cursor][else][error][execute]'set envir 9 \' \''[end if][recall cursor][begin line][unmark][mark char][end word][left][mark char][tab word][if string is]'Dir'[execute]'set env 8 \'dir \''
  100. def s-f4+[else][execute]'set env 8 \'edit \''[end if][command cursor][delete line][envir 8][envir 9][import mark][unmark][data cursor][recall mark][forget mark][recall cursor][forget cursor][down][execute]
  101. def s-f5=[command cursor][delete line][command toggle][if block mark][command toggle]'number '[import mark][unmark][execute][data cursor][begin mark][else][error 2]'Block mark needed for numbering.'[end if]
  102. def s-f6=[clear last change][erase begin line]
  103. def s-f8=[previous file]
  104. def s-f9=[if command cursor][next command][else][last change][end if]
  105. def s-f10=[command cursor][delete line][error]'Hit key to be redefined.'[key name][begin line][store cursor][insert mode]'? key '[recall cursor][forget cursor][execute]
  106. def a-f1=[store cursor][error 1]'Hit key or command to be repeated'[clear flag 250][if next key in]'-'[set flag 250][end if][error]'Hit any key to stop.'[command cursor][delete line][key name][begin line][insert mode]'exec [do][update]'
  107. def a-f1+[if flag 250]'\'\\'[end line]'\''[else]'[exec key '[end line]']'[end if]'[loop]'[recall cursor][recall cursor mode][forget cursor][execute]
  108. def a-f3=[command cursor][delete line][command toggle][unmark][mark line][command toggle][import mark][execute][data cursor][unmark][down]
  109. def a-f4=[import mark]
  110. def a-f5=[command cursor][delete line]'fill'[separator][import mark][unmark][execute][data cursor]
  111. def a-f7=[shift left]
  112. def a-f8=[shift right]
  113. def a-f9=[clear last change]
  114. def a-f10=[exec key a-f5][begin mark][unanchor][store cursor][end mark][recall cursor line][replace mode]'='[down][left][re-mark][fill mark]'+'[unmark][recall cursor][forget cursor]
  115.  
  116. **** mouse buttons ****
  117. def left-button=[if just pressed][if right pressed][if double clicked][execute key a-u][end if][else][pointer cursor][if double clicked][if same]'.directory'[environment 113][execute key s-f4][else][execute key a-w][end if][end if][end if][else]
  118. def left-button+[unanchor][if mark][change mark to char][end if][re-mark char][pointer cursor][re-mark char][end if]
  119. def right-button=[if just pressed][if left pressed][if double clicked][execute key a-u][end if][else][pointer cursor][if double clicked][execute key a-decimal][end if][end if][else][unanchor][if left pressed][if mark][change mark to line][end if]
  120. def right-button+[re-mark line][pointer cursor][re-mark line][else][if mark][change mark to block][end if][re-mark block][pointer cursor][re-mark block][end if][end if]
  121.  
  122. **** misc. keys ****
  123. def escape=[command toggle]
  124. def tab=[if command cursor][separator][else][tab][end if]
  125. def backspace=[backspace]
  126. def s-backspace=[store cursor][if flag 254][squeeze mode][end if][rubout][recall cursor mode][forget cursor]
  127. def return=[if bottom][insert line][end if][if blank line][else][first nonblank][end if][down]
  128. def del=[store cursor][if flag 254][squeeze mode][end if][delete char][recall cursor mode][forget cursor]
  129. def s-tab=[backtab]
  130. def s-del=[if][end word][store mark][unmark][mark char][backtab word][mark char][delete mark][recall mark][forget mark][end if]
  131. def a-del=[delete line]
  132. def a-tab=[tab]
  133. def c-return=[execute]
  134. def close-window=[do][if same]'.directory'[environment 113][execute]'quit con'[else][update][if modified][execute key f3][else][execute key f4][end if][end if][loop]
  135. def help=[execute]'edit PTEDir:Docs/PTEHelp'
  136.  
  137. **** alpha keys ****
  138. def a-a=[store mark][unmark][mark line][copy mark][recall mark][forget mark][down][first nonblank]
  139. def a-b=[mark block]
  140. def a-c=[mark char]
  141. def a-d=[begin mark][delete mark]
  142. def a-e=[end mark]
  143. def a-f=[fill mark]
  144. def a-g=[recall mark][forget mark]
  145. def a-h=[unanchor]
  146. def a-i=[execute key a-w][lowercase][recall mark][forget mark]
  147. def a-j=[join]
  148. def a-k=[execute key a-w][uppercase][recall mark][forget mark]
  149. def a-l=[mark line]
  150. def a-m=[move mark]
  151. def a-n=[center line 10]
  152. def a-o=[overlay block]
  153. def a-r=[re-mark]
  154. def a-s=[split][down][begin line]
  155. def a-t=[transfer block]
  156. def a-u=[if mark][store mark][unmark][end if]
  157. def a-v=[execute key a-w][store cursor][lowercase][begin mark][unmark][mark char][uppercase][recall mark][forget mark][recall cursor][forget cursor]
  158. def a-w=[right][backtab characters][environment 1][store mark][unmark][mark char][end characters][environment 1][left][mark char][right][if not][tab characters][environment 1][end line][end if]
  159. def a-x=[locate]'('[store mark][unmark][left][mark char][right][locate nested]'('')'[left][mark char][begin mark][right]
  160. def a-y=[begin mark]
  161. def a-z=[store mark][copy mark]
  162. def a-1=[lowercase]
  163. def a-2=[uppercase]
  164. def a-3=[escape]
  165. def sa-i=[store mark][unmark][mark line][lowercase][recall mark][forget mark]
  166. def sa-k=[store mark][unmark][mark line][uppercase][recall mark][forget mark]
  167. def sa-x=[locate]')''-'[store mark][unmark][mark char][locate nested]')''(''-'[mark char][end mark]
  168. def sa-d=[if character mark][begin mark][delete mark][recall mark][copy mark][forget mark][else][error 2]'Character mark required.'[end if][store mark][unmark]
  169. def sa-z=[store mark][begin mark][recall mark 2][copy mark][recall mark 2][begin mark][delete mark][recall mark][move mark][forget mark][forget mark][unmark]
  170.  
  171. * demo definitions *
  172. def zz-10 = [execute key zz-13] [insert line] [down] [left margin] [update] [wait 2]
  173. def zz-10 + [execute key zz-13] [insert line] [down] [update] [wait 2]
  174. def zz-10 + [execute key zz-13] [insert line] [down] [update] [wait 2]
  175. def zz-10 + [execute key zz-13] [insert line] [down] [update] [wait 2]
  176. def zz-10 + [execute key zz-13] [insert line] [down] [update] [wait 2]
  177.  
  178. def zz-11 = [execute key zz-13] [insert line] [down] [left margin] [update] [wait 2]
  179. def zz-11 + [execute key zz-13] [insert line] [down] [update] [wait 2]
  180.  
  181. def zz-12 = [execute key zz-13] [insert line] [down] [left margin] [update] [wait 2]
  182. def zz-13 = [if next key] [terminate] [end if]
  183.  
  184. def a-decimal=[store cursor][clear last change][if no mark][mark char][else][end mark][unanchor][recall cursor][end if][if][next blank line][up][else][bottom][end if][last nonblank][insert mode]'.'[left][re-mark][recall cursor][forget cursor]
  185. def a-decimal+[execute]'\0,\0i\0;\0i\0.\0i\0!\0i\0:\0i\0?\0i'[left][store cursor][end mark][undo][recall cursor][forget cursor][re-mark][command cursor][delete line][data cursor][right]
  186.