home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: WPS_PM / WPS_PM.zip / pc2v210.zip / SmallFnt.cmd < prev    next >
OS/2 REXX Batch file  |  1999-07-01  |  706b  |  24 lines
  1. /* Set default font to Helv size 8 or restore to default */
  2. parse upper arg option .
  3. call RxFuncAdd "SysIni", "RexxUtil", "SysIni"
  4. AppName = "PM_SystemFonts"
  5. KeyName = "DefaultFont"
  6. if option = "RESTORE" then
  7. do
  8.     FontName = "10.System Proportional"
  9.     say "Restoring default font 10.System Proportional"
  10. end
  11. else
  12. do
  13.     FontName = "8.Helv"
  14.                                         /* Alternatively, using 9 pts. WarpSans
  15.                                            font also looks nice on Warp4+ */
  16. /*
  17.  *    FontName = "9.WarpSans"
  18.  */
  19.     say "Setting default font 8.Helv"
  20. end
  21. call SysIni "USER", AppName, KeyName, FontName||"0"x
  22. say "Font will be active after next reboot"
  23. exit
  24.