home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / AUROR21A.ZIP / QEMENU.AML < prev    next >
Text File  |  1995-09-01  |  18KB  |  445 lines
  1.  
  2. // -------------------------------------------------------------------
  3. // The Aurora Editor v2.1
  4. // Copyright 1993-1995 nuText Systems. All Rights Reserved Worldwide.
  5. //
  6. // QEdit/TSE Menu definitions (included by MAIN.AML)
  7. //
  8. // If you have made any changes, save this file and select 'Recompile
  9. // the Editor' from the Set menu. Exit and re-enter the editor for
  10. // your changes to take effect.
  11. // -------------------------------------------------------------------
  12.  
  13. // -------------------------------------------------------------------
  14. //  Edit Window menu bar and tool bar
  15. // -------------------------------------------------------------------
  16.  
  17.   function  EditMen
  18.  
  19.     // menu bar
  20.     menubar "" 1
  21.       item "&File"     "editFile"
  22.       item "&Window"   "editWindow"
  23.       item "&Block"    "editBlock"
  24.       item "&Search"   "editSearch"
  25.       item "F&old"     "editFold"
  26.       item "&Edit"     "editEdit"
  27.       item "&Clip"     "editClip"
  28.       item "&Print"    "editPrint"
  29.       item "Se&t"      "editSet"
  30.       item "M&acro"    "editMacro"
  31.       item "&Help"     "editHelp"
  32.     end
  33.  
  34.     // tool bar
  35.     menubar "" 2
  36.       item "<&&≡>"     toolbar                 // close tool bar
  37.       item "<&&?>"     quickref 'u' 'f'        // users guide
  38.       item "<&&*>"     open "*.*"              // display file manager
  39.       item "<&&/>"     copywin                 // copy window
  40.       item "<&&─>"     splitwin 'h'            // split window horz
  41.       item "<&&|>"     splitwin 'v'            // split window vert
  42.       item "<&&o>"     askopen                 // open prompt
  43.       item "<&&s>"     save                    // save file
  44.       item "<&&F>"     askfind                 // find prompt
  45.       item "<&&f>"     findlast                // do last find/replace
  46.       item "<&&r>"     formatblock2            // reformat block
  47.       item "<&&«>"     undo                    // undo last change
  48.       item "<&&»>"     redo                    // redo last change
  49.       item "<&&>>"     foldblock2              // fold block
  50.       item "<&&<>"     destroyfold2            // destroyfold
  51.     end
  52.   end
  53.  
  54.  
  55. // -------------------------------------------------------------------
  56. //  Edit Window pulldown menus
  57. // -------------------------------------------------------------------
  58.  
  59.   menu  "editFile"
  60.     item " &New"                            opennew
  61.     item " &Open..                <alt e>"  askopen
  62.     item " Open and &Insert..     <alt r>"  askinsert
  63.     item " Open &Binary.."                  askopenb
  64.     item " Open Las&t"                      openlast
  65.     item " &Rename..              <alt o>"  askname
  66.     item " &Save              <ctrl k><s>"  save
  67.     item " Sa&ve As.."                      asksaveas
  68.     item "-"
  69.     item " &File Manager.."                 open "*.*"
  70.     item " Ne&xt                  <alt n>"  nextfile
  71.     item " &Prev                  <alt p>"  prevfile
  72.     item " &List..                <alt 0>"  filelist
  73.     item "─"
  74.     item " &Close             <ctrl k><q>"  close
  75.     item " Close &All             <alt x>"  closeall
  76.     item " Sav&e and Close    <ctrl k><x>"  close 's'
  77.     item " Save an&d Close All"             closeall 's'
  78.     item '─'
  79.     item " Abo&ut.."                        about
  80.   end
  81.  
  82.  
  83.   menu  "editWindow"
  84.     item " &Restore"                       restore
  85.     item " &Move/Size       <ctrl o><r>"   sizekey
  86.     item " P&an               <ctrl f6>"   pankey
  87.     item " M&inimize"                      minimize
  88.     item " Ma&ximize        <ctrl o><z>"   maximize
  89.     item " &Next            <ctrl o><n>"   nextwindow
  90.     item " &Prev            <ctrl o><p>"   prevwindow
  91.     item " &List.."                        winlist
  92.     item "─"
  93.     item " &Copy"                          copywin
  94.     item " Split Hor&z      <ctrl o><h>"   splitwin 'h'
  95.     item " Split Ver&t      <ctrl o><v>"   splitwin 'v'
  96.     item "─"
  97.     item " Ca&scade"                       cascade
  98.     item " Tile &Horz"                     tile 'h'
  99.     item " Tile &Vert"                     tile 'v'
  100.     item "─"
  101.     item " Tool &Bar          <ctrl f8>"   toolbar
  102.     item " Pr&ompt Style.."                runcfg "prom"
  103.   end
  104.  
  105.   menu  "editMark"
  106.     item " Mark &Line           <alt l>"   markline
  107.     item " Mark &Column         <alt b>"   markcolumn
  108.     item " Mark C&haracter      <alt a>"   markchar
  109.     item " Mark &Word       <ctrl k><t>"   markword
  110.     item " Mark to &EOL         <alt 2>"   markeol
  111.     item " Mark &Paragraph      <alt 3>"   markpara "tb"
  112.     item "─"
  113.     item " &Unmark              <alt u>"   destroymark
  114.   end
  115.  
  116.   menu  "editBlock"
  117.     item " Mar&k..                    "    submenu "editMark"
  118.     item " &Copy                <alt c>"    copyblock2
  119.     item " Copy &Over           <alt z>"    copyblockover
  120.     item " &Move                <alt m>"    moveblock2
  121.     item " Mo&ve Over"                      moveblockover
  122.     item " &Delete              <alt g>"    deleteblock2
  123.     item " &Indent           <shift f8>"    shiftblock  1
  124.     item " Uninden&t         <shift f7>"    shiftblock -1
  125.     item "─"
  126.     item " &Fill            <ctrl k><l>"    fillblock2
  127.     item " &Reformat            <alt b>"    formatblock2
  128.     item " R&eformat Right"                 formatblock2 "rj"
  129.     item " S&ave..              <alt w>"    saveblock2
  130.     item " &Sort             <shift f3>"    sortblock2
  131.     item " Lo&wercase          <alt f4>"    caseblock 'l'
  132.     item " U&ppercase        <shift f4>"    caseblock
  133.     item "─"
  134.     item " &Left Justify"                   justblock2 'l'
  135.     item " Ri&ght Justify"                  justblock2 'r'
  136.     item " Ce&nter          <ctrl k><c>"    justblock2 'c'
  137.   end
  138.  
  139.   menu  "editSearch"
  140.     item " &Find..   <ctrl q><f> or <ctrl f>"   askfind
  141.     item " Re&place..               <ctrl r>"   askrepl
  142.     item " &Repeat Last Find/Repl   <ctrl l>"   findlast
  143.     item " &Scan Files..            <ctrl s>"   askscan
  144.     item " &Incremental Search      <ctrl i>"   isearch
  145.     item " Find &Occurrences..       <alt v>"   askfindo
  146.     item "─"
  147.     item " &Quick Bookmark"                     quickbook
  148.     item " Pre&v Bookmark"                      cyclebook
  149.     item " Place &Bookmark..        <ctrl 2>"   placebook
  150.     item " &Go to Bookmark..        <ctrl 6>"   askbook
  151.     item "─"
  152.     item " Go to &Line..            <ctrl j>"   askrow
  153.     item " Go to Bloc&k Start    <ctrl q><b>"   gotomark 't'
  154.     item " Go to Block En&d      <ctrl q><k>"   gotomark 'b'
  155.     item " Go to Ne&xt Fold          <alt 7>"   search2 "f/f"
  156.     item "─"
  157.     item " Find &Matching Char      <alt f3>"   gotomatch2
  158.     item " Go to Compiler &Error    <alt f7>"   gotoerror
  159.   end
  160.  
  161.   menu  "editFold"
  162.     item " &Fold Next Line          <alt 8>"    foldline
  163.     item " &Unfold Next Line        <alt 9>"    foldline 'u'
  164.     item "─"
  165.     item " C&reate Fold"                        createfold
  166.     item " &Destroy Fold"                       destroyfold2
  167.     item " &Open Fold               <alt \\>"   openfold
  168.     item " &Close Fold              <alt \\>"   closefold
  169.     item "─"
  170.     item " Fold Bloc&k"                         foldblock2
  171.     item " Fold Block Fl&at"                    foldflat
  172.     item " Des&troy Block Folds"                foldblock 'ds'
  173.     item " O&pen Block Folds"                   foldblock 'os'
  174.     item " C&lose Block Folds"                  foldblock 'cs'
  175.     item "─"
  176.     item " Destro&y All Folds"                  foldall 'ds'
  177.     item " Ope&n All Folds          <alt [>"    foldall 'os'
  178.     item " Clo&se All Folds         <alt ]>"    foldall 'cs'
  179.     item "─"
  180.     item " &Export without Folds.."             asksaveas 'x'
  181.     item " E&xport Block without Folds.."       saveblock2 'x'
  182.   end
  183.  
  184.   menu  "editEdit"
  185.     item " &Undo                  <ctrl u>"   undo
  186.     item " &Redo               <ctrl k><r>"   redo
  187.     item "─"
  188.     item " &Insert Line   <alt f2> or <f2>"   insline2
  189.     item " &Delete Line            <alt d>"   delline
  190.     item " &Split Line             <alt s>"   splitline2
  191.     item " &Join Line              <alt j>"   joinline
  192.     item "─"
  193.     item " &Erase to End              <f6>"   delchar (getlinelen)
  194.     item " Delete Right &Word     <ctrl t>"   delword
  195.     item " Du&plicate Line            <f4>"   insline (gettext)
  196.     item " Sw&ap Lines           <ctrl f2>"   swapline
  197.     item " Ce&nter Line        <ctrl o><t>"   centerline
  198.     item "─"
  199.     item " &Comment Line          <alt f1>"   commentline
  200.     item " Enter &Literal..       <ctrl p>"   literal
  201.     item " ASCII C&hart..         <ctrl a>"   asciilist
  202.     item " Date/&Time Stamp"                  timestamp
  203.     item " E&xpand Tabs"                      tabfile
  204.     item " Hi&ghlight Word"                   hiliteword
  205.   end
  206.  
  207.   menu  "editClip"
  208.     item " Cu&t                     <grey->"  cut
  209.     item " Cut &Append         <ctrl grey->"  cut 'a'
  210.     item " &Copy                    <grey+>"  copy
  211.     item " Cop&y Append        <ctrl grey+>"  copy 'a'
  212.     item " Copy to &Windows"                  copy 'w'
  213.     item "─"
  214.     item " &Paste                   <grey*>"  paste
  215.     item " Paste &Over         <ctrl grey*>"  paste 'o'
  216.     item " Paste &from Windows"               paste 'w'
  217.     item "─"
  218.     item " C&lear              <ctrl grey/>"  clear
  219.     item " Current Clip&board..|*"            askclip
  220.   end
  221.  
  222.   menu  "editPrint"
  223.     item " &Print"                            print
  224.     item " Print &Block"                      print 'b'
  225.     item " Print &Formfeed"                   printstr (char 12)
  226.     item "-"
  227.     item " &Header/Footer..|*"                askprthdr
  228.     item " Printer &Settings..|*"             runcfg "print"
  229.   end
  230.  
  231.   // Note: do not change the first 12 lines of this menu
  232.   // (except for key definitions)
  233.   menu  "editSet"
  234.     item " &AutoIndent          <ctrl q><i>"   setting 'A' TOGGLE
  235.     item " &Backup"                            setting 'B' TOGGLE
  236.     item " Line &Draw              <ctrl v>"   setting 'D' TOGGLE
  237.     item " Line St&yle..                  "   submenu "LineStyle"
  238.     item " &Match Character"                   setting 'M' TOGGLE
  239.     item " &Smart Tabs          <ctrl q><t>"   setting 'S' TOGGLE
  240.     item " Synta&x Highlighting"               setting 'X' TOGGLE
  241.     item " &Translate"                         setting 'T' TOGGLE
  242.     item " &Undo"                              setting 'U' TOGGLE
  243.     item " &Variable Tabs"                     setting 'V' TOGGLE
  244.     item " &Word Wrap"                         setting 'W' TOGGLE
  245.     item " &Live Word Wrap      <ctrl o><w>"   setting 'L' TOGGLE
  246.     item "─"
  247.     item " Mar&gins and Tabs..|*"              runcfg "marg"
  248.     item " &Line Delimiter Options..|*"        runcfg "ldlm"
  249.     item "─"
  250.     item " &Configuration and Setup..|*"       runcfg "main"
  251.     item " Save Co&nfiguration"                savecfg
  252.     item "─"
  253.     item " &Recompile the Editor      <f12>"   recompile
  254.   end
  255.  
  256.   // Note: do not change this menu (except for key definitions)
  257.   menu  "LineStyle"
  258.     item " &Single"               setdraw 0
  259.     item " Double &Horizontal"    setdraw 1
  260.     item " Double &Vertical"      setdraw 2
  261.     item " &Double"               setdraw 3
  262.     item " &Eraser"               setdraw 4
  263.   end
  264.  
  265.   menu  "editMacro"
  266.     item " &Record Toggle        <ctrl m>"    record
  267.     item " &Play             <ctrl enter>"    play
  268.     item " &Erase"                            erasekey
  269.     item " Era&se All"                        erasekey 'a'
  270.     item " Ope&n.."                           askopenkey
  271.     item " Sa&ve.."                           asksavekey
  272.     item " &Assign to Key.."                  assignkey
  273.     item "─"
  274.     item " &Macro List..       <ctrl f12>"    runmac "maclist"
  275.     item " &Key Assignments.."                opencfg "kbd"
  276.     item " Sho&w Available Keys.."            runmac "keydef"
  277.     item "─"
  278.     item " Macro E&xpression.."               askeval
  279.     item " R&un Macro..          <ctrl x>"    askrmacro
  280.     item " Compi&le Macro.."                  askcmacro
  281.     item "─"
  282.     item " &OS Command..         <alt f9>|*"  askrun
  283.     item " OS Cap&ture..         <alt f8>"    askruncap
  284.     item " OS S&hell                 <f9>|*"  shell
  285.   end
  286.  
  287.   menu  "editHelp"
  288.     item " &User's Guide Topics"                     runmac "helpuser"
  289.     item " User's &Guide"                            quickref 'u'
  290.     item " User &Tips"                               quickref 't'
  291.     item "-"
  292.     item " &Language Reference Topics"               runmac "helplang"
  293.     item " Language &Reference"                      quickref 'l'
  294.     item "-"
  295.     item " &Function Reference          <shift f2>"  quickref 'f'
  296.     item " Function &Quick Reference    <shift f1>"  quickref 'q'
  297.     item "-"
  298.     item " &Ordering Information"                    quickref 'o'
  299.   end
  300.  
  301.  
  302. // -------------------------------------------------------------------
  303. //  File Manager window menu bar
  304. // -------------------------------------------------------------------
  305.  
  306.   function  FmgrMen
  307.     menubar "" 1
  308.       item "&File"    "fmgrFile"
  309.       item "&Window"  "fmgrWindow"
  310.       item "&Mark"    "fmgrMark"
  311.       item "&Command" "fmgrCommand"
  312.       item "&Sort"    "fmgrSort"
  313.       item "&Print"   "fmgrPrint"
  314.       item "Se&t"     "fmgrSet"
  315.       item "M&acro"   "editMacro"
  316.       item "&Help"    "editHelp"
  317.     end
  318.   end
  319.  
  320.  
  321. // -------------------------------------------------------------------
  322. //  File Manager window pulldown menus
  323. // -------------------------------------------------------------------
  324.  
  325.   menu  "fmgrFile"
  326.     item " &New"                           opennew
  327.     item " &Open..               <alt e>"  askopen
  328.     item " Open &Binary.."                 askopenb
  329.     item " Open Las&t"                     openlast
  330.     item " &Parent          <ctrl baksp>"  fup
  331.     item " R&efresh"                       reopen
  332.     item "─"
  333.     item " &Close            <ctrl k><q>"  close
  334.     item " Close &All            <alt x>"  closeall
  335.     item "─"
  336.     item " Abo&ut.."                       about
  337.   end
  338.  
  339.   menu  "fmgrWindow"
  340.     item " &Restore"                      restore
  341.     item " &Move/Size      <ctrl o><r>"   sizekey
  342.     item " P&an              <ctrl f6>"   pankey
  343.     item " M&inimize"                     minimize
  344.     item " Ma&ximize       <ctrl o><z>"   maximize
  345.     item " &Next           <ctrl o><n>"   nextwindow
  346.     item " &Prev           <ctrl o><p>"   prevwindow
  347.     item " &List.."                       winlist
  348.     item "─"
  349.     item " Ca&scade         <shift f5>"   cascade
  350.     item " Tile &Horz"                    tile 'h'
  351.     item " Tile &Vert"                    tile 'v'
  352.     item "─"
  353.     item " Pr&ompt Style.."               runcfg "prom"
  354.   end
  355.  
  356.   menu  "fmgrMark"
  357.     item " Mark &Toggle     <space>"     fmark
  358.     item "─"
  359.     item " &Mark All        <alt m>"     fmark "ma"
  360.     item " &Unmark All      <alt u>"     fmark "ua"
  361.   end
  362.  
  363.   menu  "fmgrCommand"
  364.     item " &Open                  <enter>"    fopen
  365.     item " Open &Binary         <shift b>"    fopen 'b'
  366.     item " Open &Key Macro      <shift k>"    openkey2 (getffile)
  367.     item "─"
  368.     item " &Move..              <shift m>"    fmove
  369.     item " &Copy..              <shift c>"    fcopy
  370.     item " &Delete     <del> or <shift d>"    fdelete
  371.     item " Re&name..            <shift n>"    frename
  372.     item "─"
  373.     item " &Run                 <shift r>"    frun 'c'
  374.     item " &Print               <shift p>"    fprint
  375.     item "─"
  376.     item " &Attributes..        <shift a>"    fattr
  377.     item " &Touch               <shift t>"    ftouch
  378.     item "─"
  379.     item " Cr&eate Directory.."               fmkdir
  380.     item " &Scan Files..         <ctrl s>"    askscan
  381.   end
  382.  
  383.   menu  "fmgrSort"
  384.     item " &Name           <alt n>"    fsort 'n'
  385.     item " &Extension"                 fsort 'e'
  386.     item " &Size           <alt s>"    fsort 's'
  387.     item " &Date-Time      <alt d>"    fsort 'd'
  388.     item " &OS Default     <alt o>"    fsort 'o'
  389.   end
  390.  
  391.   menu  "fmgrSet"
  392.     item " Confir&mations..|*"                     runcfg "conf"
  393.     item " &File Manager Options..|*"              runcfg "fmgr"
  394.     item " &Line Delimiter Options..|*"            runcfg "ldlm"
  395.     item "-"
  396.     item " &Configuration and Setup..|*"           runcfg "main"
  397.     item " Save Co&nfiguration"                    savecfg
  398.     item "-"
  399.     item " &Recompile the Editor     <f12>"        recompile
  400.   end
  401.  
  402.   menu  "fmgrPrint"
  403.     item " &Print"                        print
  404.     item " Print &Formfeed"               printstr (char 12)
  405.     item " Print &Settings..|*    "       runcfg "print"
  406.   end
  407.  
  408.  
  409. // -------------------------------------------------------------------
  410. //  Miscellaneous menus
  411. // -------------------------------------------------------------------
  412.  
  413.   // yes/no/cancel popup menu
  414.   menu  "ync"
  415.     item " &Yes"
  416.     item " &No"
  417.     item " &Cancel"
  418.   end
  419.  
  420.   // ok/cancel popup menu
  421.   menu  "ok"
  422.     item " O&k"
  423.     item " &Cancel"
  424.   end
  425.  
  426.   // replace/append/cancel popup menu
  427.   menu  "rac"
  428.     item " &Replace"
  429.     item " &Append"
  430.     item " &Cancel"
  431.   end
  432.  
  433.  
  434. // -------------------------------------------------------------------
  435. //  QEdit/TSE menus
  436. // -------------------------------------------------------------------
  437.  
  438.   // change case menu
  439.   menu  "chgcase"
  440.     item " &Word at the Cursor"  1
  441.     item " Current &Line"        2
  442.     item " &Block"               3
  443.   end
  444.  
  445.