home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / System / EASys / EASys!_update_47x_to_481 / EASys! / Programs / GetFontPrefs.rexx < prev    next >
OS/2 REXX Batch file  |  2000-06-28  |  2KB  |  102 lines
  1. /* EASys! © TNE 01'2000
  2.    GetFontPrefs Module
  3.    for reading and providing WB Font Prefs
  4.  
  5.    Positions:
  6.  
  7.    03b  IconTextSize
  8.    03e  IconTextFont
  9.  
  10.    0df  SystemTextSize
  11.    0e2  SystemTextFont
  12.  
  13.    183  ScreenTextSize
  14.    186  ScreenTextFont
  15. */
  16.  
  17. OPTIONS RESULTS
  18. OPTIONS FAILAT 30
  19.  
  20. IconTextSize=10
  21. IconTextFont=''
  22.  
  23. SystemTextSize=10
  24. SystemTextFont=''
  25.  
  26. ScreenTextSize=10
  27. ScreenTextFont=''
  28.  
  29. IF (open(TEMPFILE, 'ENV:sys/font.prefs','read')) THEN
  30. DO
  31.   DO i=1 to 59
  32.      r=READCH(TEMPFILE)
  33.   END
  34.  
  35.   IconTextSize=c2d(READCH(TEMPFILE))
  36.  
  37.   DO i=61 to 62
  38.      r=READCH(TEMPFILE)
  39.   END
  40.  
  41.   DO UNTIL EOF(TEMPFILE)
  42.       i=i+1
  43.       Char=ReadCh(TEMPFILE)
  44.       IF (C2D(Char)=0) THEN
  45.           LEAVE
  46.       ELSE
  47.           IconTextFont=IconTextFont''Char
  48.   END
  49.  
  50.   DO j=i to 223
  51.      r=READCH(TEMPFILE)
  52.   END
  53.  
  54.   SystemTextSize=c2d(READCH(TEMPFILE))
  55.  
  56.   DO i=225 to 226
  57.      r=READCH(TEMPFILE)
  58.   END
  59.  
  60.   DO UNTIL EOF(TEMPFILE)
  61.       i=i+1
  62.       Char=ReadCh(TEMPFILE)
  63.       IF (C2D(Char)=0) THEN
  64.           LEAVE
  65.       ELSE
  66.           SystemTextFont=SystemTextFont''Char
  67.   END
  68.  
  69.   DO j=i to 387
  70.      r=READCH(TEMPFILE)
  71.   END
  72.  
  73.   ScreenTextSize=c2d(READCH(TEMPFILE))
  74.  
  75.   DO i=389 to 390
  76.      r=READCH(TEMPFILE)
  77.   END
  78.  
  79.   DO UNTIL EOF(TEMPFILE)
  80.       i=i+1
  81.       Char=ReadCh(TEMPFILE)
  82.       IF (C2D(Char)=0) THEN
  83.           LEAVE
  84.       ELSE
  85.           ScreenTextFont=ScreenTextFont''Char
  86.   END
  87.  
  88.   r=Close(TEMPFILE)
  89. END
  90.  
  91. CALL setclip('IconTextFont',IconTextFont)
  92. CALL setclip('IconTextSize',IconTextSize)
  93.  
  94. CALL setclip('SystemTextFont',SystemTextFont)
  95. CALL setclip('SystemTextSize',SystemTextSize)
  96.  
  97. CALL setclip('ScreenTextFont',ScreenTextFont)
  98. CALL setclip('ScreenTextSize',ScreenTextSize)
  99.  
  100. EXIT 0
  101.  
  102.