home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 4 / DATAFILE_PDCD4.iso / utilities / utilsd / drawpersp / !DrawPersp / ScrapLib (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1995-01-14  |  1KB  |  21 lines
  1.  >ScrapLib
  2.  -----------------------------------------------------------------------
  3.  ScrapFile Handling Routines
  4.  -----------------------------------------------------------------------
  5.  Module Global Variables (do not use outside this module!)
  6.    None
  7. $*|Start PROCshell_ScrapCreateDir
  8. shell_ScrapCreateDir( app_name$ )
  9.  If Scrap directory already exists then delete it, then create
  10.  it again...
  11. shell_FileExists( "<Wimp$ScrapDir>." + app_name$ ) 
  12. ( "Wipe <Wimp$ScrapDir>." + app_name$ + " ~CFR~V" )
  13. ( "CDir <Wimp$ScrapDir>." + app_name$ )
  14. #*|Stop PROCshell_ScrapCreateDir
  15. $*|Start PROCshell_ScrapRemoveDir
  16. shell_ScrapRemoveDir( app_name$ )
  17.  Now tidy up again by deleting the scrap directory
  18. shell_FileExists( "<Wimp$ScrapDir>." + app_name$ ) 
  19. ("Wipe <Wimp$ScrapDir>." + app_name$ + " ~CFR~V")
  20. *#*|Stop PROCshell_ScrapRemoveDir
  21.