home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 2 / fishmore-publicdomainlibraryvol.ii1991xetec.iso / fish / prog_demos / turbotext / support / ttx_qedit.dfn < prev    next >
Text File  |  1991-01-24  |  9KB  |  292 lines
  1.  
  2. /** $VER: TTX_QEdit.dfn Demo 1.0 (9.1.91)
  3.  **
  4.  ** This definition file contains menu and keyboard definitions to roughly
  5.  ** emulate the MS-DOS QEdit editor. The emulation is not exact because there
  6.  ** are various things that QEdit and TurboText do differently, the most
  7.  ** obvious of which are block commands, window operations, and macros.
  8.  **
  9.  ** Written by Chris Bailey
  10.  **/
  11.  
  12.  
  13. MENUS:
  14.  
  15.   MENU " File "
  16.     ITEM "Load"         "" OpenFile
  17.     ITEM "File"         "" ExecARexxString "SaveFile; CloseDoc"
  18.     ITEM "Save"         "" SaveFile
  19.     ITEM "Quit File"    "" CloseDoc
  20.     ITEM "Next"         "" ActivateNextDoc
  21.     ITEM "Prev"         "" ActivatePrevDoc
  22.     ITEM "Read"         "" OpenFile
  23.     ITEM "Change Name"  "" SaveFileAs
  24.     ITEM "Write Block"  "" SaveClip NoBackup
  25.     ITEM "OS Shell"     "" ExecTool NewCLI
  26.     ITEM "*Global File" "" NOP
  27.  
  28.   MENU " Window "
  29.     ITEM "Close"  "" CloseDoc
  30.     ITEM "Grow"   "" SizeWindow 40 40
  31.     ITEM "Split"  "" SplitView Toggle
  32.     ITEM "Next"   "" ActivateNextDoc
  33.     ITEM "One"    "" ActivateLastDoc
  34.     ITEM "Prev"   "" ActivatePrevDoc
  35.     ITEM "Shrink" "" SizeWindow -40 -40
  36.     ITEM "*Zoom"  "" NOP
  37.  
  38.   MENU " Block "
  39.     ITEM "Mark Block Begin" "" MarkBlk
  40.     ITEM "Mark Block End"   "" CopyBlk
  41.     ITEM "Copy Block"       "" PasteClip
  42.     ITEM "Move Block"       "" PasteClip
  43.     ITEM "Delete Block"     "" DeleteBlk
  44.     ITEM "Unmark"           "" MarkBlk
  45.     ITEM "Mark Line"        "" ExecARexxString "OPTIONS RESULTS;GetPrefs FreeForm;f=RESULT;SetPrefs FreeForm OFF;MoveSOL;MarkBlk;MoveEOL;MoveRight;SetPrefs FreeForm f"
  46.  
  47.   MENU " Search "
  48.     ITEM "Find"    "" OpenRequester Find
  49.     ITEM "Replace" "" OpenRequester FindChange
  50.     ITEM "Again"   "" Find
  51.  
  52.   MENU " Print "
  53.     ITEM "Print All"        "" PrintFile
  54.     ITEM "Print Block"      "" PrintClip
  55.     ITEM "*Send Formfeed"   "" NOP
  56.     ITEM "*Set Left Margin" "" NOP
  57.     ITEM "*Set Pagesize"    "" NOP
  58.  
  59.   MENU " Macro "
  60.     ITEM "Macro Record"   "" RecordMacro
  61.     ITEM "Read Macro"     "" OpenMacro
  62.     ITEM "Write Macro"    "" SaveMacro
  63.     BAR
  64.     ITEM "Stop Recording" "" EndMacro
  65.  
  66.   MENU " Editing "
  67.     ITEM "Add Line"              "" ExecARexxString "MoveEOL; InsertLine"
  68.     ITEM "Delete Line"           "" DeleteLine
  69.     ITEM "Delete to End Of Line" "" DeleteEOL
  70.     ITEM "Insert Line"           "" ExecARexxString "MoveSOL; InsertLine; MoveUp"
  71.     ITEM "Join Line"             "" ExecARexxString "MoveEOL; Delete"
  72.     ITEM "Split Line"            "" InsertLine
  73.     ITEM "Undelete Line"         "" UndeleteLine
  74.  
  75.   MENU " Other "
  76.     ITEM "Set Autoindent"     "" SetPrefs AutoIndent TOGGLE
  77.     ITEM "Set Insert"         "" SetPrefs Overstrike TOGGLE
  78.     ITEM "Set Wordwrap"       "" SetPrefs WordWrap TOGGLE
  79.     ITEM "Set Ptabwidth"      "" OpenRequester EditPrefs
  80.     ITEM "Set Ctabwidth"      "" OpenRequester EditPrefs
  81.     ITEM "Set Right Margin"   "" OpenRequester EditPrefs
  82.     ITEM "Set Backups"        "" SetPrefs MakeBackups TOGGLE
  83.  
  84.   MENU " Quit "
  85.     ITEM "Quit all files" "" CloseDoc
  86.     ITEM "Exit all file"  "" CloseDoc
  87.  
  88.   MENU " Prefs "
  89.     ITEM "Display..."       ""  OpenRequester DisplayPrefs
  90.     ITEM "Edit..."          ""  OpenRequester EditPrefs
  91.     ITEM "File..."          ""  OpenRequester FilePrefs
  92.     BAR
  93.     ITEM "Open Prefs..."    ""  OpenPrefs
  94.     ITEM "Save Prefs As..." ""  SavePrefs
  95.     ITEM "Save As Defaults" ""  SaveDefPrefs
  96.     BAR
  97.     ITEM "Open Defs..."     ""  OpenDefinitions
  98. #
  99.  
  100.  
  101. KEYBOARD:
  102.  
  103.   /*
  104.    * Normal function keys
  105.    */
  106.  
  107.   F1            OpenDoc NAME TurboText:Support/TTX_Help.txt
  108.   F2            InsertLine
  109.   F3            SaveFile
  110.   F4            ExecARexxString "OPTIONS RESULTS; SetDisplayLock ON; MoveSOL; GetLine; 'Insert TEXT' RESULT; InsertLine; SetDisplayLock OFF"
  111.   F5            MoveUpScr
  112.   F6            DeleteEOL
  113.   F7            MarkBlk
  114.   F8            MarkBlk
  115.   F9            ExecTool NewCLI CON:0/100/640/100/AmigaShell/CLOSE/SCREENTURBOTEXT
  116.   F10           CloseDoc
  117.  
  118.   /*
  119.    * Shifted function keys
  120.    */
  121.  
  122.   SHIFT-F1      ExecARexxString "MoveSOL; Insert TEXT '  '; MoveEOL"
  123.   SHIFT-F2      NOP
  124.   SHIFT-F3      NOP
  125.   SHIFT-F4      NOP
  126.   SHIFT-F5      CenterView
  127.   SHIFT-F6      NOP
  128.   SHIFT-F7      ShiftLeft
  129.   SHIFT-F8      ShiftRight
  130.   SHIFT-F9      NOP
  131.   SHIFT-F10     CloseDoc
  132.  
  133.   /*
  134.    * Alted function keys
  135.    */
  136.  
  137.   ALT-F1        ExecARexxString "txt = Time(); Insert txt; DO i = 1 TO 8; MoveLeft; Delete; END"
  138.   ALT-F2        InsertLine
  139.   ALT-F3        MoveMatchBkt
  140.   ALT-F4        NOP
  141.   ALT-F5        MoveLeft 80
  142.   ALT-F6        MoveRight 80
  143.   ALT-F7        NOP
  144.   ALT-F8        NOP
  145.   ALT-F9        ExecTool NewCLI CON:0/100/640/100/AmigaShell/CLOSE/SCREENTURBOTEXT
  146.   ALT-F10       ExecARexxString "SaveFile; CloseDoc"
  147.  
  148.   CURSOR_UP     MoveUp
  149.   CURSOR_DOWN   MoveDown
  150.   CURSOR_RIGHT  MoveRight
  151.   CURSOR_LEFT   MoveLeft
  152.  
  153.   CTRL-CURSOR_RIGHT  MoveNextWord
  154.   CTRL-CURSOR_LEFT   MovePrevWord
  155.  
  156.   SHIFT-CURSOR_UP    MoveUpScr
  157.   SHIFT-CURSOR_DOWN  MoveDownScr
  158.   SHIFT-CURSOR_RIGHT MoveNextWord
  159.   SHIFT-CURSOR_LEFT  MovePrevWord
  160.   SHIFT-BACKSPACE    DeleteSOW
  161.   SHIFT-DEL          DeleteEOW
  162.  
  163.   ALT-CURSOR_UP      MoveSOF
  164.   ALT-CURSOR_DOWN    MoveEOF
  165.   ALT-CURSOR_RIGHT   MoveEOL
  166.   ALT-CURSOR_LEFT    MoveSOL
  167.   ALT-BACKSPACE      DeleteSOL
  168.   ALT-DEL            DeleteEOL
  169.  
  170.   CTRL-DEL           DeleteLine
  171.   CTRL-BACKSPACE     DeleteSOW
  172.  
  173.   /* This should really be a reverse tab */
  174.   SHIFT-TAB          MovePrevTabStop
  175.  
  176. /*
  177.  *  The numeric keypad is used for the home and cursor keys. The layout is:
  178.  *
  179.  *            +-----------------------------------------------+
  180.  *            | 7 - Home   |    8 - Up      |   9 - Page Up   |
  181.  *            +------------+----------------+-----------------+
  182.  *            | 4 - Left   |    5 - Dead    |   6 - Right     |
  183.  *            +------------+----------------+-----------------+
  184.  *            | 1 - End    |    2 - Down    |   3 - Page Down |
  185.  *            +------------+----------------+-----------------+
  186.  */
  187.  
  188.   NUM_PAD-0       SetPrefs Overstrike OFF
  189.   NUM_PAD-1       MoveEOL
  190.   NUM_PAD-2       MoveDown
  191.   NUM_PAD-3       MoveDownScr
  192.   NUM_PAD-4       MoveLeft
  193.   NUM_PAD-5       NOP
  194.   NUM_PAD-6       MoveRight
  195.   NUM_PAD-7       MoveSOL
  196.   NUM_PAD-8       MoveUp
  197.   NUM_PAD-9       MoveUpScr
  198.   NUM_PAD-.       SetPrefs Overstrike ON
  199.  
  200.   CTRL-NUM_PAD-1  SaveFile
  201.   CTRL-NUM_PAD-3  MoveEOF
  202.   CTRL-NUM_PAD-7  MoveUpScr
  203.   CTRL-NUM_PAD-9  MoveSOF
  204.  
  205.   ALT-A    MarkBlk
  206.   ALT-B    FormatParagraph
  207.   ALT-C    CopyBlk
  208.   ALT-D    DeleteLine
  209.   ALT-E    OpenFile
  210.   ALT-F    NOP
  211.   ALT-G    DeleteBlk
  212.   ALT-H    OpenDoc NAME TurboText:Support/TTX_Help.txt
  213.   ALT-I    ExecARexxString "MoveSOL; Insert TEXT '  '; MoveEOL"
  214.   ALT-J    ExecARexxString "MoveEOL; Delete"
  215.   ALT-K    NOP
  216.   ALT-L    ExecARexxString "OPTIONS RESULTS;GetPrefs FreeForm;f=RESULT;SetPrefs FreeForm OFF;MoveSOL;MarkBlk;MoveEOL;MoveRight;SetPrefs FreeForm f"
  217.   ALT-M    NOP             /* Move block */
  218.   ALT-N    ActivateNextDoc
  219.   ALT-O    SaveFileAs
  220.   ALT-P    PrintFile
  221.   ALT-Q    CloseDoc
  222.   ALT-R    OpenClip
  223.   ALT-S    InsertLine
  224.   ALT-T    ExecARexxString "Insert Time()"
  225.   ALT-U    MarkBlk
  226.   ALT-V    NOP
  227.   ALT-W    SaveClip NoBackup
  228.   ALT-X    CloseDoc
  229.   ALT-Y    ExecARexxString "Insert Date()"
  230.   ALT-Z    NOP
  231.  
  232.   CTRL-A   MovePrevWord
  233.   CTRL-B   NOP             /* Get & Store Screenbuff */
  234.   CTRL-C   MoveDownScr
  235.   CTRL-D   MoveRight
  236.   CTRL-E   MoveUp
  237.   CTRL-F   MoveNextWord
  238.   CTRL-G   Delete 1
  239.   CTRL-H   ExecARexxString "MoveLeft; Delete"
  240.   CTRL-I   NOP
  241.   CTRL-J   Move
  242.   CTRL-K   SetMeta
  243.   CTRL-L   Find
  244.   CTRL-M   RecordMacro
  245.   CTRL-N   InsertLine
  246.   CTRL-O   NOP             /* 3rd meta for window cmds */
  247.   CTRL-P   NOP
  248.   CTRL-Q   SetMeta2
  249.   CTRL-R   MoveUpScr
  250.   CTRL-S   MoveLeft
  251.   CTRL-T   DeleteEOW
  252.   CTRL-U   UndeleteLine
  253.   CTRL-V   SetPrefs Overstrike TOGGLE
  254.   CTRL-W   MoveUpScr
  255.   CTRL-X   MoveDown
  256.   CTRL-Y   DeleteLine
  257.   CTRL-Z   MoveDownScr
  258.  
  259.   META-B   MarkBlk
  260.   META-C   CopyBlk
  261.   META-D   CloseDoc
  262.   META-E   OpenFile
  263.   META-F   SaveFileAs
  264.   META-H   MarkBlk
  265.   META-K   MarkBlk
  266.   META-N   ActivateNextDoc
  267.   META-P   ActivatePrevDoc
  268.   META-Q   CloseDoc
  269.   META-R   OpenClip
  270.   META-S   SaveFile
  271.   META-T   NOP
  272.   META-V   NOP /* Move block */
  273.   META-W   SaveClip
  274.   META-X   SaveFile
  275.   META-Y   DeleteBlk
  276.  
  277.   META2-A  OpenRequester FindChange
  278.   META2-B  MoveSOF         /* Actually go to start of block */
  279.   META2-C  MoveEOF
  280.   META2-D  MoveEOL
  281.   META2-E  NOP
  282.   META2-F  OpenRequester Find
  283.   META2-I  SetPrefs AutoIndent TOGGLE
  284.   META2-K  MoveEOF         /* Actually go to end of block */
  285.   META2-L  UndeleteLine
  286.   META2-P  NOP             /* Prev position ??             */
  287.   META2-R  MoveSOF
  288.   META2-S  NOP
  289.   META2-X  NOP
  290.   META2-Y  DeleteEOL
  291. #
  292.