home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / DOS / TEKST / AURORA2 / PALETTE.AML < prev    next >
Text File  |  1995-04-28  |  2KB  |  42 lines
  1.  
  2. /* ------------------------------------------------------------------ */
  3. /* Macro:        PALETTE.AML                                          */
  4. /* Written by:   nuText Systems                                       */
  5. /*                                                                    */
  6. /* Description:  This macro changes the current color palette in      */
  7. /*               COLOR.AML and re-compiles the editor.                */
  8. /*                                                                    */
  9. /* Usage:        Select this macro from the Macro List (on the Macro  */
  10. /*               menu), or run it from the macro picklist <shift f12> */
  11. /* ------------------------------------------------------------------ */
  12.  
  13.   // compile time macros and function definitions
  14.   include  bootpath "define.aml"
  15.  
  16.   menu "colors"
  17.     item " &Blue and green"   "blugreen"
  18.     item " &Fluorescent"      "fluoresc"
  19.     item " &Green charcoal"   "greench"
  20.     item " &Red and blue"     "redblue"
  21.     item " &Wimbledon"        "wimbledn"
  22.   end
  23.  
  24.   // display the palette menu
  25.   palette = popup "colors" "Select a color palette to install" 37
  26.   if palette then
  27.  
  28.     // backup the existing color palette
  29.     copyfile (bootpath "COLOR.AML") (bootpath "COLOR.OLD")
  30.  
  31.     // copy the selected palette to COLOR.AML
  32.     if copyfile (getbootpath + "PALETTE\\" + palette + ".AML")
  33.                 (bootpath "COLOR.AML") then
  34.       // recompile the editor
  35.       send "recompile"
  36.     end
  37.   end
  38.  
  39.   // destroy the palette menu
  40.   destroybuf "colors"
  41.  
  42.