home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / CDTools / S / ChangeFonts.awebrx < prev    next >
Text File  |  2000-08-18  |  661b  |  30 lines
  1. /*
  2.     $VER: ChangeFonts.awebrx 1.0 (2.9.99) (c) Neil Bothwick, Wirenet
  3. */
  4.  
  5. options results
  6. portname = address()
  7. parse upper arg FontSet
  8. CDName = 'AACD13:'
  9. PrefsDir = 'AWeb3DEMO/Amigactive'
  10. FontsPage = 'html/BrowserFonts.html'
  11.  
  12.  
  13. select
  14.     when FontSet = 'CANCEL' then do
  15.         address command 'copy ENVARC:'PrefsDir'/browser ENV:'PrefsDir'/browser'
  16.         'go home'
  17.         end
  18.     when FontSet = 'USE' then 'go home'
  19.     when FontSet = 'SAVE' then do
  20.         address command 'copy ENV:'PrefsDir'/browser ENVARC:'PrefsDir'/browser'
  21.         'go home'
  22.         end
  23.     otherwise address command 'copy 'CDName'System/Prefs/env-archive/AWeb3DEMO/Amigactive/browser.'FontSet' ENV:'PrefsDir'/browser'
  24.     end
  25.  
  26. exit
  27.  
  28.  
  29.  
  30.