/* System Update for NOS 2.1 (717260) Compiler Settings: Application Name: "System Update 2.1 (717260)" Application Symbol: "System Update 2.1 (717260)" Auto Close: Off Package Name: "System Update 2.1 (717260)" Delete Old Package on Download: On Copy Protected: Off Auto Remove Package: On Use Compression: Off Faster Compression: Off Copyright: "Apple Computer Inc." Version: 1 Platform: Newton 2.1 Language: English Compile For Debugging: On Ignore Native Keyword: Off Check Global Function Calls: On NTK 1.0 Build Rules: Off Use stepChildren Slot: On Suppress Byte Code: Off Compile For Profiling: Off Profile Native Functions: Off Newton OS 2.0 Only: Off Faster Functions: Off Tighter Object Packing: Off Output: Auto Part id: 0 size: 49812 store: {#5} >name:4 Meg Card pssid: 226504984 title: "System Update 2.1 (717260)" version: 1 timestamp: 50165994 creationdate: 0 dispatchonly: NIL copyprotection: NIL flags: 16777216 copyright: "Apple Computer Inc." compressed: NIL cmprsdSz: 50224 numparts: 3 parts: [#3] parttypes: [#3]*/SetPartFrameSlot('PatchMunger,streamFile_PatchMunger);SetPartFrameSlot('DoNotInstall,func()begin local patchInfo, r; patchInfo := Gestalt(kGestalt_Base + 5); if kPatchVersion = patchInfo.fPatch[0].fPatchVersion and kPatchVersion = patchInfo.fPatch[1].fPatchVersion then begin GetRoot():Notify(3, kAppName, "This System Update is already installed on this Newton."); return true; end; if kPatchVersion < patchInfo.fPatch[0].fPatchVersion or (kPatchVersion = patchInfo.fPatch[0].fPatchVersion and kPatchVersion < patchInfo.fPatch[1].fPatchVersion) then begin GetRoot():Notify(3, kAppName, "\nThis System Update cannot be installed because it is older than the existing one in your Newton product."); return true; end; PlaySoundSync(ROM_plinkBeep); r := ModalConfirm("\u00A9\uApple Computer, Inc. 1997 \nNew System software is about to be installed. Please Tap Restart", [{value: nil, text: "Restart"}]); returnend);SetPartFrameSlot('InstallScript,func(part)begin if part:PatchMunger() = nil then AddDelayedCall(functions.Reboot, nil, 5000); else GetRoot():Notify(3, kAppName, "An error has occured during loading; probably out of memory.\nThe System Update was not installed."); returnend);