home *** CD-ROM | disk | FTP | other *** search
/ Bila Vrana / BILA_VRANA.iso / 028A / AUROR.ZIP / WPKBD.AML < prev    next >
Text File  |  1996-07-17  |  22KB  |  589 lines
  1. //--------------------------------------------------------------------
  2. // The Aurora Editor v3.0, Copyright (C) 1993-1996 nuText Systems
  3. //
  4. // KBD.AML
  5. // WordPerfect 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
  25.   key  <alt =>         gotobar                 // to last menu bar item (wp)
  26.   key  <f3>            gotomenu "help"         // goto help menu (wp)
  27.   key  <shift f7>      gotomenu "print"        // goto print menu (wp)
  28.   key  <alt t>         gotobar2                // to last toolbar/drive item
  29.  
  30.   // Scroll
  31.   key  <pgdn>          pagedown                // scroll down (wp)
  32.   key  <pgup>          pageup                  // scroll up (wp)
  33.   key  <grey->         row (getviewtop)        // to page top (wp)
  34.   key  <grey+>         row (getviewbot)        // to page bottom (wp)
  35.   key  <ctrl pgup>     row 1                   // to file top
  36.   key  <ctrl pgdn>     row (getlines)          // to file bottom
  37.   key  <center>        adjustrow               // center cursor
  38.   key  <ctrl up>       rollrow -1              // scroll up one line
  39.   key  <ctrl down>     rollrow  1              // scroll down one line
  40.   key  <ctrl ->        lastpos                 // to last cursor position
  41.  
  42.   // File
  43.   key  <ctrl n>        opennew                 // new edit window
  44.   key  <shift f10>     askopen                 // open prompt (wp)
  45.   key  <alt z>         openlast                // open last window
  46.   key  <alt ->         filelist                // file list
  47.   key  <alt q>         close                   // close window
  48.   key  <f7>            closeall                // close all windows (wp)
  49.  
  50.   // Window
  51.   key  <f5>            winlist                 // window list (wp)
  52.   key  <ctrl z>        maximize                // maximize window
  53.   key  <shift f3>      nextwindow              // next window (wp)
  54.   //key  <f12>           prevwindow              // prev window
  55.   //key  <shift f3>      tile 'v'                // tile vertical
  56.   //key  <shift f4>      tile 'h'                // tile horizontal
  57.   //key  <shift f5>      cascade                 // cascade
  58.   key  <ctrl k><q>     close                   // close window
  59.  
  60.   // Search
  61.   key  <ctrl s>        askscan                 // file scan prompt
  62.   key  <ctrl b>        gotomark 't'            // find top of block
  63.   key  <ctrl 6>        cyclebook               // cycle through bookmarks
  64.  
  65.   // Print
  66.   key  <ctrl p>        print                   // print
  67.   key  <alt p>         print 'b'               // print block
  68.  
  69.   // Macro
  70.   key  <ctrl v>        askeval                 // macro command prompt
  71.   key  <ctrl f1>       shell                   // exit to Dos (wp)
  72.   key  <shift f12>     pickmacro               // macro picklist
  73.   key  <ctrl f12>      runmacro2 "maclist"     // macro menu
  74.  
  75.   // undefined or unnamed keys
  76.   key <otherkey> (keycode)
  77.     say (geteventname (keycode)) + " not defined"
  78.   end
  79.  
  80.  
  81. //--------------------------------------------------------------------
  82. // Prompts and Edit windows
  83. //--------------------------------------------------------------------
  84.  
  85. object prompt
  86.  
  87.   // Controls
  88.   function  '≡'        close                   // close window
  89.   end
  90.  
  91.   function  '*'        enter                   // simulate <enter>
  92.   end                                          //  (2-line box only)
  93.  
  94.   // Cursor
  95.   key  <left>          left                    // move cursor left
  96.   key  <right>         right                   // move cursor right
  97.   key  <home>          col 1                   // to column one
  98.   key  <end>           col  getlinelen + 1     // to end of line (wp)
  99.  
  100.   // Cursor + CUA-marking
  101.   key  <shift left>    left
  102.                        smark
  103.   key  <shift right>   right
  104.                        smark
  105.   key  <shift home>    col 1
  106.                        smark
  107.   key  <shift end>     col getlinelen + 1
  108.                        smark
  109.  
  110.   // Editing
  111.   key  <ins>           setting 'I' TOGGLE      // toggle insert mode (wp)
  112.   key  <del>           delchar                 // delete character (wp)
  113.  
  114.   key  <backspace>     backsp                  // delete left character (wp)
  115.   key  <ctrl [>        literal                 // enter literal character
  116.   key  <ctrl a>        asciilist               // display ascii chart
  117.  
  118.   // Block
  119.   key  <alt f4>        markchar                // mark character (wp)
  120.   key  <alt b>         markcolumn              // mark column
  121.   key  <alt 1>         markword                // mark word
  122.   key  <alt 2>         markeol                 // mark to end of line
  123.   key  <alt u>         destroymark             // unmark
  124.  
  125.   // copy block to prompt
  126.   key  <alt c>
  127.                        instext (getmarktext)
  128.                        col  getlinelen + 1
  129.  
  130.   // paste from clipboard to prompt
  131.   key  <grey*>
  132.                        oldmark = usemark _ClipName
  133.                        instext (getmarktext)
  134.                        usemark oldmark
  135.                        col  getlinelen + 1
  136.  
  137.   // copy from prompt to clipboard
  138.   //key  <grey+>         copy
  139.  
  140.   // Prompt history
  141.   key  <up>            prevhist                // retrieve prev prompt
  142.   key  <down>          nexthist                // retrieve next prompt
  143.   key  <pgup>          askhistory              // history popup menu
  144.   key  <pgdn>          askhistory              // history popup menu
  145.  
  146.   // Exit
  147.   key  <esc>           close                   // quit prompt
  148.   key  <alt q>         close                   // quit prompt
  149.  
  150.   // non-function keys
  151.   key  <char> (character)                      // typeable keys
  152.     write character
  153.   end
  154.  
  155.   // filename completion
  156.   key  <ctrl tab>      askcomplete             // filename completion
  157.   key  <tab>           askcomplete             // filename completion
  158.  
  159.  
  160. //--------------------------------------------------------------------
  161. // Edit windows
  162. //--------------------------------------------------------------------
  163.  
  164. object edit
  165.  
  166.   // Controls
  167.   function  '≡'
  168.     close                                      // close window
  169.   end
  170.  
  171.   // Menu
  172.   key  <esc>           gotobar                 // to last menu bar item
  173.  
  174.   // Cursor
  175.  
  176.   // cursorleft with wrap (wp)
  177.   key  <left>
  178.     if getcol == 1 then                        // wrap if at column 1
  179.       if up then                               // ..and not at first line
  180.         col getlinelen + 1
  181.       end
  182.     else
  183.       left
  184.     end
  185.     smark                                      // cua marking
  186.   end
  187.   key <shift left>  call <left>
  188.  
  189.   // cursorright with wrap (wp)
  190.   key  <right>
  191.     if getcol > getlinelen then                // wrap if at end-of-line
  192.       if down then                             // ..and not at last line
  193.         col 1
  194.       end
  195.     else
  196.       right
  197.     end
  198.     smark                                      // cua marking
  199.   end
  200.   key <shift right>  call <right>
  201.  
  202.   key  <up>            up                      // move cursor up (wp)
  203.   key  <down>          down                    // move cursor down (wp)
  204.  
  205.   key  <shift up>      up
  206.                        smark
  207.   key  <shift down>    down
  208.                        smark
  209.  
  210.   // home key (wp)
  211.   forward  wpdelword
  212.   key  <home>
  213.     case getkey
  214.       when <up>         row (getviewtop)       // page top (wp)
  215.       when <down>       row (getviewbot)       // page bottom (wp)
  216.       when <right>      col getlinelen + 1     // end of line (wp)
  217.       when <left>       col 1                  // column 1 (wp)