Frank Shearar uploaded a new version of ScriptLoader to project The Trunk: http://source.squeak.org/trunk/ScriptLoader-fbs.337.mcz
==================== Summary ====================
Name: ScriptLoader-fbs.337 Author: fbs Time: 3 May 2013, 1:30:20.401 pm UUID: 1a2626a4-9d7b-438b-8cef-da5c552a323a Ancestors: ScriptLoader-fbs.336
Move ScriptLoader to 45Deprecated.
=============== Diff against ScriptLoader-fbs.336 ===============
Item was removed: - Object subclass: #ScriptLoader - instanceVariableNames: 'repository' - classVariableNames: '' - poolDictionaries: '' - category: 'ScriptLoader'! - - !ScriptLoader commentStamp: 'stephaneducasse 9/29/2005 18:48' prior: 0! - I'm a dummy class that is used to load packages to create release. - I should be merged into ReleaseBuilder in the future and ReleaseBuilder should be moved - out of system-support so that we do not create a new version of it each time!
Item was removed: - ----- Method: ScriptLoader>>addRepositoryToPackageNamed: (in category 'private helpers') ----- - addRepositoryToPackageNamed: aString - - |pa| - pa := MCPackage named: aString. - pa workingCopy repositoryGroup addRepository: self repository. - !
Item was removed: - ----- Method: ScriptLoader>>bertLoadOneAfterTheOther:merge: (in category 'from bert') ----- - bertLoadOneAfterTheOther: aCollection merge: aBoolean - - ^ (self configurationFrom: aCollection) upgrade!
Item was removed: - ----- Method: ScriptLoader>>cleanOldRepositories (in category 'cleaning') ----- - cleanOldRepositories - "self new cleanOldRepositories" - "does not work since the interface of the repository group is not made for removing a repository only based on name" - - MCWorkingCopy allManagers do: [:each | - each repositoryGroup - removeRepository: (MCHttpRepository new location: 'http://kilana.unibe.ch:8888/Monticello'); - removeRepository: (MCHttpRepository new location: 'http://modules.squeakfoundation.org/People/gk/')]. - !
Item was removed: - ----- Method: ScriptLoader>>cleanUpChanges (in category 'cleaning') ----- - cleanUpChanges - "Clean up the change sets" - "self new cleanUpChanges" - - | projectChangeSetNames | - "Delete all changesets except those currently used by existing projects." - projectChangeSetNames := Project allSubInstances collect: [:proj | proj changeSet name]. - ChangeSet removeChangeSetsNamedSuchThat: - [:cs | (projectChangeSetNames includes: cs) not]. - !
Item was removed: - ----- Method: ScriptLoader>>cleanUpEtoys (in category 'cleaning') ----- - cleanUpEtoys - "self new cleanUpEtoys" - - StandardScriptingSystem removeUnreferencedPlayers. - - (self confirm: 'Remove all projects and players?') - ifFalse: [^self]. - Project removeAllButCurrent. - - #('Morphic-UserObjects' 'EToy-UserObjects' 'Morphic-Imported' ) - do: [:each | SystemOrganization removeSystemCategory: each]. - - Smalltalk - at: #Player - ifPresent: [:superCls | superCls - allSubclassesDo: [:cls | - cls isSystemDefined - ifFalse: [cls removeFromSystem]. - ]].!
Item was removed: - ----- Method: ScriptLoader>>cleanUpMethods (in category 'cleaning') ----- - cleanUpMethods - "Make sure that all methods in use are restarted" - - WeakArray restartFinalizationProcess. - MethodChangeRecord allInstancesDo:[:x| x noteNewMethod: nil]. - Delay startTimerEventLoop. - WorldState allInstancesDo:[:ws| ws convertAlarms; convertStepList]. - ExternalDropHandler initialize. - ScrollBar initializeImagesCache. - Vocabulary initialize. - GradientFillStyle initPixelRampCache. - ProcessBrowser initialize. - DebuggerMethodMap voidMapCache. - Smalltalk garbageCollect. - - self assert: (CompiledMethod allInstances - reject:[:cm| cm hasNewPropertyFormat]) isEmpty.!
Item was removed: - ----- Method: ScriptLoader>>cleaningCS (in category 'private helpers') ----- - cleaningCS - "self new cleaningCS" - - ChangesOrganizer removeChangeSetsNamedSuchThat: [:each | true]. - ChangeSet resetCurrentToNewUnnamedChangeSet !
Item was removed: - ----- Method: ScriptLoader>>compileNewUpdateMethod (in category 'public helpers') ----- - compileNewUpdateMethod - - self class compile: - (self generateNewUpdateMethod) - classified: 'updates'!
Item was removed: - ----- Method: ScriptLoader>>compileScriptMethodWithCurrentPackages: (in category 'public helpers') ----- - compileScriptMethodWithCurrentPackages: aNumber - "ScriptLoader new compileScriptMethodWithCurrentPackages: 9999" - - self class compile: - (self generateScriptTemplateWithCurrentPackages: aNumber) - classified: 'scripts'!
Item was removed: - ----- Method: ScriptLoader>>compileScriptMethodXXXWithCurrentPackages (in category 'public helpers') ----- - compileScriptMethodXXXWithCurrentPackages - "ScriptLoader new compileScriptMethodXXXWithCurrentPackages" - - self class compile: self generateScriptTemplateWithCurrentPackages classified: 'scripts'!
Item was removed: - ----- Method: ScriptLoader>>configurationFrom: (in category 'from bert') ----- - configurationFrom: aCollection - - | spec | - spec := Array streamContents: [:s | - s nextPut: #repository; nextPut: {self repository description}. - aCollection do: [:ea | | pkg ver id | - pkg := ea copyUpToLast: $- . - ver := ea copyUpToLast: $. . - id := UUID nilUUID asString. - s nextPut: #dependency; nextPut: {pkg . ver . id}]]. - ^MCConfiguration fromArray: spec.!
Item was removed: - ----- Method: ScriptLoader>>currentPackages (in category 'private helpers') ----- - currentPackages - "ScriptLoader new currentPackages" - - - | copies | - copies := MCWorkingCopy allManagers asSortedCollection: - [ :a :b | a package name <= b package name ]. - ^ copies select: [:each | '*Plus*' match: each package name ].!
Item was removed: - ----- Method: ScriptLoader>>currentVersions (in category 'private helpers') ----- - currentVersions - "ScriptLoader new currentVersions" - - | copies | - copies := MCWorkingCopy allManagers asSortedCollection: - [ :a :b | a package name <= b package name ]. - ^ copies collect: - [:ea | ea ancestry ancestorString ]!
Item was removed: - ----- Method: ScriptLoader>>finalCleanup (in category 'cleaning') ----- - finalCleanup - "self new finalCleanup" - - DataStream initialize. - Behavior flushObsoleteSubclasses. - "The pointer to currentMethod is not realy needed (anybody care to fix this) and often holds on to obsolete bindings" - MethodChangeRecord allInstancesDo: [:each | each noteNewMethod: nil]. - self cleanUpEtoys. - SmalltalkImage current fixObsoleteReferences. - Smalltalk flushClassNameCache. - SystemOrganization removeEmptyCategories. - Symbol compactSymbolTable. - - !
Item was removed: - ----- Method: ScriptLoader>>finalStripping (in category 'cleaning') ----- - finalStripping - "self new finalStripping" - !
Item was removed: - ----- Method: ScriptLoader>>fixObsoleteReferences (in category 'cleaning') ----- - fixObsoleteReferences - "self new fixObsoleteReferences" - - - Preference allInstances do: [:each | | informee | - informee := each instVarNamed: #changeInformee. - ((informee isKindOf: Behavior) - and: [informee isObsolete]) - ifTrue: [ - Transcript show: each name; cr. - each instVarNamed: #changeInformee put: (Smalltalk at: (informee name copyReplaceAll: 'AnObsolete' with: '') asSymbol)]]. - - CompiledMethod allInstances do: [:method | - | obsoleteBindings | - obsoleteBindings := method literals select: [:literal | - literal isVariableBinding - and: [literal value isBehavior - and: [literal value isObsolete]]]. - obsoleteBindings do: [:binding | - | obsName realName realClass | - obsName := binding value name. - Transcript show: obsName; cr. - realName := obsName copyReplaceAll: 'AnObsolete' with: ''. - realClass := Smalltalk at: realName asSymbol ifAbsent: [UndefinedObject]. - binding isSpecialWriteBinding - ifTrue: [binding privateSetKey: binding key value: realClass] - ifFalse: [binding key: binding key value: realClass]]]. - - - Behavior flushObsoleteSubclasses. - Smalltalk garbageCollect; garbageCollect. - SystemNavigation default obsoleteBehaviors size > 0 - ifTrue: [SystemNavigation default obsoleteBehaviors inspect]!
Item was removed: - ----- Method: ScriptLoader>>flushCaches (in category 'cleaning') ----- - flushCaches - - MCFileBasedRepository flushAllCaches. - MCDefinition clearInstances. - Smalltalk garbageCollect. - - "Initialization required for tests: strange why this is not a teardwon method" - Smalltalk at: #SendCaches ifPresent:[:aClass| aClass initializeAllInstances].!
Item was removed: - ----- Method: ScriptLoader>>generateCS:fromUpdate:on: (in category 'private helpers') ----- - generateCS: extensionAndNumber fromUpdate: updateNumber on: st - - st nextPutAll: - '"Postscript: - Leave the line above, and replace the rest of this comment by a useful one. - Executable statements should follow this comment, and should - be separated by periods, with no exclamation points (!!!!). - Be sure to put any further comments in double-quotes, like this one." - - |repository| - repository := MCHttpRepository - location: ''http://source.squeakfoundation.org/39a'' - user: '''' - password: ''''. - (repository loadVersionFromFileNamed:' . - st nextPut: $' ; nextPutAll: 'ScriptLoader', extensionAndNumber, '.mcz'') load.'; cr. - st nextPutAll: 'ScriptLoader new updateFrom', (updateNumber-1) asString; nextPutAll: '.' ; cr. - st nextPutAll: '!!'. - ^ st contents - !
Item was removed: - ----- Method: ScriptLoader>>generateNewUpdateMethod (in category 'private helpers') ----- - generateNewUpdateMethod - "ScriptLoader new compileNewUpdateMethod" - - | str mthName | - str := ReadWriteStream on: (String new: 1000). - mthName := 'updateFrom', (self getLatestUpdateNumber + 1) asString. - str nextPutAll: mthName ; cr ; cr ; tab. - str nextPutAll: '"self new ', mthName, '"' ; cr. - - str nextPutAll: ' self script' , self getLatestScriptNumber asString, '.'. - str nextPutAll: ' - self flushCaches. - '. - - ^ str contents!
Item was removed: - ----- Method: ScriptLoader>>generateScriptTemplateWithAllCurrentPackages (in category 'private helpers') ----- - generateScriptTemplateWithAllCurrentPackages - "ScriptLoader new generateScriptTemplateWithAllCurrentPackages" - - | str | - str := ReadWriteStream on: (String new: 1000). - str nextPutAll: 'scriptXXX' ; cr ; cr ; tab. - str nextPutAll: '| names|'; cr. - str nextPutAll: 'names := '. - str nextPut: $'. - self currentVersions do: - [:each | - str nextPutAll: each ; nextPutAll: '.mcz'] - separatedBy: [str nextPut: Character cr]. - str nextPut: $'; nextPut: Character cr. - str nextPutAll: 'findTokens: '' '', String cr. - - self loadTogether: names merge: false.'. - ^ str contents!
Item was removed: - ----- Method: ScriptLoader>>generateScriptTemplateWithCurrentPackages (in category 'private helpers') ----- - generateScriptTemplateWithCurrentPackages - "ScriptLoader new generateScriptTemplateWithCurrentPackages" - - | str withoutScriptLoader | - str := ReadWriteStream on: (String new: 1000). - str nextPutAll: 'scriptXXX' ; cr ; cr ; tab. - str nextPutAll: '| names|'; cr. - str nextPutAll: 'names := '. - str nextPut: $'. - withoutScriptLoader := self currentVersions reject: [:each| ('*ScriptLoader*' match: each)]. - withoutScriptLoader - do: [ :each | - str nextPutAll: each ; nextPutAll: '.mcz'] - separatedBy: [str nextPut: Character cr]. - str nextPut: $'; nextPut: Character cr. - str nextPutAll: 'findTokens: '' '', String cr. - - self loadTogether: names merge: false.'. - ^ str contents!
Item was removed: - ----- Method: ScriptLoader>>generateScriptTemplateWithCurrentPackages: (in category 'private helpers') ----- - generateScriptTemplateWithCurrentPackages: aNumber - "ScriptLoader new generateScriptTemplateWithCurrentPackages" - - | str withoutScriptLoader | - str := ReadWriteStream on: (String new: 1000). - str nextPutAll: 'script', aNumber asString ; cr ; cr ; tab. - str nextPutAll: '| names|'; cr. - str nextPutAll: 'names := '. - str nextPut: $'. - withoutScriptLoader := self currentVersions reject: [:each| ('*ScriptLoader*' match: each)]. - withoutScriptLoader - do: [ :each | - str nextPutAll: each ; nextPutAll: '.mcz'] - separatedBy: [str nextPut: Character cr]. - str nextPut: $'; nextPut: Character cr. - str nextPutAll: 'findTokens: '' '', String cr. - - self loadTogether: names merge: false.'. - ^ str contents!
Item was removed: - ----- Method: ScriptLoader>>getLatestScriptNumber (in category 'private helpers') ----- - getLatestScriptNumber - - | upfroms | - upfroms := self class selectors select: [:each | 'script*' match: each ]. - upfroms := upfroms collect: [:each | (each asString allButFirst: 6)]. - upfroms := upfroms reject: [:each | '*Log*' match: each ]. - upfroms := upfroms reject: [:each | '*XXX*' match: each ]. - upfroms := upfroms collect: [:each | each asNumber]. - ^ upfroms asSortedCollection last - !
Item was removed: - ----- Method: ScriptLoader>>getLatestUpdateNumber (in category 'private helpers') ----- - getLatestUpdateNumber - - | upfroms | - upfroms := self class selectors select: [:each | 'updateFrom*' match: each ]. - upfroms := upfroms collect: [:each | (each asString last: 4) asNumber]. - ^ upfroms asSortedCollection last!
Item was removed: - ----- Method: ScriptLoader>>inboxRepository (in category 'accessing') ----- - inboxRepository - repository isNil - ifTrue: [ repository := - MCHttpRepository - location: 'http://source.squeakfoundation.org/inbox' - user: '' - password: '']. - ^ repository!
Item was removed: - ----- Method: ScriptLoader>>initialCleanup (in category 'cleaning') ----- - initialCleanup - "Perform various image cleanups in preparation for making a Squeak gamma release candidate image." - "self new initialCleanup" - - Undeclared removeUnreferencedKeys. - StandardScriptingSystem initialize. - self resetToolSet. - AppRegistry removeObsolete. - FileServices removeObsolete. - - (Object classPool at: #DependentsFields) size > 1 ifTrue: [self error:'Still have dependents']. - Undeclared isEmpty ifFalse: [self error:'Please clean out Undeclared']. - - Smalltalk at: #Browser ifPresent:[:br| br initialize]. - ScriptingSystem deletePrivateGraphics. "?" - - self cleanUpChanges. - ChangeSet current clear. - ChangeSet current name: 'Unnamed'. - Smalltalk garbageCollect. - - "Reinitialize DataStream; it may hold on to some zapped entitities" - DataStream initialize. - - Smalltalk garbageCollect. - ScheduledControllers := nil. - Smalltalk garbageCollect. - - "SMSqueakMap default purge. does not work" - - !
Item was removed: - ----- Method: ScriptLoader>>installInBoxAnd39 (in category 'cleaning') ----- - installInBoxAnd39 - "self new installInBoxAnd39" - - MCWorkingCopy allManagers do: [:each | - each repositoryGroup - addRepository: (MCHttpRepository new location: 'http://source.squeakfoundation.org/39a' ; user: ''; password: ''); - addRepository: (MCHttpRepository new location: 'http://source.squeakfoundation.org/inbox' ; user: '' ; password: '')]. - - !
Item was removed: - ----- Method: ScriptLoader>>installPreferences (in category 'cleaning') ----- - installPreferences - - Preferences initialize. - "Preferences chooseInitialSettings." - !
Item was removed: - ----- Method: ScriptLoader>>installRepository:for: (in category 'cleaning') ----- - installRepository: aString for: packageName - - (MCWorkingCopy allManagers select: [:each | each package name = packageName]) - first repositoryGroup - addRepository: (MCHttpRepository new location: aString ; user: 'squeak' ; password: 'squeak') - !
Item was removed: - ----- Method: ScriptLoader>>installVersionInfo (in category 'cleaning') ----- - installVersionInfo - "self new installVersionInfo" - - | highestUpdate newVersion | - highestUpdate := SystemVersion current highestUpdate. - (self confirm: 'Reset highest update (' , highestUpdate printString , ')?') - ifTrue: [SystemVersion current highestUpdate: 0]. - - newVersion := UIManager default request: 'New version designation:' initialAnswer: '3.9' , highestUpdate printString. - SystemVersion newVersion: newVersion. - - !
Item was removed: - ----- Method: ScriptLoader>>installingDefaultRepositoriesToPackages (in category 'cleaning') ----- - installingDefaultRepositoriesToPackages - "self new installingDefaultRepositoriesToPackages" - - self installInBoxAnd39. - self packagesAndHome do: [:each | - self installRepository: each second for: each first].!
Item was removed: - ----- Method: ScriptLoader>>loadOneAfterTheOther:merge: (in category 'private helpers') ----- - loadOneAfterTheOther: aCollection merge: aBoolean - - (self newerVersionsIn: aCollection) - do: [:fn | | loader | - loader := aBoolean - ifTrue: [ MCVersionMerger new ] - ifFalse: [ MCVersionLoader new]. - loader addVersion: (self repository loadVersionFromFileNamed: fn). - aBoolean - ifTrue: [[loader merge] on: MCMergeResolutionRequest do: [:request | - request merger conflicts isEmpty - ifTrue: [request resume: true] - ifFalse: [request pass]]] - ifFalse: [loader load]] - displayingProgress: 'Loading versions...'. - - - !
Item was removed: - ----- Method: ScriptLoader>>loadTogether:merge: (in category 'private helpers') ----- - loadTogether: aCollection merge: aBoolean - | loader | - loader := aBoolean - ifTrue: [ MCVersionMerger new ] - ifFalse: [ MCVersionLoader new]. - (self newerVersionsIn: aCollection) - do: [:fn | loader addVersion: (self repository loadVersionFromFileNamed: fn)] - displayingProgress: 'Adding versions...'. - aBoolean - ifTrue: [[loader merge] on: MCMergeResolutionRequest do: [:request | - request merger conflicts isEmpty - ifTrue: [request resume: true] - ifFalse: [request pass]]] - ifFalse: [loader load] - - !
Item was removed: - ----- Method: ScriptLoader>>mergePackagesNamed: (in category 'private helpers') ----- - mergePackagesNamed: names - | vm | - repository := MCHttpRepository - location: 'http://source.squeakfoundation.org/39a' - user: '' - password: ''. - - vm := MCVersionMerger new. - names - do: [:fn | vm addVersion: (repository loadVersionFromFileNamed: fn)] - displayingProgress: 'Adding versions...'. - - [vm merge] - on: MCMergeResolutionRequest do: [:request | - request merger conflicts isEmpty - ifTrue: [request resume: true] - ifFalse: [request pass]]!
Item was removed: - ----- Method: ScriptLoader>>methodsForNewVersion (in category 'public helpers') ----- - methodsForNewVersion - "self new methodsForNewVersion" - - self compileScriptMethodWithCurrentPackages: (self getLatestScriptNumber + 1). - self compileNewUpdateMethod.!
Item was removed: - ----- Method: ScriptLoader>>newerVersionsIn: (in category 'private helpers') ----- - newerVersionsIn: aCollection - ^aCollection reject: [:each | - MCWorkingCopy allManagers anySatisfy: [:workingcopy | - workingcopy ancestry ancestorString , '.mcz' = each]].!
Item was removed: - ----- Method: ScriptLoader>>packagesAndHome (in category 'cleaning') ----- - packagesAndHome - - ^ #( - ('MonticelloConfigurations' - 'http://source.impara.de/mc') - ('Balloon' - 'http://source.squeakfoundation.org/Balloon') - ('Compression' - 'http://source.squeakfoundation.org/Compression') - ('Flash' - 'http://source.squeakfoundation.org/Balloon') - ('Graphics' - 'http://source.squeakfoundation.org/Graphics') - ('GraphicsTests' - 'http://source.squeakfoundation.org/Graphics') - ('ToolBuilder-Kernel' - 'http://squeaksource.com/ToolBuilder') - ('ToolBuilder-MVC' - 'http://squeaksource.com/ToolBuilder') - ('ToolBuilder-Morphic' - 'http://squeaksource.com/ToolBuilder') - ('ToolBuilder-SUnit' - 'http://squeaksource.com/ToolBuilder') - ('TrueType' - 'http://source.squeakfoundation.org/Balloon') - ('PackageInfo' - 'http://www.squeaksource.com/PackageInfo') - ('SMBase' - 'http://source.squeakfoundation.org/SqueakMap') - ('SMLoader' - 'http://source.squeakfoundation.org/SqueakMap') - ('Network' - 'http://source.squeakfoundation.org/network') - ('NetworkTests' - 'http://source.squeakfoundation.org/network') - ('VersionNumber' - 'http://source.squeakfoundation.org/SqueakMap') - ('OB-Standard' - 'http://source.wiresong.ca/ob/') - ('OmniBrowser' - 'http://source.wiresong.ca/ob/') - ('Monticello' - 'http://source.wiresong.ca/mc/') - ) - !
Item was removed: - ----- Method: ScriptLoader>>packagesToUnload (in category 'log') ----- - packagesToUnload - - ^ #('*PlusTools*' '*FixInvisible*')!
Item was removed: - ----- Method: ScriptLoader>>packagesWithProblemsForAssignments (in category 'log') ----- - packagesWithProblemsForAssignments - "FixUnderscores fixPackages: #()" - "when I tried to reload with the package fixed with underscores - I got problems so I just rollbacked for now." - - ^#('PackageInfo')!
Item was removed: - ----- Method: ScriptLoader>>prepareReleaseImage (in category 'cleaning') ----- - prepareReleaseImage - "Perform various image cleanups in preparation for making a Squeak gamma release candidate image." - "self new prepareReleaseImage" - - (self confirm: 'Are you sure you want to prepare a release image? - This will perform several irreversible cleanups on this image.') - ifFalse: [^ self]. - - self - "unloadPackages;" - initialCleanup; - installPreferences; - finalStripping; - finalCleanup - "installVersionInfo" - !
Item was removed: - ----- Method: ScriptLoader>>repository (in category 'accessing') ----- - repository - repository isNil - ifTrue: [ repository := - MCHttpRepository - location: 'http://source.squeakfoundation.org/39a' - user: '' - password: '']. - ^ repository!
Item was removed: - ----- Method: ScriptLoader>>resetToolSet (in category 'private helpers') ----- - resetToolSet - - ToolSet default: nil!
Item was removed: - ----- Method: ScriptLoader>>test (in category 'private helpers') ----- - test - "self new test" - - |pa| - pa := MCPackage named: 'FlexibleVocabularies'. - pa workingCopy repositoryGroup addRepository: self repository. - !
Item was removed: - ----- Method: ScriptLoader>>treatedPackagesForAssignments (in category 'log') ----- - treatedPackagesForAssignments - "FixUnderscores fixPackages: #()" - - ^#('38Deprecated' 'Tests' 'SUnit' 'SUnitGUI' '39Deprecated' 'CollectionsTests' 'Compression' 'Files' 'FlexibleVocabularies' 'Monticello' 'MonticelloConfigurations' 'Movies' 'Nebraska' 'PackageInfo' 'PreferenceBrowser' 'Protocols' 'ToolBuilder-Kernel' 'StarSqueak' 'Sound' 'VersionNumber' 'Tools' 'ToolBuilder-SUnit' 'ToolBuilder-MVC' 'Services-Base' 'SmaCC' 'SMLoader' 'SMBase' 'ToolBuilder-Morphic' 'Speech' 'ReleaseBuilder')!
Item was removed: - ----- Method: ScriptLoader>>unloadFFI (in category 'private helpers') ----- - unloadFFI - "ScriptLoader new unloadFFI" - - | copies namesOfpackagesToUnload | - namesOfpackagesToUnload := #('*FFI*'). - copies := MCWorkingCopy allManagers asSortedCollection: - [ :a :b | a package name <= b package name ]. - (copies select: [:each | namesOfpackagesToUnload anySatisfy: [:ea | ea match: each package name ]]) - do: [:z | z unload]. - Smalltalk recreateSpecialObjectsArray!
Item was removed: - ----- Method: ScriptLoader>>unloadPackages (in category 'private helpers') ----- - unloadPackages - "ScriptLoader new unloadPackages" - - | copies namesOfpackagesToUnload | - namesOfpackagesToUnload := self packagesToUnload. - copies := MCWorkingCopy allManagers asSortedCollection: - [ :a :b | a package name <= b package name ]. - (copies select: [:each | namesOfpackagesToUnload anySatisfy: [:ea | ea match: each package name ]]) - do: [:z | z unload].!
Item was removed: - ----- Method: ScriptLoader>>unloadableFailedPackages (in category 'log') ----- - unloadableFailedPackages - "list of the packages that I succeeded to remove pressing unload" - - ^ #('Nebraska' 'TrueType')!
Item was removed: - ----- Method: ScriptLoader>>unloadablePackages (in category 'log') ----- - unloadablePackages - "list of the packages that I succeeded to remove pressing unload" - "Note that this does not mean that the system is working after, just that it - was possible to unload the package without crashing Squeak" - - ^ #('OmniBrowser' 'PlusTools' 'Flash' 'FFI' 'StarSqueak' 'Speech' 'Movie' 'FlexibleVocabularies' '39Deprecated' '39Deprecated' 'PreferenceBrowser' 'ReleaseBuilder' - 'SUnitUI' 'Protocols' 'Sounds')!
Item was removed: - ----- Method: ScriptLoader>>writeCS:forUpdate: (in category 'private helpers') ----- - writeCS: extensionAndNumber forUpdate: updateNumber - "ScriptLoader new writeCS: '-sd.210' forUpdate: 7037" - - self writeCS: extensionAndNumber forUpdate: updateNumber withName: 'changeMe'!
Item was removed: - ----- Method: ScriptLoader>>writeCS:forUpdate:withName: (in category 'public helpers') ----- - writeCS: extensionAndNumber forUpdate: updateNumber withName: aSt - "ScriptLoader new writeCS: '-md.2929' forUpdate: 7049 withName: 'cleanUpMethods'" - - | str | - str := FileDirectory default forceNewFileNamed: updateNumber asString, 'update', aSt, '.cs'. - self generateCS: extensionAndNumber fromUpdate: updateNumber on: str. - str close.!
squeak-dev@lists.squeakfoundation.org