home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 21 / CD_ASCQ_21_040595.iso / dos / tools / aurora2b / utility.aml < prev    next >
Text File  |  1995-02-23  |  3KB  |  63 lines
  1.  
  2. // ───────────────────────────────────────────────────────────────────
  3. // The Aurora Editor v2.0
  4. // Copyright 1993-1995 nuText Systems. All Rights Reserved Worldwide.
  5. //
  6. // Sample Utility Macro menu
  7. // ───────────────────────────────────────────────────────────────────
  8.  
  9.   // compile time macros and function definitions
  10.   include  bootpath "define.aml"
  11.  
  12.   // returns qualified macro filename
  13.   function  macpath (xfile)
  14.     return  getbootpath + "MACRO\\" + xfile + ".X"
  15.   end
  16.  
  17.   // define a popup menu to run the sample utility macros
  18.   menu  "util"
  19.     item " &Count Characters in a block or file"    runmacro (macpath "countchr")
  20.     item " Count &Words in a block or file"         runmacro (macpath "countwrd")
  21.     item " Add-up &Numbers in a block"              runmacro (macpath "sumblock")
  22.     item " Find the &Longest Line"                  runmacro (macpath "longline")
  23.     item " &Full Date and Time"                     runmacro (macpath "fulldate")
  24.     item " Draw a Bo&x around a column mark"        runmacro (macpath "drawbox")
  25.     item " &Remove Duplicate Lines"                 runmacro (macpath "deldup")
  26.     item " Delete &Blank lines in a block or file"  runmacro (macpath "delblank")
  27.     item " &Entab a Block or File"                  runmacro (macpath "tabs") 'e'
  28.     item " &Detab a Block or File"                  runmacro (macpath "tabs")
  29.  
  30.     item "-"
  31.     item " &Open Desktop Layout.."
  32.        file = ask "Desktop file" "_load"
  33.        if file then
  34.          opendesk (qualify file (getbufname))
  35.          restoredesk
  36.        end
  37.     item " &Save Desktop Layout.."
  38.        file = ask "Desktop file" "_load"
  39.        if file then
  40.          currdesk
  41.          savedesk (qualify file (getbufname))
  42.          display
  43.        end
  44.     item "-"
  45.     item " Display Key &Assignments"                runmacro (macpath "keydef")
  46.     item " Display &Keycodes"                       runmacro (macpath "keycodes")
  47.     item " &View DOS Memory"                        runmacro (macpath "viewmem")
  48.     item "-"
  49.     item " Calen&dar"                               runmacro (macpath "calendar")
  50.     item " Color C&hart"                            runmacro (macpath "clrchart")
  51.     item " Change Color &Palette"                   runmacro (macpath "palette")
  52.     item " Run &Installation"                       runmacro (bootpath "install.x")
  53.   end
  54.  
  55.   setbufname "util"
  56.  
  57.   // display the popup menu
  58.   popup "util" "Sample Utility Macros" 39
  59.  
  60.   // destroy the menu
  61.   destroybuf "util"
  62.  
  63.