home *** CD-ROM | disk | FTP | other *** search
/ Bila Vrana / BILA_VRANA.iso / 028A / AUROR.ZIP / QEKBD.AML < prev    next >
Text File  |  1996-07-17  |  23KB  |  623 lines
  1. //--------------------------------------------------------------------
  2. // The Aurora Editor v3.0, Copyright (C) 1993-1996 nuText Systems
  3. //
  4. // KBD.AML
  5. // QEdit/TSE Keyboard definitions (included by Main.aml)
  6. //
  7. // If you have made any changes, save this file and select Recompile
  8. // the Editor from the Set menu. Exit and re-enter the editor for
  9. // your changes to take effect.
  10. //--------------------------------------------------------------------
  11.  
  12. //--------------------------------------------------------------------
  13. // Edit and File Manager windows
  14. //--------------------------------------------------------------------
  15.  
  16. object edit_fmgr
  17.  
  18.   // Controls
  19.   function  '≡'                                // close window
  20.     close
  21.   end
  22.  
  23.   // Menu activation
  24.   key  <esc>           gotobar                 // to last menu bar item (qe)
  25.   key  <f10>           gotobar                 // to last menu bar item (qe)
  26.   key  <f1>            gotomenu "help"         // goto help pull-down menu (qe)
  27.   key  <alt t>         gotobar2                // to last toolbar/drive item
  28.   key  <alt f>         gotomenu "file"         // to file menu (qe)
  29.  
  30.   // Scroll
  31.   key  <pgdn>          pagedown                // scroll down (qe)
  32.   key  <pgup>          pageup                  // scroll up (qe)
  33.   key  <ctrl home>     row (getviewtop)        // to page top (qe)
  34.   key  <ctrl end>      row (getviewbot)        // to page bottom (qe)
  35.   key  <ctrl pgup>     row 1                   // to file top (qe)
  36.   key  <ctrl pgdn>     row (getlines)          // to file bottom (qe)
  37.   key  <shift f5>      adjustrow               // center cursor (qe)
  38.   key  <f5>            adjustrow 1             // scroll to page top (qe)
  39.   key  <ctrl f10>      adjustrow (getviewrows) // scroll to page bottom
  40.  
  41.   // scroll down one line (qe)
  42.   key  <ctrl z>
  43.     rollrow 1
  44.     if getrow > getviewtop then
  45.       up
  46.     end
  47.   end
  48.  
  49.   // scroll up one line (qe)
  50.   key  <ctrl w>
  51.     rollrow -1
  52.     if getrow < getviewbot then
  53.       down
  54.     end
  55.   end
  56.  
  57.   key  <ctrl up>       rollrow -1              // scroll up one line (qe)
  58.   key  <ctrl down>     rollrow  1              // scroll down one line (qe)
  59.   key  <alt f5>        rollcol -1              // scroll left one col (qe)
  60.   key  <alt f6>        rollcol  1              // scroll right one col (qe)
  61.   key  <ctrl q><p>     lastpos                 // to last cursor position (qe)
  62.  
  63.   // File
  64.   key  <alt e>         askopen                 // open prompt (qe)
  65.   key  <alt 0>         filelist                // file list (qe)
  66.   key  <ctrl k><q>     close                   // close window (qe)
  67.   key  <alt x>         closeall                // close all windows (qe)
  68.   key  <shift f1>      quickref 'qw'           // quick function reference
  69.   key  <shift f2>      quickref 'fw'           // function reference
  70.  
  71.   // Window
  72.   key  <ctrl o><z>     maximize                // maximize window (qe)
  73.   key  <ctrl o><n>     nextwindow              // next window (qe)
  74.   key  <ctrl o><p>     prevwindow              // prev window (qe)
  75.   key  <ctrl k><q>     close                   // close file (qe)
  76.  
  77.   // close window (qe)
  78.   key  <ctrl o><c>
  79.     if getwincount > 1 then
  80.       deletewin
  81.     end
  82.     tile 'v'
  83.   end
  84.  
  85.   // one window (qe)
  86.   key <ctrl o><o>
  87.     while getwincount > 1 do
  88.       deletewin
  89.     end
  90.     cascade
  91.   end
  92.  
  93.   // Search
  94.   key  <ctrl s>        askscan                 // file scan prompt
  95.  
  96.   key  <ctrl [>        gotomark 't'            // find top of block (qe)
  97.   key  <ctrl q><b>     call <ctrl [>
  98.   key  <ctrl ]>        gotomark 'b'            // find bot of block (qe)
  99.   key  <ctrl q><k>     call <ctrl ]>
  100.  
  101.   // Set
  102.   key  <ctrl f1>       togglemode              // toggle video mode (qe)
  103.   key  <f12>           recompile               // recompile the editor
  104.  
  105.   // Macro
  106.   key  <alt f9>        askrun                  // Dos command prompt (qe)
  107.   key  <alt f8>        askruncap               // Dos capture prompt
  108.   key  <f9>            shell                   // exit to Dos (qe)
  109.   key  <shift f12>     pickmacro               // macro picklist
  110.   key  <ctrl f12>      runmacro2 "maclist"     // macro menu
  111.  
  112.   // undefined or unnamed keys
  113.   key <otherkey> (keycode)
  114.     say (geteventname (keycode)) + " not defined"
  115.   end
  116.  
  117.  
  118. //--------------------------------------------------------------------
  119. // Prompts and Edit windows
  120. //--------------------------------------------------------------------
  121.  
  122. object prompt
  123.  
  124.   // Controls
  125.   function  '≡'        close                   // close window
  126.   end
  127.  
  128.   function  '*'        enter                   // simulate <enter>
  129.   end                                          //  (2-line box only)
  130.  
  131.   // Cursor
  132.   key  <left>          left                    // move cursor left (qe)
  133.   key  <right>         right                   // move cursor right (qe)
  134.   key  <home>          col 1                   // to column one (qe)
  135.   key  <end>           col  getlinelen + 1     // to end of line (qe)
  136.  
  137.   // Cursor + CUA-marking
  138.   key  <shift left>    left
  139.                        smark
  140.   key  <shift right>   right
  141.                        smark
  142.   key  <shift home>    col 1
  143.                        smark
  144.   key  <shift end>     col getlinelen + 1
  145.                        smark
  146.  
  147.   // Scroll
  148.   key  <f7>            rollcol -(getviewcols - 1)   // page left
  149.   key  <f8>            rollcol   getviewcols - 1    // page right
  150.  
  151.   // Editing
  152.   key  <ins>           setting 'I' TOGGLE      // toggle insert mode (qe)
  153.   key  <del>           delchar                 // delete character (qe)
  154.   key  <backspace>     backsp                  // delete left character (qe)
  155.   key  <f6>            delchar MAX_COL         // erase to end of line (qe)
  156.   key  <alt del>       call <f6>
  157.   key  <ctrl p>        literal                 // enter literal character (qe)
  158.   key  <ctrl a>        asciilist               // display ascii chart (qe)
  159.  
  160.   // Block
  161.   key  <alt a>         markchar                // mark stream (qe)
  162.   key  <alt k>         markcolumn              // mark column (qe)
  163.   key  <ctrl k><t>     markword                // mark word (qe)
  164.   key  <alt 2>         markeol                 // mark to end of line
  165.   key  <alt u>         destroymark             // unmark (qe)
  166.  
  167.   // copy block to prompt (qe)
  168.   key  <alt c>
  169.                        instext (getmarktext)
  170.                        col  getlinelen + 1
  171.  
  172.   // paste from clipboard to prompt (qe)
  173.   key  <grey*>
  174.                        oldmark = usemark _ClipName
  175.                        instext (getmarktext)
  176.                        usemark oldmark
  177.                        col  getlinelen + 1
  178.  
  179.   // copy from prompt to clipboard (qe)
  180.   key  <grey+>         copy
  181.  
  182.   // Prompt history
  183.   key  <up>            prevhist                // retrieve prev prompt
  184.   key  <down>          nexthist                // retrieve next prompt
  185.   key  <pgup>          askhistory              // history popup menu
  186.   key  <pgdn>          askhistory              // history popup menu
  187.  
  188.   // Exit
  189.   key  <esc>           close                   // quit prompt (qe)
  190.   key  <ctrl k><q>     call <esc>
  191.  
  192.   // non-function keys
  193.   key  <char> (character)                      // typeable keys
  194.     write character
  195.   end
  196.  
  197.   // filename completion
  198.   key  <ctrl tab>      askcomplete             // filename completion
  199.   key  <tab>           askcomplete             // filename completion (qe)
  200.  
  201.  
  202. //--------------------------------------------------------------------
  203. // Edit windows
  204. //--------------------------------------------------------------------
  205.  
  206. object edit
  207.  
  208.   // Controls
  209.   function  '≡'
  210.     close                                      // close window
  211.   end
  212.  
  213.   // Menu
  214.   key  <esc>           gotobar                 // to last menu bar item (qe)
  215.  
  216.   // Cursor
  217.   key  <up>            up                      // move cursor up (qe)
  218.   key  <down>          down                    // move cursor down (qe)
  219.  
  220.   // Cursor + CUA-marking
  221.   key  <shift up>      up
  222.                        smark
  223.   key  <shift down>    down
  224.