home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 5 / AACD05.ISO / CDTools / S / ChangeFonts.awebrx < prev    next >
Text File  |  1999-12-08  |  3KB  |  125 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 = 'AACD05:'
  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. Fonts.0 = 14
  31.  
  32. Fonts.1.item='FONT.N1'
  33. Fonts.2.item='FONT.N2'
  34. Fonts.3.item='FONT.N3'
  35. Fonts.4.item='FONT.N4'
  36. Fonts.5.item='FONT.N5'
  37. Fonts.6.item='FONT.N6'
  38. Fonts.7.item='FONT.N7'
  39. Fonts.8.item='FONT.F1'
  40. Fonts.9.item='FONT.F2'
  41. Fonts.10.item='FONT.F3'
  42. Fonts.11.item='FONT.F4'
  43. Fonts.12.item='FONT.F5'
  44. Fonts.13.item='FONT.F6'
  45. Fonts.14.item='FONT.F7'
  46.  
  47.  
  48. select
  49.     when FontSet = 'HELVLARGE' then do
  50.         Fonts.1.value= 'Helvetica.font/11'
  51.         Fonts.2.value= 'Helvetica.font/13'
  52.         Fonts.3.value= 'Helvetica.font/15'
  53.         Fonts.4.value= 'Helvetica.font/18'
  54.         Fonts.5.value= 'CGTriumvirate.font/24'
  55.         Fonts.6.value= 'CGTriumvirate.font/30'
  56.         Fonts.7.value= 'CGTriumvirate.font/36'
  57.         Fonts.8.value= 'Courier.font/11'
  58.         Fonts.9.value= 'Courier.font/13'
  59.         Fonts.10.value='Courier.font/15'
  60.         Fonts.11.value='Courier.font/18'
  61.         Fonts.12.value='Courier.font/24'
  62.         Fonts.13.value='Courier.font/30'
  63.         Fonts.14.value='Courier.font/42'
  64.         end
  65.     when FontSet = 'HELVSMALL' then do
  66.         Fonts.1.value= 'Helvetica.font/9'
  67.         Fonts.2.value= 'Helvetica.font/11'
  68.         Fonts.3.value= 'Helvetica.font/13'
  69.         Fonts.4.value= 'Helvetica.font/15'
  70.         Fonts.5.value= 'Helvetica.font/18'
  71.         Fonts.6.value= 'Helvetica.font/24'
  72.         Fonts.7.value= 'Helvetica.font/24'
  73.         Fonts.8.value= 'Courier.font/9'
  74.         Fonts.9.value= 'Courier.font/11'
  75.         Fonts.10.value='Courier.font/13'
  76.         Fonts.11.value='Courier.font/15'
  77.         Fonts.12.value='Courier.font/18'
  78.         Fonts.13.value='Courier.font/24'
  79.         Fonts.14.value='Courier.font/24'
  80.         end
  81.     when FontSet = 'TIMESLARGE' then do
  82.         Fonts.1.value= 'Times.font/11'
  83.         Fonts.2.value= 'Times.font/13'
  84.         Fonts.3.value= 'Times.font/15'
  85.         Fonts.4.value= 'Times.font/18'
  86.         Fonts.5.value= 'Times.font/24'
  87.         Fonts.6.value= 'Times.font/30'
  88.         Fonts.7.value= 'Times.font/36'
  89.         Fonts.8.value= 'Courier.font/11'
  90.         Fonts.9.value= 'Courier.font/13'
  91.         Fonts.10.value='Courier.font/15'
  92.         Fonts.11.value='Courier.font/18'
  93.         Fonts.12.value='Courier.font/24'
  94.         Fonts.13.value='Courier.font/30'
  95.         Fonts.14.value='Courier.font/42'
  96.         end
  97.     when FontSet = 'TIMESSMALL' then do
  98.         Fonts.1.value= 'Times.font/9'
  99.         Fonts.2.value= 'Times.font/11'
  100.         Fonts.3.value= 'Times.font/13'
  101.         Fonts.4.value= 'Times.font/15'
  102.         Fonts.5.value= 'Times.font/18'
  103.         Fonts.6.value= 'Times.font/24'
  104.         Fonts.7.value= 'Times.font/24'
  105.         Fonts.8.value= 'Courier.font/9'
  106.         Fonts.9.value= 'Courier.font/11'
  107.         Fonts.10.value='Courier.font/13'
  108.         Fonts.11.value='Courier.font/15'
  109.         Fonts.12.value='Courier.font/18'
  110.         Fonts.13.value='Courier.font/24'
  111.         Fonts.14.value='Courier.font/24'
  112.         end
  113.     when FontSet = 'RESET' then do
  114.         'loadsettings ENVARC:AWEB3DEMO/Amigactive'
  115.         exit
  116.         end
  117.     otherwise exit
  118.     end
  119.  
  120. 'screentofront'
  121. 'setcfg font stem' Fonts
  122. */
  123.  
  124.  
  125.