home *** CD-ROM | disk | FTP | other *** search
/ Bila Vrana / BILA_VRANA.iso / 028A / AUROR.ZIP / STYLE.AML < prev    next >
Text File  |  1996-07-17  |  2KB  |  61 lines
  1. //--------------------------------------------------------------------
  2. // STYLE.AML
  3. // Change Editor Style, (C) 1993-1996 by nuText Systems                                        */
  4. //
  5. // (see Style.dox for user help)
  6. //
  7. // This macro changes the current keyboard and menu style (Kbd.aml and
  8. // Menu.aml) and re-compiles the editor.
  9. //
  10. // Usage:
  11. //
  12. // Select this macro from the Macro List (on the Macro menu), or run it
  13. // from the macro picklist <shift f12>.
  14. //--------------------------------------------------------------------
  15.  
  16. // compile time macros and function definitions
  17. include bootpath "define.aml"
  18.  
  19. // create the style menu
  20. menu "style"
  21.   item " &Aurora"                 "AU"
  22.   item " Aurora/&CUA/Windows"     "CU"
  23.   item " &Brief"                  "BR"
  24.   item " &MultiEdit"              "ME"
  25.   item " &QEdit/TSE"              "QE"
  26.   item " Word&Perfect"            "WP"
  27.   item " &WordStar/Borland IDE"   "WS"
  28. end
  29.  
  30. settype "popup"
  31.  
  32. // macro help
  33. macrofile = arg 1
  34. function <f1>
  35.   helpmacro macrofile
  36. end
  37.  
  38. // get the editor style
  39. style = popup "style" "Which editor style would you like to use?"
  40.               '' '' (getcurrobj)
  41. if style then
  42.  
  43.   // backup the existing style files
  44.   copyfile (bootpath "kbd.aml") (bootpath "kbd.old")
  45.   copyfile (bootpath "menu.aml") (bootpath "menu.old")
  46.  
  47.   // copy the selected style files to the main install path
  48.   if copyfile (getbootpath + "style\\" + style + "kbd.aml")
  49.               (bootpath "kbd.aml") then
  50.     if copyfile (getbootpath + "style\\" + style + "menu.aml")
  51.                 (bootpath "menu.aml") then
  52.       // recompile the editor
  53.       seteventobj (getwinobj)
  54.       send "recompile"
  55.     end
  56.   end
  57. end
  58.  
  59. // destroy the style menu
  60. destroybuf "style"
  61.