home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AmigActive 19
/
AACD19.BIN
/
CDTools
/
S
/
ChangeFonts.awebrx
< prev
next >
Wrap
Text File
|
2000-11-08
|
846b
|
33 lines
/*
Switches to a different set or size of fonts
$VER: ChangeFonts.awebrx 1.1 (8.11.2000)
(c) Neil Bothwick, Wirenet
1.1 - Uses "parse source" to get the name of the CD
*/
options results
portname = address()
parse source . ' ' . ' ' . ' ' ScriptName ' ' .
CDName = left(ScriptName, pos(':', ScriptName) - 1)
parse upper arg FontSet
PrefsDir = 'AWeb3DEMO/Amigactive'
FontsPage = 'html/BrowserFonts.html'
select
when FontSet = 'CANCEL' then do
address command 'copy ENVARC:'PrefsDir'/browser ENV:'PrefsDir'/browser'
'go home'
end
when FontSet = 'USE' then 'go home'
when FontSet = 'SAVE' then do
address command 'copy ENV:'PrefsDir'/browser ENVARC:'PrefsDir'/browser'
'go home'
end
otherwise address command 'copy 'CDName':System/Prefs/env-archive/AWeb3DEMO/Amigactive/browser.'FontSet' ENV:'PrefsDir'/browser'
end
exit