>>8 v ASPCloseSession(XPPParmBlkPtr th compactSDKhtr..rsrcer.3mator33 Boolean async); extern pascal OSErr ASPGetParms(XPPParmBlkPtr thePBptr, Boolean async); extern pascal OSErr ASPCloseAll(XPPParmBl3.0.3 FrontierGeneva TA[^[LANDon doFolder (folder) press cmd-3 to save to a file local (f) on removeBinaries (p) local (owner = file.creator (p)) local (app = file.findApplication (owner)) launch.appWithDocument (app, "") MWC.id = owner MWC.openDocument (p) MWC.removeBinaries () MWC.closeProject () on removeObjects (p) Think.openProject (p) Think.removeObjects () Think.closeProject (true) fileloop (f in folder, infinity) msg (file.fileFromPath (f)) if file.isAlias (f) f = file.followAlias (f) if file.isFolder (f) doFolder (f) continue case file.type (f) 'MMPR' removeBinaries (f) 'MPSY' .sym 'MMPF' .dbg file.delete (f) 'PROJ' removeObjects (f) else case dialog.yesNoCancel ("copy " + file.filefrompath (f) + "? [" + file.type (f) + "]?") 1 incrementalCopy (f, dest) 3 return dialog.notify ("Compacted.") doFolder (file.folderFromPath (deskscripts.path)) system.deskscripts.compactSDK0P,?20Ժ terry_teaguecompactSDK.ftds~STR scptJckidV /QWLProjector Data2CLKLAND