home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 2 / fishmore-publicdomainlibraryvol.ii1991xetec.iso / fish / prog_demos / turbotext / support / ttx_txed.dfn < prev    next >
Text File  |  1991-01-24  |  3KB  |  93 lines
  1.  
  2. /** $VER: TTX_TxEd.dfn Demo 1.0 (3.1.91)
  3.  **
  4.  ** This definition file contains menu, keyboard and mouse definitions to
  5.  ** emulate the TxEd+ editor.
  6.  **
  7.  ** Written by Martin Taillefer
  8.  **/
  9.  
  10.  
  11. MENUS:
  12.  
  13.   MENU " Project "
  14.     ITEM "Clear"      ""  ClearFile
  15.     ITEM "Open"       "O" OpenFile
  16.     ITEM "Save"       "W" SaveFile
  17.     ITEM "Save AS"    "A" SaveFileAs
  18.     ITEM "Print Clip" "P" PrintClip
  19.     ITEM "QUIT"       "Q" CloseDoc
  20.  
  21.   MENU " Edit "
  22.     ITEM "Mark Block"   "B" MarkBlk
  23.     ITEM "Cut Block"    "X" CutBlk
  24.     ITEM "Copy Block"   "C" CopyBlk
  25.     ITEM "Insert Block" "I" PasteClip
  26.     ITEM "Delete Line"  "K" DeleteLine
  27.     ITEM "Del to EOL"   "Y" DeleteEOL
  28.     ITEM "UnDelete Ln"  "L" UndeleteLine
  29.     ITEM "Delete Word"  "/" DeleteEOW
  30.  
  31.   MENU " Cursor "
  32.     ITEM "Fwrd Word"       "." MoveNextWord
  33.     ITEM "Back Word"       "," MovePrevWord
  34.     ITEM "Beg/End of Ln"   "]" ExecARexxString "OPTIONS RESULTS; GetCursorPos; PARSE VAR RESULT x col .; IF col=1 THEN MoveEOL; ELSE MoveSOL"
  35.     ITEM "Scroll Up"       "U" MoveUpScr
  36.     ITEM "Scroll Down"     "D" MoveDownScr
  37.     ITEM "Beg/End of file" "T" ExecARexxString "OPTIONS RESULTS; GetCursorPos; PARSE VAR RESULT line .; IF line=1 THEN MoveEOF; ELSE MoveSOF"
  38.     ITEM "Jump to line"    "J" Move
  39.  
  40.   MENU " Search "
  41.     ITEM "Search"     "S" ExecARexxString "CALL SetClip('TTX_TxEd','Find'); OpenRequester Find"
  42.     ITEM "Replace"    "R" ExecARexxString "CALL SetClip('TTX_TxEd','Change'); OpenRequester FindChange"
  43.     ITEM "Repeat S/R" "G" ExecARexxString "clip = GetClip('TTX_TxEd'); IF clip = 'Find' THEN Find; IF clip = 'Change' THEN FindChange"
  44.  
  45.   MENU " Random "
  46.     ITEM "Word Wrap"  ""  SetPrefs WordWrap Toggle
  47.     ITEM "Overstrike" "V" SetPrefs Overstrike Toggle
  48.     ITEM "Read Only"  ""  SetReadOnly Toggle
  49.     ITEM "Hex Entry"  "H" OpenRequester Hex
  50.     ITEM "Color"      "2" OpenRequester DisplayPrefs
  51.     ITEM "New CLI"    "3" ExecTool NewCLI CON:0/100/640/100/AmigaShell/CLOSE/SCREENTURBOTEXT
  52.     ITEM "More TTX"   "4" OpenDoc
  53.     ITEM "Paragraph"  "F" FormatParagraph
  54.     ITEM "Tab Size"   "    " OpenRequester EditPrefs
  55.     ITEM "Cmd Line"   "5" ExecARexxMacro Console REXX:CmdShell
  56.  
  57.   MENU " Prefs "
  58.     ITEM "Display..."          "" OpenRequester DisplayPrefs
  59.     ITEM "Edit..."             "" OpenRequester EditPrefs
  60.     ITEM "File..."             "" OpenRequester FilePrefs
  61.     BAR
  62.     ITEM "Open Prefs..."       "" OpenPrefs
  63.     ITEM "Save Prefs As..."    "" SavePrefs
  64.     ITEM "Save As Defaults"    "" SaveDefPrefs
  65.     BAR
  66.     ITEM "Open Defs..."        "" OpenDefinitions
  67. #
  68.  
  69.  
  70. KEYBOARD:
  71.  
  72.   CURSOR_UP          MoveUp
  73.   CURSOR_DOWN        MoveDown
  74.   CURSOR_RIGHT       MoveRight
  75.   CURSOR_LEFT        MoveLeft
  76.   SHIFT-CURSOR_UP    MoveUpScr
  77.   SHIFT-CURSOR_DOWN  MoveDownScr
  78.   SHIFT-CURSOR_RIGHT MoveNextWord
  79.   SHIFT-CURSOR_LEFT  MovePrevWord
  80.   CTRL-CURSOR_UP     MoveSOF
  81.   CTRL-CURSOR_DOWN   MoveEOF
  82.   CTRL-CURSOR_RIGHT  MoveEOL
  83.   CTRL-CURSOR_LEFT   MoveSOL
  84.  
  85.   ENTER              InsertLine NoBreak Indent
  86. #
  87.  
  88.  
  89. MOUSE_BUTTONS:
  90.  
  91.   DOUBLELEFT MarkBlk
  92. #
  93.