home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 3 / AACD03.BIN / CDTools / S / ChangeFonts.awebrx < prev    next >
Text File  |  1999-10-07  |  3KB  |  123 lines
  1. /* */
  2.  
  3. options results
  4. portname = address()
  5. parse upper arg FontSet
  6. CDName = 'AACD03:'
  7. PrefsDir = 'AWeb3DEMO/Amigactive'
  8. FontsPage = 'html/BrowserFonts.html'
  9.  
  10.  
  11. select
  12.     when FontSet = 'CANCEL' then do
  13.         address command 'copy ENVARC:'PrefsDir'/browser ENV:'PrefsDir'/browser'
  14.         'go home'
  15.         end
  16.     when FontSet = 'USE' then 'go home'
  17.     when FontSet = 'SAVE' then do
  18.         address command 'copy ENV:'PrefsDir'/browser ENVARC:'PrefsDir'/browser'
  19.         'go home'
  20.         end
  21.     otherwise address command 'copy 'CDName'System/Prefs/env-archive/AWeb3DEMO/Amigactive/browser.'FontSet' ENV:'PrefsDir'/browser'
  22.     end
  23.  
  24. exit
  25.  
  26. /*
  27.  
  28. Fonts.0 = 14
  29.  
  30. Fonts.1.item='FONT.N1'
  31. Fonts.2.item='FONT.N2'
  32. Fonts.3.item='FONT.N3'
  33. Fonts.4.item='FONT.N4'
  34. Fonts.5.item='FONT.N5'
  35. Fonts.6.item='FONT.N6'
  36. Fonts.7.item='FONT.N7'
  37. Fonts.8.item='FONT.F1'
  38. Fonts.9.item='FONT.F2'
  39. Fonts.10.item='FONT.F3'
  40. Fonts.11.item='FONT.F4'
  41. Fonts.12.item='FONT.F5'
  42. Fonts.13.item='FONT.F6'
  43. Fonts.14.item='FONT.F7'
  44.  
  45.  
  46. select
  47.     when FontSet = 'HELVLARGE' then do
  48.         Fonts.1.value= 'Helvetica.font/11'
  49.         Fonts.2.value= 'Helvetica.font/13'
  50.         Fonts.3.value= 'Helvetica.font/15'
  51.         Fonts.4.value= 'Helvetica.font/18'
  52.         Fonts.5.value= 'CGTriumvirate.font/24'
  53.         Fonts.6.value= 'CGTriumvirate.font/30'
  54.         Fonts.7.value= 'CGTriumvirate.font/36'
  55.         Fonts.8.value= 'Courier.font/11'
  56.         Fonts.9.value= 'Courier.font/13'
  57.         Fonts.10.value='Courier.font/15'
  58.         Fonts.11.value='Courier.font/18'
  59.         Fonts.12.value='Courier.font/24'
  60.         Fonts.13.value='Courier.font/30'
  61.         Fonts.14.value='Courier.font/42'
  62.         end
  63.     when FontSet = 'HELVSMALL' then do
  64.         Fonts.1.value= 'Helvetica.font/9'
  65.         Fonts.2.value= 'Helvetica.font/11'
  66.         Fonts.3.value= 'Helvetica.font/13'
  67.         Fonts.4.value= 'Helvetica.font/15'
  68.         Fonts.5.value= 'Helvetica.font/18'
  69.         Fonts.6.value= 'Helvetica.font/24'
  70.         Fonts.7.value= 'Helvetica.font/24'
  71.         Fonts.8.value= 'Courier.font/9'
  72.         Fonts.9.value= 'Courier.font/11'
  73.         Fonts.10.value='Courier.font/13'
  74.         Fonts.11.value='Courier.font/15'
  75.         Fonts.12.value='Courier.font/18'
  76.         Fonts.13.value='Courier.font/24'
  77.         Fonts.14.value='Courier.font/24'
  78.         end
  79.     when FontSet = 'TIMESLARGE' then do
  80.         Fonts.1.value= 'Times.font/11'
  81.         Fonts.2.value= 'Times.font/13'
  82.         Fonts.3.value= 'Times.font/15'
  83.         Fonts.4.value= 'Times.font/18'
  84.         Fonts.5.value= 'Times.font/24'
  85.         Fonts.6.value= 'Times.font/30'
  86.         Fonts.7.value= 'Times.font/36'
  87.         Fonts.8.value= 'Courier.font/11'
  88.         Fonts.9.value= 'Courier.font/13'
  89.         Fonts.10.value='Courier.font/15'
  90.         Fonts.11.value='Courier.font/18'
  91.         Fonts.12.value='Courier.font/24'
  92.         Fonts.13.value='Courier.font/30'
  93.         Fonts.14.value='Courier.font/42'
  94.         end
  95.     when FontSet = 'TIMESSMALL' then do
  96.         Fonts.1.value= 'Times.font/9'
  97.         Fonts.2.value= 'Times.font/11'
  98.         Fonts.3.value= 'Times.font/13'
  99.         Fonts.4.value= 'Times.font/15'
  100.         Fonts.5.value= 'Times.font/18'
  101.         Fonts.6.value= 'Times.font/24'
  102.         Fonts.7.value= 'Times.font/24'
  103.         Fonts.8.value= 'Courier.font/9'
  104.         Fonts.9.value= 'Courier.font/11'
  105.         Fonts.10.value='Courier.font/13'
  106.         Fonts.11.value='Courier.font/15'
  107.         Fonts.12.value='Courier.font/18'
  108.         Fonts.13.value='Courier.font/24'
  109.         Fonts.14.value='Courier.font/24'
  110.         end
  111.     when FontSet = 'RESET' then do
  112.         'loadsettings ENVARC:AWEB3DEMO/Amigactive'
  113.         exit
  114.         end
  115.     otherwise exit
  116.     end
  117.  
  118. 'screentofront'
  119. 'setcfg font stem' Fonts
  120. */
  121.  
  122.  
  123.