[squeak-dev] The Trunk: ScriptLoader-fbs.337.mcz
commits at source.squeak.org
commits at source.squeak.org
Fri May 3 12:35:14 UTC 2013
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.!
More information about the Squeak-dev
mailing list
|