home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1995 November / PCWK1195.iso / inne / podstawy / os2 / nakladki / pc2v190.exe / SMALLFNT.CMD < prev    next >
OS/2 REXX Batch file  |  1995-05-01  |  507b  |  19 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.     say "Setting default font 8.Helv"
  15. end
  16. call SysIni "USER", AppName, KeyName, FontName||"0"x
  17. say "Font will be active after next reboot"
  18. exit
  19.