35 lines
882 B
Batchfile
35 lines
882 B
Batchfile
/* */
|
|
call RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
|
|
call SysLoadFuncs
|
|
|
|
|
|
say "This utility will remove the FreeType/2 font driver and install "
|
|
say "the original TRUETYPE.DLL if it exists. If you do not wish to"
|
|
say "continue, please just press ENTER. Otherwise please type ""y"""
|
|
|
|
pull letter
|
|
if letter <> "Y" then exit
|
|
|
|
/* Find drive where OS/2 is installed */
|
|
bootdrive = SysSearchPath('PATH', 'OS2.INI')
|
|
bootdrive = left(bootdrive, 1)
|
|
|
|
app = "PM_Font_Drivers"
|
|
key = "TRUETYPE"
|
|
|
|
/* look for TRUETYPE.DLL */
|
|
rc = SysFileTree(left(bootdrive,1) || ":\OS2\DLL\TRUETYPE.DLL", "file", "F")
|
|
|
|
if file.0 = 1 then do
|
|
say "Restoring TRUETYPE.DLL..."
|
|
val = "\OS2\DLL\TRUETYPE.DLL" || d2c(0)
|
|
SysIni('BOTH', app, key, val)
|
|
end
|
|
else do
|
|
say "Uninstalling FREETYPE.DLL..."
|
|
SysIni('BOTH', app, key, "DELETE:")
|
|
end
|
|
|
|
say "FTIFI is uninstalled. Please reboot."
|
|
pause
|