home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 24
/
CD_ASCQ_24_0995.iso
/
dos
/
tools
/
aurora21
/
style.aml
< prev
next >
Wrap
Text File
|
1995-08-10
|
2KB
|
49 lines
/* ------------------------------------------------------------------ */
/* Macro: STYLE.AML */
/* Written by: nuText Systems */
/* */
/* Description: This macro changes the current edit keyboard and */
/* menu style (KBD.AML/MENU.AML) and recompiles the */
/* editor. */
/* */
/* Usage: Select this macro from the Macro List (on the Macro */
/* menu), or run it from the macro picklist <shift f12> */
/* ------------------------------------------------------------------ */
// compile time macros and function definitions
include bootpath "define.aml"
// create the style menu
menu "style"
item " &Aurora" "AU"
item " Aurora/&CUA/Windows" "CU"
item " &Brief" "BR"
item " &MultiEdit" "ME"
item " &QEdit/TSE" "QE"
item " Word&Perfect" "WP"
item " &WordStar/Borland IDE" "WS"
end
// get the editor style
style = popup "style" "Which editor style would you like to use?"
if style then
// backup the existing style files
copyfile (bootpath "KBD.AML") (bootpath "KBD.OLD")
copyfile (bootpath "MENU.AML") (bootpath "MENU.OLD")
// copy the selected style files to the main install path
if copyfile (getbootpath + "STYLE\\" + style + "KBD.AML")
(bootpath "KBD.AML") then
if copyfile (getbootpath + "STYLE\\" + style + "MENU.AML")
(bootpath "MENU.AML") then
// recompile the editor
send "recompile"
end
end
end
// destroy the style menu
destroybuf "style"