home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / pmfo002a.zip / funinst.cmd < prev    next >
OS/2 REXX Batch file  |  1998-12-31  |  1KB  |  42 lines
  1. /* REXX deinstallation script for Display Font Editor 
  2.  * Copyright (C) 1998 by BigVic & Kolosoft Group
  3.  *
  4.  */
  5. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  6. call SysLoadFuncs
  7.  
  8. /*------------------------------------------------------------------
  9.  * Initialization 
  10.  *------------------------------------------------------------------*/
  11.  
  12. installdir = directory()
  13.  
  14. rc= RxMessageBox( "Uninstall Display Font Editor?", "Display Font Editor", "YesNo", "Question" )
  15. say rc
  16. if rc = 7 then
  17.    exit
  18.  
  19.  
  20. Call SysFileTree '*.*','file','FO'
  21. DO i=1 TO file.0
  22.     rc=SysFileDelete(file.i)
  23.     END
  24. DROP file
  25.  
  26.  
  27. /*------------------------------------------------------------------
  28.  * Delete Display Font Editor objects
  29.  *------------------------------------------------------------------*/
  30.  
  31. rc = SysDestroyObject("<PMFOED_FLD>")
  32. if rc then
  33.    say "Display Font Editor objects removed from desktop..."
  34. else 
  35.    say "ERROR: Display Font Editor object removing failed!"
  36. /*----*/
  37. rc=directory('..')
  38. rc=SysRmDir(installdir)
  39. call lineout  log, rc
  40.  
  41. exit
  42.