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.!
1
0
Frank Shearar uploaded a new version of ReleaseBuilder to project The Trunk:
http://source.squeak.org/trunk/ReleaseBuilder-fbs.96.mcz
==================== Summary ====================
Name: ReleaseBuilder-fbs.96
Author: fbs
Time: 2 May 2013, 10:47:53.918 pm
UUID: 51612e6c-fec4-4b99-bb3f-d6b5d51bb61f
Ancestors: ReleaseBuilder-fbs.95
Delete all obsolete ReleaseBuilders. Move the special-case builders - Nihongo, Squeakland - to 45Deprecated. (They're not deprecated as such, but they don't belong in trunk.)
=============== Diff against ReleaseBuilder-fbs.95 ===============
Item was changed:
Object subclass: #ReleaseBuilder
instanceVariableNames: ''
classVariableNames: ''
poolDictionaries: ''
category: 'ReleaseBuilder'!
+ !ReleaseBuilder commentStamp: 'fbs 5/2/2013 22:36' prior: 0!
+ I'm the script that prepares a trunk image for release. Which version of Squeak I release is stored in ReleaseBuilder class >> squeakVersion.!
- !ReleaseBuilder commentStamp: 'bp 12/4/2009 10:39' prior: 0!
- I'm responsible to help people releasing various distributions of Squeak.!
Item was added:
+ ----- Method: ReleaseBuilder class>>loadWellKnownPackages (in category 'private') -----
+ loadWellKnownPackages
+ "Load into the release image those packages that have been stripped from Trunk, but still deemed necessary for a release artifact."
+ #('311Deprecated'
+ '39Deprecated'
+ '45Deprecated'
+ 'Nebraska'
+ 'Universes'
+ 'XML-Parser') do: [:pkgName |
+ Installer squeak
+ project: 'trunk';
+ install: pkgName].!
Item was added:
+ ----- Method: ReleaseBuilder class>>openWelcomeWorkspaces (in category 'private') -----
+ openWelcomeWorkspaces
+ TheWorldMainDockingBar instance
+ showWelcomeText: #squeakUserInterface
+ label: 'Squeak User Interface'
+ in: (40 @ 40 extent: 500 @ 300).
+ TheWorldMainDockingBar instance
+ showWelcomeText: #workingWithSqueak
+ label: 'Working With Squeak'
+ in: (80 @ 80 extent: 500 @ 300).
+ TheWorldMainDockingBar instance
+ showWelcomeText: #licenseInformation
+ label: 'License Information'
+ in: (120 @ 120 extent: 500 @ 300).
+ TheWorldMainDockingBar instance
+ showWelcomeText: #welcomeFutureDirections
+ label: 'Future Directions'
+ in: (160 @ 160 extent: 500 @ 300).
+ TheWorldMainDockingBar instance
+ showWelcomeText: #welcomeToSqueak
+ label: 'Welcome to Squeak 4.5'
+ in: (200 @ 200 extent: 500 @ 300)!
Item was changed:
----- Method: ReleaseBuilder class>>prepareNewBuild (in category 'scripts') -----
prepareNewBuild
"ReleaseBuilderTrunk prepareNewBuild"
"Prepare everything that should be done for a new image build"
TTCFont registerAll.
RealEstateAgent standardSize: 600@400.
SystemVersion newVersion: self versionString.
SMLoaderPlus
setDefaultFilters: (OrderedCollection with: #filterSafelyAvailable).
self setDisplayExtent: 800 @ 600;
setPreferences;
switchToNewRepository;
openWelcomeWorkspaces.
"Make DependencyBrowser accessible on the open menu."
DependencyBrowser initialize.
self cleanPackages.
Smalltalk cleanUp: true except: #() confirming: false.
Undeclared removeUnreferencedKeys.
+ Smalltalk garbageCollect.
+ self loadWellKnownPackages.
+ TextDomainManager clearAllDomains.
+ MCMockPackageInfo initialize.
+ Compiler recompileAll.!
- Smalltalk garbageCollect!
Item was added:
+ ----- Method: ReleaseBuilder class>>releaseRepository (in category 'private') -----
+ releaseRepository
+ "At release time, change 'trunk' to 'squeak45'."
+ ^ MCHttpRepository
+ location: 'http://source.squeak.org/trunk'
+ user: 'squeak'
+ password: 'squeak'!
Item was added:
+ ----- Method: ReleaseBuilder class>>setDisplayExtent: (in category 'private') -----
+ setDisplayExtent: extent
+ "Uncomment next line when the primitives become available in the Squeak VM."
+ " DisplayScreen hostWindowSize: extent."
+ Display extent = extent ifFalse: [ Warning signal: 'Display extent not set to ', extent ]!
Item was added:
+ ----- Method: ReleaseBuilder class>>setPreferences (in category 'private') -----
+ setPreferences
+ Preferences
+ installBrightWindowColors ;
+ setPreference: #scrollBarsWithoutMenuButton toValue: true ;
+ setPreference: #swapMouseButtons toValue: true ;
+ setPreference: #annotationPanes toValue: true ;
+ setPreference: #showSplitterHandles toValue: false ;
+ setPreference: #showBoundsInHalo toValue: true ;
+ setPreference: #alternateHandlesLook toValue: false ;
+ setPreference: #roundedMenuCorners toValue: false ;
+ setPreference: #roundedWindowCorners toValue: false.
+ PluggableButtonMorph roundedButtonCorners: false.
+ FillInTheBlankMorph roundedDialogCorners: false.
+ Workspace shouldStyle: false.
+ NetNameResolver enableIPv6: true.!
Item was changed:
----- Method: ReleaseBuilder class>>switchToNewRepository (in category 'private') -----
switchToNewRepository
+ | old44Repository |
+ MCMcmUpdater defaultUpdateURL: self releaseRepository description.
+ old44Repository := MCRepositoryGroup default repositories
+ detect: [:each | each description includesSubString: 'squeak44'] ifNone: [nil].
+ old44Repository
+ ifNotNil: [MCRepositoryGroup default removeRepository: old44Repository].
+ MCRepositoryGroup default addRepository: self releaseRepository!
- self subclassResponsibility!
Item was added:
+ ----- Method: ReleaseBuilder class>>versionString (in category 'private') -----
+ versionString
+ ^ 'Squeak4.5'.!
Item was removed:
- ----- Method: ReleaseBuilder>>cleanUpChanges (in category 'utilities') -----
- cleanUpChanges
- "Clean up the change sets"
-
- "ReleaseBuilder 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: ReleaseBuilder>>cleanUpEtoys (in category 'utilities') -----
- cleanUpEtoys
- "ReleaseBuilder 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]!
Item was removed:
- ----- Method: ReleaseBuilder>>finalCleanup (in category 'utilities') -----
- finalCleanup
- "ReleaseBuilder 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.
- Symbol compactSymbolTable.!
Item was removed:
- ----- Method: ReleaseBuilder>>finalStripping (in category 'utilities') -----
- finalStripping
- "ReleaseBuilder new finalStripping"
- !
Item was removed:
- ----- Method: ReleaseBuilder>>fixObsoleteReferences (in category 'utilities') -----
- fixObsoleteReferences
- "ReleaseBuilder 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 inspect]!
Item was removed:
- ----- Method: ReleaseBuilder>>initialCleanup (in category 'utilities') -----
- initialCleanup
- "Perform various image cleanups in preparation for making a Squeak gamma release candidate image."
- "ReleaseBuilder new initialCleanup"
-
- Undeclared removeUnreferencedKeys.
- StandardScriptingSystem initialize.
-
- (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: 'Unnamed1'.
- Smalltalk garbageCollect.
-
- "Reinitialize DataStream; it may hold on to some zapped entitities"
- DataStream initialize.
-
- Smalltalk garbageCollect.
- ScheduledControllers := nil.
- Smalltalk garbageCollect.
-
- SMSqueakMap default purge.
-
- !
Item was removed:
- ----- Method: ReleaseBuilder>>installPreferences (in category 'utilities') -----
- installPreferences
- Preferences initialize.
- Preferences chooseInitialSettings.
- !
Item was removed:
- ----- Method: ReleaseBuilder>>installReleaseSpecifics (in category 'utilities') -----
- installReleaseSpecifics
- "ReleaseBuilder new installReleaseSpecifics"
- !
Item was removed:
- ----- Method: ReleaseBuilder>>installVersionInfo (in category 'utilities') -----
- installVersionInfo
- "ReleaseBuilder new installVersionInfo"
- !
Item was removed:
- ----- Method: ReleaseBuilder>>makeSqueaklandRelease (in category 'squeakland') -----
- makeSqueaklandRelease
- "ReleaseBuilder new makeSqueaklandRelease"
-
- self
- makeSqueaklandReleasePhasePrepare; makeSqueaklandReleasePhaseStripping; makeSqueaklandReleasePhaseFinalSettings; makeSqueaklandReleasePhaseCleanup!
Item was removed:
- ----- Method: ReleaseBuilder>>makeSqueaklandReleasePhaseCleanup (in category 'squeakland') -----
- makeSqueaklandReleasePhaseCleanup
- "ReleaseBuilder new makeSqueaklandReleasePhaseCleanup"
-
- Smalltalk at: #Browser ifPresent:[:br| br initialize].
- ChangeSet
- removeChangeSetsNamedSuchThat: [:cs | cs name ~= ChangeSet current name].
- ChangeSet current clear.
- ChangeSet current name: 'Unnamed1'.
- Smalltalk garbageCollect.
- "Reinitialize DataStream; it may hold on to some zapped entitities"
- DataStream initialize.
- "Remove existing player references"
- References keys do: [:k | References removeKey: k].
- Smalltalk garbageCollect.
- ScheduledControllers := nil.
- Behavior flushObsoleteSubclasses.
- Smalltalk
- garbageCollect;
- garbageCollect.
- SystemNavigation default obsoleteBehaviors isEmpty
- ifFalse: [self error: 'Still have obsolete behaviors'].
-
- "Reinitialize DataStream; it may hold on to some zapped entitities"
- DataStream initialize.
- Smalltalk fixObsoleteReferences.
- Smalltalk abandonTempNames.
- Smalltalk zapAllOtherProjects.
- Smalltalk flushClassNameCache.
- Symbol compactSymbolTable!
Item was removed:
- ----- Method: ReleaseBuilder>>makeSqueaklandReleasePhaseFinalSettings (in category 'squeakland') -----
- makeSqueaklandReleasePhaseFinalSettings
- "ReleaseBuilder new makeSqueaklandReleasePhaseFinalSettings"
-
- | serverName serverURL serverDir updateServer highestUpdate newVersion |
-
- ProjectLauncher splashMorph: (FileDirectory default readOnlyFileNamed: 'scripts\SqueaklandSplash.morph') fileInObjectAndCode.
-
- "Dump all morphs so we don't hold onto anything"
- World submorphsDo:[:m| m delete].
-
- #(
- (honorDesktopCmdKeys false)
- (warnIfNoChangesFile false)
- (warnIfNoSourcesFile false)
- (showDirectionForSketches true)
- (menuColorFromWorld false)
- (unlimitedPaintArea true)
- (useGlobalFlaps false)
- (mvcProjectsAllowed false)
- (projectViewsInWindows false)
- (automaticKeyGeneration true)
- (securityChecksEnabled true)
- (showSecurityStatus false)
- (startInUntrustedDirectory true)
- (warnAboutInsecureContent false)
- (promptForUpdateServer false)
- (fastDragWindowForMorphic false)
-
- (externalServerDefsOnly true)
- (expandedFormat false)
- (eToyFriendly true)
- (eToyLoginEnabled true)
- (magicHalos true)
- (mouseOverHalos true)
- (biggerHandles false)
- (selectiveHalos true)
- (includeSoundControlInNavigator true)
- (readDocumentAtStartup true)
- (preserveTrash true)
- (slideDismissalsToTrash true)
-
- ) do:[:spec|
- Preferences setPreference: spec first toValue: spec last].
- "Workaround for bug"
- Preferences enable: #readDocumentAtStartup.
-
- World color: (Color r: 0.9 g: 0.9 b: 1.0).
-
- "Clear all server entries"
- ServerDirectory serverNames do: [:each | ServerDirectory removeServerNamed: each].
- SystemVersion current resetHighestUpdate.
-
- "Add the squeakalpha update stream"
- serverName := 'Squeakalpha'.
- serverURL := 'squeakalpha.org'.
- serverDir := serverURL , '/'.
-
- updateServer := ServerDirectory new.
- updateServer
- server: serverURL;
- directory: 'updates/';
- altUrl: serverDir;
- user: 'sqland';
- password: nil.
- Utilities updateUrlLists addFirst: {serverName. {serverDir. }.}.
-
- "Add the squeakland update stream"
- serverName := 'Squeakland'.
- serverURL := 'squeakland.org'.
- serverDir := serverURL , '/'.
-
- updateServer := ServerDirectory new.
- updateServer
- server: serverURL;
- directory: 'public_html/updates/';
- altUrl: serverDir.
- Utilities updateUrlLists addFirst: {serverName. {serverDir. }.}.
-
- highestUpdate := SystemVersion current highestUpdate.
- (self confirm: 'Reset highest update (' , highestUpdate printString , ')?')
- ifTrue: [SystemVersion current highestUpdate: 0].
-
- newVersion := UIManager default request: 'New version designation:' initialAnswer: 'Squeakland 3.8.' , highestUpdate printString.
- SystemVersion newVersion: newVersion.
- (self confirm: self version , '
- Is this the correct version designation?
- If not, choose no, and fix it.') ifFalse: [^ self].
- !
Item was removed:
- ----- Method: ReleaseBuilder>>makeSqueaklandReleasePhasePrepare (in category 'squeakland') -----
- makeSqueaklandReleasePhasePrepare
- "ReleaseBuilder new makeSqueaklandReleasePhasePrepare"
-
- Undeclared removeUnreferencedKeys.
- StandardScriptingSystem initialize.
- Preferences initialize.
- "(Object classPool at: #DependentsFields) size > 1 ifTrue: [self error:'Still have dependents']."
- Undeclared isEmpty ifFalse: [self error:'Please clean out Undeclared'].
-
- "Dump all projects"
- Project allSubInstancesDo:[:prj| prj == Project current ifFalse:[Project deletingProject: prj]].
-
- "Set new look so we don't need older fonts later"
- StandardScriptingSystem applyNewEToyLook.
-
- Smalltalk at: #Browser ifPresent:[:br| br initialize].
- ScriptingSystem deletePrivateGraphics.
- ChangeSet removeChangeSetsNamedSuchThat:
- [:cs| cs name ~= ChangeSet current name].
- ChangeSet current clear.
- ChangeSet current name: 'Unnamed1'.
- Smalltalk garbageCollect.
- "Reinitialize DataStream; it may hold on to some zapped entitities"
- DataStream initialize.
- "Remove existing player references"
- References keys do:[:k| References removeKey: k].
-
- Smalltalk garbageCollect.
- ScheduledControllers := nil.
- Smalltalk garbageCollect.
- !
Item was removed:
- ----- Method: ReleaseBuilder>>makeSqueaklandReleasePhaseStripping (in category 'squeakland') -----
- makeSqueaklandReleasePhaseStripping
- "ReleaseBuilder new makeSqueaklandReleasePhaseStripping"
-
- #(#Helvetica #Palatino #Courier #ComicSansMS )
- do: [:n | TextConstants
- removeKey: n
- ifAbsent: []].
- Smalltalk
- at: #Player
- ifPresent: [:superCls | superCls
- allSubclassesDo: [:cls |
- cls isSystemDefined
- ifFalse: [cls removeFromSystem]]].
- Smalltalk garbageCollect.
- Smalltalk discardFFI; discardSUnit; discardSpeech.
- "discardMVC;"
- SystemOrganization removeEmptyCategories.
- Smalltalk garbageCollect.
- ScheduledControllers := nil.
- Behavior flushObsoleteSubclasses.
- Smalltalk garbageCollect; garbageCollect.
- DataStream initialize.
- Smalltalk fixObsoleteReferences!
Item was removed:
- ----- Method: ReleaseBuilder>>prepareReleaseImage (in category 'utilities') -----
- prepareReleaseImage
- "Perform various image cleanups in preparation for making a Squeak gamma release candidate image."
- "ReleaseBuilder 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
- initialCleanup;
- installPreferences;
- finalStripping;
- installReleaseSpecifics;
- finalCleanup;
- installVersionInfo
- !
Item was removed:
- ReleaseBuilder subclass: #ReleaseBuilderDeveloper
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'ReleaseBuilder'!
-
- !ReleaseBuilderDeveloper commentStamp: 'gk 2/28/2005 13:27' prior: 0!
- This release builder subclass is used for the official Squeak distribution Basic, which currently is the base image of Squeak.
- Full is then built on top of Basic using a loadscript from SqueakMap. Minimal is constructed using another script from SqueakMap that removes packages that are included in Basic.!
Item was removed:
- ----- Method: ReleaseBuilderDeveloper>>cleanUpChanges (in category 'utilities') -----
- cleanUpChanges
- "Clean up the change sets"
-
- "ReleaseBuilderDeveloper new cleanUpChanges"
-
- !
Item was removed:
- ----- Method: ReleaseBuilderDeveloper>>installPreferences (in category 'utilities') -----
- installPreferences
- super installPreferences.
- #(
- (updateFromServerAtStartup true)
-
- ) do:[:spec|
- Preferences setPreference: spec first toValue: spec last]!
Item was removed:
- ----- Method: ReleaseBuilderDeveloper>>installReleaseSpecifics (in category 'utilities') -----
- installReleaseSpecifics
- "Currently just clear and add the ServerDirectories
- and update streams we want as default."
-
- "Clear all server entries"
- ServerDirectory serverNames do: [:each | ServerDirectory removeServerNamed: each].
-
- "Add default entries, added an entry for the new file area.
- The others are the current ones that see to work
- as of 2005-02-28 and I recreated them using source."
- ServerDirectory addServer: (ServerDirectory new
- type: #ftp;
- user: '';
- server: 'box1.squeakfoundation.org';
- altUrl: 'http://box1.squeakfoundation.org/files';
- directory: 'files';
- keepAlive: false) named: 'Squeak.org Archive'.
- ServerDirectory addServer: (ServerDirectory new
- type: #ftp;
- server: 'st.cs.uiuc.edu';
- user: 'anonymous';
- directory: '/Smalltalk/Squeak';
- keepAlive: false) named: 'UIUC Archive'.
- ServerDirectory addServer: (ServerDirectory new
- type: #ftp;
- server: 'ftp.create.ucsb.edu';
- user: 'anonymous';
- directory: '/pub/Smalltalk/Squeak';
- keepAlive: false) named: 'UCSBCreate Archive'.
- ServerDirectory addServer: SuperSwikiServer defaultSuperSwiki named: 'Bob SuperSwiki'.
- ServerDirectory addServer: (SuperSwikiServer new
- type: #http;
- server: 'squeakland.org:8080';
- altUrl: 'http://www.squeakland.org/uploads';
- directory: '/super/SuperSwikiProj';
- keepAlive: false;
- acceptsUploads: true) named: 'Squeakland SuperSwiki'.
- ServerDirectory addServer: (HTTPServerDirectory new
- type: #ftp;
- user: 'sqland';
- server: 'www.squeakland.org';
- altUrl: 'http://www.squeakland.org/projects';
- directory: 'projects';
- keepAlive: false) named: 'Squeakland Projects'.
-
- "Add the update streams here just as Squeakland does?
- serverName := 'Squeakland'.
- serverURL := 'squeakland.org'.
- serverDir := serverURL , '/'.
- updateServer := ServerDirectory new.
- updateServer
- server: serverURL;
- directory: 'public:=html/updates/';
- altUrl: serverDir.
- Utilities updateUrlLists addFirst: {serverName. {serverDir. }.}.
- "
- !
Item was removed:
- ReleaseBuilder subclass: #ReleaseBuilderFor3dot10
- instanceVariableNames: 'repository packagesList mantisNo'
- classVariableNames: ''
- poolDictionaries: ''
- category: 'ReleaseBuilder'!
- ReleaseBuilderFor3dot10 class
- instanceVariableNames: 'current'!
-
- !ReleaseBuilderFor3dot10 commentStamp: 'edc 4/5/2007 10:06' prior: 0!
- This class has two functions. One is to hold a few methods that are used by the release team to make an initial or a final release. These will not be used much. The other is to manage the update stream. In general, an update will be a set of Montecello versions. There will be a "packages" method that lists them, and an "update" method that loads them. The actual update file will just load these two methods from Montecello and execute them.
-
- Once the 3.10 release cycle is over, this class will be useless except for tracking history.
-
- For do a new update:
- With a regular web browser like Firefox you go to http://bugs.squeak.org/view.php?id= nnnn
- If you think what this should go into image, then in a Workspace do
-
- Installer mantis createRBforBug: nnnn !
- ReleaseBuilderFor3dot10 class
- instanceVariableNames: 'current'!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10 class>>clear (in category 'instance creation') -----
- clear
-
- " ReleaseBuilderFor3dot10 clear "
- current:= nil!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10 class>>current (in category 'instance creation') -----
- current
-
- " ReleaseBuilderFor3dot10 current inspect "
- ^current ifNil: [current := (self new) newUpdate]!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>addRepositoryToPackageNamed: (in category 'managing updates') -----
- addRepositoryToPackageNamed: aString
-
- |pa|
- pa := MCPackage named: aString.
- pa workingCopy repositoryGroup addRepository: self repository.
- ^pa workingCopy repositoryGroup
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>advanceToThreeDotTenAlpha (in category 'squeakThreeTen') -----
- advanceToThreeDotTenAlpha
-
- "Offer the chance to advance the version number."
- (self confirm: 'There are no further updates for Squeak 3.9.
- Do you wish to advance to version 3.10alpha?
- [Yes] Your system will be marked as 3.10alpha, and you will
- subsequently receive ''test pilot'' updates for 3.10.
- [No] Your system will be marked as 3.9, allowing you
- to receive only final fixes for the 3.9 stable release.
- [Neither] You may choose No, and immediately quit without saving,
- allowing you to make a backup copy before adopting this change.
- DO YOU WANT TO ADVANCE to Version 3.10alpha now?')
- ifTrue: [SystemVersion newVersion: 'Squeak3.10alpha'.
- SystemVersion current date: Time now asDate.
- self inform: 'You may now save this Version 3.10alpha image
- and retrieve updates again for 3.10alpha and beyond.']
- ifFalse: [SystemVersion current version: 'Squeak3.9'; date: Time now asDate..
- self inform: 'You may now save this Version 3.9 final image
- and retrieve updates again for any final fixes to 3.9.
- - - - - -
- (If you quit without saving now, your image will revert to
- 3.9without any of the updates you just loaded)']!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>cleanUnwantedCs (in category 'updates') -----
- cleanUnwantedCs
- ChangeSet
- removeChangeSetsNamedSuchThat: [:cs | cs name ~= ChangeSet
- current name].
- ChangeSet current clear.
- ChangeSet current name: 'Unnamed1'.
- Smalltalk garbageCollect.!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>createBackgroundColor (in category 'squeakThreeTen') -----
- createBackgroundColor
- | gf |
- gf := GradientFillStyle ramp: {0.0->(Color r: 0.97 g: 0.98 b: 1.0) .
- 1.0->(Color r: 0.0 g: 0.658 b: 0.474)}.
- gf origin: 0 @ 0;
- direction: 0@400;
- normal: 640@0;
- radial: false.
- World fillStyle: gf
-
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>flushCaches (in category 'managing updates') -----
- 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: ReleaseBuilderFor3dot10>>installInBoxAnd310 (in category 'packages') -----
- installInBoxAnd310
-
-
- MCWorkingCopy allManagers do: [:each |
- each repositoryGroup
- addRepository: (MCHttpRepository new location: 'http://source.squeakfoundation.org/310' ; user: 'squeak'; password: 'squeak');
- addRepository: (MCHttpRepository new location: 'http://source.squeakfoundation.org/inbox' ; user: '' ; password: '')].!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>loadLast: (in category 'updates') -----
- loadLast: aPackageName
- | package |
- package := self repository readableFileNames detect:[:ea| ea beginsWith: aPackageName] ifNone:[]. package ifNotNil: [
- (repository loadVersionFromFileNamed: package) load]
- ifNil: [ ^ self error: aPackageName ,' is not on this repository '].
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>loadLastVersion: (in category 'packages') -----
- loadLastVersion: aListOfPackageNames
- | mcw montiNames version |
- mcw := MCWorkingCopyBrowser new repository: (MCHttpRepository
- location: 'http://source.squeakfoundation.org/39a'
- user: ''
- password: '').
- mcw repository ifNotNil: [:repos | montiNames := repos readableFileNames ].
-
- aListOfPackageNames do: [:mo | | package |
-
- package := (montiNames detect:[:ea| ea beginsWith: mo] ifNone:[] ) .
- package ifNotNil: [
- version := mcw repository loadVersionFromFileNamed: package.
- version load]].
- ^version!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>loadPackages: (in category 'managing updates') -----
- loadPackages: packageNames
- self loadTogether: (packageNames findTokens: ' ', String cr) merge: false!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>loadTogether:merge: (in category 'managing updates') -----
- loadTogether: aCollection merge: aBoolean
- | loader mcc |
- loader := aBoolean
- ifTrue: [ MCVersionMerger new ]
- ifFalse: [ MCVersionLoader new].
- aCollection do: [:eachVersion | self addRepositoryToPackageNamed: (eachVersion copyUpTo: $- )].
- (self newerVersionsIn: aCollection)
- do: [:fn | Transcript show: fn;cr.
- 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].
- SystemNavigation default obsoleteBehaviors size > 0
- ifTrue: [
- SystemNavigation default obsoleteBehaviors inspect.
- self error:'The changes should be reviewed'].
- self flushCaches.
-
- mcc := MCWorkingCopyBrowser new.
- mcc repository: MCCacheRepository default.
- mcc workingCopies select:
- [:wc |
- (wc modified = true)] thenDo: [:ea|
- mcc workingCopy: ea.
- ea modified: false
- ]
-
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>makeSqueakRelease (in category 'squeakThreeTen') -----
- makeSqueakRelease
- | monti |
-
- self unloadSome.
-
- monti := MCWorkingCopyBrowser new.
- monti unsortedWorkingCopies
- do: [:ea | ((PackageOrganizer default packageNames) includes: (ea package name)) ifFalse:[ ea unregister]].
- monti flushAllCaches.
-
-
- Smalltalk garbageCollect.
- DataStream initialize.
- Flaps replaceGlobalFlapwithID: 'Tools' translated.
- Flaps replaceGlobalFlapwithID: 'Widgets' translated.
- self cleanUpEtoys.
- SmalltalkImage current fixObsoleteReferences.
-
- Smalltalk garbageCollect.
- ScheduledControllers := nil.
- Behavior flushObsoleteSubclasses.
- Smalltalk garbageCollect!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>makeSqueakThreeTenRelease (in category 'squeakThreeTen') -----
- makeSqueakThreeTenRelease
- "ReleaseBuilderFor3dot10 new makeSqueakThreeTenRelease"
-
- self
- makeSqueakThreeTenReleasePhasePrepare;
- makeSqueakRelease;
- makeSqueakThreeTenReleasePhaseCleanup;
- installInBoxAnd310;
- updateFrom7067;
- createBackgroundColor!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>makeSqueakThreeTenReleasePhaseCleanup (in category 'squeakThreeTen') -----
- makeSqueakThreeTenReleasePhaseCleanup
- "ReleaseBuilderFor3dot10 new makeSqueakThreeTenReleasePhaseCleanup"
- | newVersion |
- Smalltalk at: #Browser ifPresent:[:br| br initialize].
- self cleanUnwantedCs.
- "Remove existing player references"
- References keys do: [:k | References removeKey: k].
- Smalltalk garbageCollect.
- ScheduledControllers := nil.
- Behavior flushObsoleteSubclasses.
- SystemNavigation default obsoleteBehaviors isEmpty
- ifFalse: [self error: 'Still have obsolete behaviors'].
-
- "Reinitialize DataStream; it may hold on to some zapped entitities"
- DataStream initialize.
- self fixObsoleteReferences.
- "Smalltalk abandonTempNames."
- Smalltalk zapAllOtherProjects.
- Smalltalk flushClassNameCache.
- Symbol compactSymbolTable.
- "SystemVersion current registerUpdate: 7069." "We only need for when start the release"
- newVersion := 'Squeak3.10alpha.' , SystemVersion current
- highestUpdate printString.
-
- newVersion := newVersion ,'.'.
- (SourceFiles at: 2) ifNotNil:
- [SmalltalkImage current closeSourceFiles; "so copying the
- changes file will always work"
- saveChangesInFileNamed: (SmalltalkImage current
- fullNameForChangesNamed: newVersion)].
- SmalltalkImage current saveImageInFileNamed: (SmalltalkImage current
- fullNameForImageNamed: newVersion)
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>makeSqueakThreeTenReleasePhasePrepare (in category 'squeakThreeTen') -----
- makeSqueakThreeTenReleasePhasePrepare
- "ReleaseBuilderFor3dot10 new makeSqueakThreeTenReleasePhasePrepare"
-
- Undeclared removeUnreferencedKeys.
- StandardScriptingSystem initialize.
- Preferences initialize.
- "(Object classPool at: #DependentsFields) size > 1 ifTrue: [self
- error:'Still have dependents']."
- Undeclared isEmpty ifFalse: [self error:'Please clean out
- Undeclared'].
-
- "Dump all projects"
- Project allSubInstancesDo:[:prj| prj == Project current
- ifFalse:[Project deletingProject: prj]].
-
- "Set new look so we don't need older fonts later"
- StandardScriptingSystem applyNewEToyLook.
-
- Smalltalk at: #Browser ifPresent:[:br| br initialize].
- ScriptingSystem deletePrivateGraphics.
- self cleanUnwantedCs.
- "Reinitialize DataStream; it may hold on to some zapped entitities"
- DataStream initialize.
- "Remove existing player references"
- References keys do:[:k| References removeKey: k].
-
- Smalltalk garbageCollect.
- ScheduledControllers := nil.
- Smalltalk garbageCollect.
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>newUpdate (in category 'updates') -----
- newUpdate
- packagesList := Set new!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>newUpdateFor: (in category 'updates') -----
- newUpdateFor: aBugNo
- " ReleaseBuilderFor3dot10 new newUpdateFor: nnnn"
- |cs updateNo newName newSet lastName|
- mantisNo := aBugNo.
- updateNo := SystemVersion current highestUpdate + 1.
-
- lastName := ChangeSet allChangeSetNames last.
- newName := UIManager default
- request: 'Please name the new change set:'
- initialAnswer: updateNo asString, lastName.
- newName isEmptyOrNil ifTrue:
- [^ nil].
- newSet := ChangeSet basicNewChangeSet: newName.
- newSet ifNotNil:
- [ChangeSet newChanges: newSet].
-
-
- cs := newSet .
- cs preamble: '"',(Installer mantis preambleCsForRB: aBugNo) withSqueakLineEndings asUnHtml , '"'.
- cs postscript: '"', self postcriptTemplate, aBugNo asString, '"
-
- ReleaseBuilderFor3dot10 new updatePackages: '.
- self updateToNext.
- cs editPostscript!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>newerVersionsIn: (in category 'managing updates') -----
- newerVersionsIn: aCollection
- ^aCollection reject: [:each |
- MCWorkingCopy allManagers anySatisfy: [:workingcopy |
- workingcopy ancestry ancestorString , '.mcz' = each]].!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>packages7067 (in category 'packages') -----
- packages7067
- ^ 'System-edc.102(sd.101).mcd
- Tests-edc.20(sd.19).mcd
- Kernel-edc.151(sd.150).mcd
- ST80-edc.38.mcz
- Monticello-edc.311.mcz
- CollectionsTests-edc.35.mcz
- Graphics-edc.40(ar.39).mcd
- SystemChangeNotification-Tests-edc.7.mcz
- GraphicsTests-edc.10(ar.9).mcd
- SMBase-edc.86(sd.85).mcd
- KernelTests-edc.51(sd.50).mcd
- Traits-edc.226.mcz
- Files-edc.20.mcz
- ToolBuilder-Kernel-rej.18.mcz
- XML-Parser-mir.3.mcz
- Universes-ls.19.mcz'!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>packagesInfluenced (in category 'packages') -----
- packagesInfluenced
-
- " This is a partial response to Ralph request.
- Lets know what packages could touch some code file what we wish go into image.
- Intended to load Mantis fix and convert the result to Monticello "
- "
- ReleaseBuilderFor3dot10 new packagesInfluenced
- "
- | monti fileName cs |
- monti := Set new.
- fileName := UIManager default chooseFileMatching: #('st' 'cs').
- cs := FilePackage fromFileNamed: fileName.
- cs classes do: [:cl| | realClass cat p |
- realClass := Smalltalk at: cl name ifAbsent: [ self error: 'This image do not have ', cl asString] .cat := (realClass category findTokens: '-') first.
-
- p := (PackageInfo allPackages collect:[:pi| pi packageName]) .
- (p includes: cat) ifTrue:[ monti add: cat]].
- ^ monti.!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>packagesInfluenced:named: (in category 'packages') -----
- packagesInfluenced: aStream named: aFileName
-
- " This is a partial response to Ralph request.
- Lets know what packages could touch some code file what we wish go into image.
- Intended to load Mantis fix and convert the result to Monticello "
- "
- ReleaseBuilderFor3dot10 new packagesInfluenced
- "
- | monti cs |
- monti := Set new.
-
- cs := FilePackage new fromStream: aStream reset named: aFileName.
- cs classes do: [:cl| | p realClass cat |
- realClass := Smalltalk at: cl name ifAbsent: [ self error: 'This image do not have ', cl asString] .cat := (realClass category findTokens: '-') first.
-
- p := (PackageInfo allPackages collect:[:pi| pi packageName]) .
- (p includes: cat) ifTrue:[ monti add: cat]].
- packagesList addAll: monti.!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>packagesList (in category 'accessing') -----
- packagesList
- | mcc lista |
- lista := OrderedCollection new.
- mcc := MCWorkingCopyBrowser new.
- mcc repository: MCCacheRepository default.
- lista := mcc workingCopies select:
- [:wc |
- ((wc modified = true) & wc ancestors notEmpty)] thenCollect: [:ea| | packName pos|
- packName := ea ancestry ancestors first name.
- pos := packName indexOf: $-.
- packName := packName copyFrom: 1 to: pos -1.
- lista add: packName].
- ^ lista!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>postcriptTemplate (in category 'updates') -----
- postcriptTemplate
- ^'To follow this see
- http://bugs.squeak.org/view.php?id= '!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>repository (in category 'updates') -----
- repository
- repository isNil ifTrue: [
- repository := MCHttpRepository
- location: 'http://source.squeakfoundation.org/310'
- user: ''
- password: ''.].
- ^repository!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>saveNewVersion: (in category 'packages') -----
- saveNewVersion: v
-
- v repositoryGroup: (self addRepositoryToPackageNamed: v package name).
- repository user ifEmpty:[
- repository user: (UIManager default request: '3.10 Repository username').
- repository password: (UIManager default request: '3.10 Repository password')].
-
- repository storeVersion: (v newVersionWithName: v uniqueVersionName message: self postcriptTemplate, mantisNo asString) .
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>testObsolete (in category 'squeakThreeTen') -----
- testObsolete
- "if we do some classes go, also his test should go"
- ^#(WatchMorphTest)!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>unloadMorphicClasses (in category 'squeakThreeTen') -----
- unloadMorphicClasses
-
- "These classes don't seem to be used, so unload them. They always can be loaded later."
-
- SystemOrganization classifyAll: #(BorderedStringMorph MouseActionIndicatorMorph CommandTilesMorph
- TestClickExerciser SpectrumAnalyzerMorph FishEyeMorph SoundDemoMorph
- MultiuserTinyPaint KidNavigationMorph CodecDemoMorph BlobMorph
- SoundMorph SubpaneDividerMorph
- RolloverButtonMorph ClipboardMorph VeryPickyMorph
- ClassRepresentativeMorph PhraseWrapperMorph WatchMorph
- UpdatingTextMorph PluggableTabBarMorph PartsWindow HeadingMorph
- ZoomMorph UpdatingStringMorphWithArgument SoundSequencerMorph
- ImageMorphWithSpotlight TinyPaint InfoStringMorph
- UpdatingBooleanStringMorph DrawErrorMorph ViewerRow
- BalloonRectangleMorph ViewerEntry MidiInputMorph
- CachingMorph MovingEyeMorph MIDIPianoKeyboardMorph
- DoubleClickExample MorphExample RulerMorph LabelStringMorph) under:
- 'Morphic-CandidatesForGo'.
-
- (MCPackage named: 'Morphic-CandidatesForGo') unload .
- #(TheWorldMenu FileServices AppRegistry Preferences FileList) do: [:cl|
- (Smalltalk at: cl) removeObsolete].
- self testObsolete do: [:cl|
- Smalltalk removeClassNamed: cl].
- Smalltalk garbageCollect.!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>unloadSome (in category 'squeakThreeTen') -----
- unloadSome
- World removeAllMorphs.
- CommandHistory resetAllHistory.
- #('Flash' 'StarSqueak' 'SmaCC' 'Speech' 'Movies' 'FixUnderscores' 'OB' 'OmniBrowser' )
- do: [:ea | (MCPackage named: ea) unload.
- PackageOrganizer default unregisterPackageNamed: ea].
- #(#TheWorldMenu #FileServices #AppRegistry #Preferences #FileList )
- do: [:cl | (Smalltalk at: cl) removeObsolete].
- self unloadMorphicClasses.
- SystemOrganization removeEmptyCategories.
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>updateFrom7067 (in category 'updates') -----
- updateFrom7067
- "ReleaseBuilderFor3dot10 new updateFrom7067"
- self updatePackages: 'Monticello-rej.309.mcz'.
- "Enable atomic loading"
- self addRepositoryToPackageNamed: 'SystemChangeNotification-Tests'.
- self updatePackages: self packages7067.
- self flushCaches!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>updatePackages: (in category 'managing updates') -----
- updatePackages: packageNames
- self loadTogether: (packageNames findTokens: ' ', String cr) merge: true!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>updateTo7070 (in category 'updates') -----
- updateTo7070
- ^'EToys-edc.23(md.22).mcd'!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>updateTo7071 (in category 'updates') -----
- updateTo7071
- ^'Collections-edc.72(md.71).mcd
- CollectionsTests-edc.36(35).mcd
- '!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>updateToNext (in category 'updates') -----
- updateToNext
-
- | stream mcc |
- stream := RWBinaryOrTextStream on: String new.
- mcc := MCWorkingCopyBrowser new.
- mcc repository: MCCacheRepository default.
- mcc workingCopies select:
- [:wc |
- (wc modified = true)] thenDo: [:ea| | number p1 packString pos |
- self saveNewVersion: ea.
-
- packString := ea ancestry ancestorString .
- pos := packString indexOf: $..
- p1 := packString copyFrom: 1 to: pos -1.
- number := (packString copyFrom: pos + 1 to: packString size) asNumber.
- packString := p1 ,'.', number asString , '(', (number - 1) asString ,').mcd'.
- packString := packString, Character cr asString.
- stream nextPutAll: packString
- ].
- ChangeSet current postscript: ChangeSet current postscript, stream contents!
Item was removed:
- ReleaseBuilderFor3dot10 subclass: #ReleaseBuilderFor3dot11
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'ReleaseBuilder'!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>cleanupPhaseFinal (in category 'cleaning') -----
- cleanupPhaseFinal
- " ReleaseBuilderFor3dot11 new cleanupPhaseFinal "
- | tasks |
- tasks := OrderedCollection new
-
- add: [Smalltalk removeEmptyMessageCategories];
- add: [Workspace
- allSubInstancesDo: [:each | each initializeBindings]];
- add: [Undeclared removeUnreferencedKeys];
- add: [Categorizer sortAllCategories];
- add: [Symbol compactSymbolTable];
- add: [#(#TheWorldMenu #FileServices #AppRegistry #Preferences #FileList )
- do: [:cl | (Smalltalk at: cl) removeObsolete]]; add:[Flaps freshFlapsStart]; add:[MCFileBasedRepository flushAllCaches];
- add: [HandMorph releaseCachedState;
- initForEvents.self fixObsoleteReferences];
- add: [
-
- 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].Smalltalk garbageCollectMost];
- yourself.
- Utilities
- informUserDuring: [:bar | tasks
- do: [:block |
- bar value: block printString.
- block
- on: Error
- do: [:error | Transcript show: error;
- cr]]].
- SystemNavigation default obsoleteClasses isEmpty
- ifTrue: [SmalltalkImage current saveSession]
- ifFalse: [SystemNavigation default obsoleteClasses
- do: [:each | .self halt.[PointerFinder on: each]
- on: Error
- do: [:error | Transcript show: error; cr]]]
-
-
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>cleanupPhasePrepare (in category 'cleaning') -----
- cleanupPhasePrepare
- self cleanUnwantedCs.
- "SMSqueakMap default clearCaches."
- " Commented out for no Undeclared on image "
- #(zapMVCprojects zapAllOtherProjects discardFlash discardFFI
- computeImageSegmentation discardSpeech ) do:[:ea|
- SystemDictionary removeSelector:ea].
- #( reserveUrl: saveAsResource saveDocPane saveOnURL saveOnURL:
- saveOnURLbasic isTurtleRow objectViewed inATwoWayScrollPane) do:[:ea|
- Morph removeSelector: ea].
-
- #(playfieldOptionsMenu presentPlayfieldMenu allScriptEditors
- attemptCleanupReporting: modernizeBJProject
- scriptorForTextualScript:ofPlayer:) do:[:ea|
- PasteUpMorph removeSelector: ea].
- #(isUniversalTiles noteDeletionOf:fromWorld: scriptorsForSelector:inWorld: tilesToCall: handMeTilesToFire) do:[:ea|
- Player removeSelector: ea].
- Player class removeCategory: 'turtles'.
- Player removeCategory: 'slots-user'.
- Morph removeCategory: 'scripting'.
- ColorType removeCategory: 'tiles'.
- TheWorldMainDockingBar removeSelector: #hideAllViewersIn: .
- SystemOrganization removeCategoriesMatching: 'UserObjects'.
- FileList2 class organization classify: #morphicViewOnDirectory: under: 'morphic ui'.
- FileList2 class organization classify: #morphicView under: 'morphic ui'.
- SystemOrganization classifyAll: #(AbstractMediaEventMorph ColorSwatch) under: 'MorphicExtras-AdditionalSupport'.!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>createBackgroundColor (in category 'squeakThreeEleven') -----
- createBackgroundColor
- | gf |
- gf := GradientFillStyle ramp: {0.0->(Color r: 0.97 g: 0.98 b: 1.0) .
- 1.0->(Color r: 0.0 g: 0.658 b: 0.474)}.
- gf origin: 0 @ 0;
- direction: 0@400;
- normal: 640@0;
- radial: false.
- World fillStyle: gf!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>createCompressedSources (in category 'sources managment') -----
- createCompressedSources
- " ReleaseBuilderFor3dot11 new createCompressedSources"
-
- ProtoObject allSubclassesWithLevelDo:[:cl :l| | dir |
- dir := self createDirIfnotExists:cl category.
-
-
- Cursor write showWhile: [ | zipped nameToUse unzipped buffer |
- nameToUse := cl printString , FileDirectory dot, ImageSegment compressedFileExtension.
- (dir fileExists: nameToUse) ifFalse:[
- unzipped :=RWBinaryOrTextStream on: ''.
- unzipped header; timeStamp.
- cl fileOutOn: unzipped moveSource: false toFile: 0.
- unzipped trailer.
-
- unzipped reset.
- zipped := dir newFileNamed: (nameToUse).
- zipped binary.
- zipped := GZipWriteStream on: zipped.
- buffer := ByteArray new: 50000.
- 'Compressing ', nameToUse displayProgressFrom: 0 to: unzipped size
- during:[:bar|
- [unzipped atEnd] whileFalse:[
- bar value: unzipped position.
- zipped nextPutAll: (unzipped nextInto: buffer)].
- zipped close.
- unzipped close]]]] startingLevel: 0!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>createDirIfnotExists: (in category 'sources managment') -----
- createDirIfnotExists: aDirName
- (FileDirectory default directoryExists:aDirName)
- ifFalse: [FileDirectory default createDirectory: aDirName].
- ^FileDirectory default directoryNamed: aDirName!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>getRidOfUnwantedMorphs (in category 'cleaning') -----
- getRidOfUnwantedMorphs
- | objFl aButton partBin unwantedMorph |
- aButton := SimpleButtonMorph new label: 'Tools'.
- aButton actWhen: #buttonDown.
- objFl := Flaps globalFlapTabWithID: 'Objects'.
- objFl referent showCategory: 'Tools' fromButton: aButton.
- partBin := objFl referent submorphs at: 1.
- unwantedMorph := partBin submorphThat: [:any| (any arguments at: 2) = 'SUnit Runner'] ifNone: [].
- unwantedMorph delete.
- 2 timesRepeat: [unwantedMorph := partBin submorphThat: [:any| (any arguments at: 2) = 'Package Loader'] ifNone: []. "we have two of this "
- unwantedMorph delete].
- objFl := Flaps globalFlapTabWithID: 'Tools'.
- partBin := objFl referent.
- unwantedMorph := partBin submorphThat: [:any| (any arguments at: 2) = 'Package Loader'] ifNone: [].
- unwantedMorph delete.
- unwantedMorph := partBin submorphThat: [:any| (any arguments at: 2) = 'SUnit Runner'] ifNone: [].
- unwantedMorph delete.!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>groupingTests (in category 'unloadPackages') -----
- groupingTests
- " this is how I build Tests-edc.35 for unload "
- | classList |
-
- classList := OrderedCollection new.
- #(TestCase TestResource) do: [:cl| (Smalltalk at: cl)
- allSubclassesWithLevelDo: [:c :i | classList addFirst: c]
- startingLevel: 0].
-
- Smalltalk organization addCategory: 'Tests-Others'.
- classList select: [:ea| ((ea basicCategory asString) beginsWith: 'Tests') not] thenDo: [:any| SystemOrganization classify: any name under: 'Tests-Others']
-
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>installtrunk (in category 'updates') -----
- installtrunk
-
- " ReleaseBuilderFor3dot11 new installtrunk"
-
- MCWorkingCopy allManagers
- do: [:each | each repositoryGroup addRepository: (MCHttpRepository new location: 'http://source.squeakfoundation.org/trunk/';
- user: 'squeak';
- password: 'squeak')]!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>loadLastVersion: (in category 'updates') -----
- loadLastVersion: aListOfPackageNames
- | mcw montiNames version |
- mcw := MCWorkingCopyBrowser new
- repository: (MCHttpRepository
- location: 'http://source.squeakfoundation.org/trunk'
- user: ''
- password: '').
- mcw repository
- ifNotNil: [:repos | montiNames := repos readableFileNames].
- aListOfPackageNames
- do: [:mo | | package |
- package := montiNames
- detect: [:ea | (ea findTokens: '-' ) first = mo]
- ifNone: [].
- package
- ifNotNil: [version := mcw repository loadVersionFromFileNamed: package.
- version load]].
- ^ version!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>makeSqueakThreeTenEleven (in category 'squeakThreeEleven') -----
- makeSqueakThreeTenEleven
- "ReleaseBuilderFor3dot11 new makeSqueakThreeTenEleven"
- "World removeAllMorphs."
- Transcript open.
- self cleanupPhasePrepare;getRidOfUnwantedMorphs
- "prepareforUnloadBookMorphandFriends;"
- ;prepareforUnloadEtoys;
- prepareforUnloadNebraska
- ;groupingTests;
- unloadSomeMore;unloadSomeMore3;cleanupPhaseFinal;createBackgroundColor!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>prepareforUnloadBookMorphandFriends (in category 'cleaning') -----
- prepareforUnloadBookMorphandFriends
- SystemOrganization addCategory: #BookMorphandFriends.
-
- SystemOrganization classifyAll: #( BookMorph BookPageSorterMorph BookPageThumbnailMorph BooklikeMorph FlexMorph FloatingBookControlsMorph KedamaMorph MethodMorph MorphThumbnail StoryboardBookMorph ) under: 'BookMorphandFriends'.
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>prepareforUnloadEtoys (in category 'cleaning') -----
- prepareforUnloadEtoys
- Smalltalk removeClassNamed: #FlexibleVocabulariesInfo.
- SystemOrganization classifyAll: #(ActorState MethodMorph Player Presenter StickySketchMorph UnscriptedPlayer SlotInformation UnscriptedCardPlayer) under: 'MorphicExtras-EToys-Scripting'.
- #( actorState actorState: isPartsDonor isPartsDonor: player player:) do: [:method|
- MorphExtension organization classify: method under: '*MorphicExtras-accessing' suppressIfDefault: false].
- HaloMorph organization classify: #doMakeSiblingOrDup:with: under: 'Old Etoys-handles'.
- HaloMorph organization classify: #doDupOrMakeSibling:with: under: 'Old Etoys-handles'.
- "self loadTogether: #('Morphic-CandidatesForGo-edc.3.mcz' ) merge: false."
- SystemOrganization classifyAll: #(ScriptEditorMorph TwoWayScrollPane TabSorterMorph) under:
- 'Morphic-CandidatesForGo'.
-
- #('*eToys-queries' '*eToys-eToy vocabularies' '*eToys-color' '*eToys-customevents-custom events' '*eToys-type vocabularies') do:[:ea|
- Vocabulary class removeCategory: ea].
-
- #('*flexibleVocabularies-flexiblevocabularies-scripting' '*flexibleVocabularies-flexibleVocabularies' '*eToys-scripting' '*eToys-new-morph participation' '*eToys-customevents-user events') do:[:ea|
- Morph class removeCategory: ea].
- #(nascentUserScriptInstance userScriptForPlayer: selector: ) do:[:ea|
- Player class removeSelector: ea].
- Smalltalk removeClassNamed: #FlexibleVocabulariesInfo.
- Preferences removePreference: #allowEtoyUserCustomEvents.
- Morph organization classify: #partName:categories:documentation:sampleImageForm: under: '*MorphicExtras-new-morph participation'.
- #(possiblyReplaceEToyFlaps twiddleSuppliesButtonsIn:) do: [:ea|
- Flaps class removeSelector: ea].
- Flaps clobberFlapTabList.
- Flaps addStandardFlaps.
- SystemOrganization classifyAll: #(ComponentLikeModel) under: 'MorphicExtras-Components'
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>prepareforUnloadNebraska (in category 'cleaning') -----
- prepareforUnloadNebraska
- SystemOrganization addCategory: #'Nebraska-Refactoring'.
-
- SystemOrganization classifyAll: #(EToyGenericDialogMorph EToyProjectDetailsMorph EToyProjectHistoryMorph EToyProjectQueryMorph EToyProjectRenamerMorph EtoyUpdatingThreePhaseButtonMorph) under: 'Nebraska-Refactoring'.
- WorldState organization classify: #remoteCanvasesDo: under: '*MorphicExtras-nebraska compatible'.
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>repository (in category 'updates') -----
- repository
- repository isNil
- ifTrue: [repository := MCHttpRepository
- location: 'http://source.squeakfoundation.org/trunk/'
- user: ''
- password: ''].
- ^ repository!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>saveInTrunk: (in category 'squeakThreeEleven') -----
- saveInTrunk: packageName
-
- " ReleaseBuilderFor3dot11 new saveInTrunk: Foo"
- | monti repo |
- monti := MCWorkingCopyBrowser new.
- repo := MCHttpRepository
- location: 'http://source.squeak.org/trunk'
- user: ''
- password: ''.
-
-
- (SystemOrganization categoriesMatching: packageName , '*')
- do: [:cat |
- | workingCopy message |
- PackageInfo registerPackageName: cat asString.
- workingCopy := MCWorkingCopy
- forPackage: (MCPackage new name: cat asString).
- workingCopy repositoryGroup addRepository: repo.
- repo user
- ifEmpty: [repo
- user: (UIManager default request: 'Trunk Repository username').
- repo
- password: (UIManager default request: 'Trunk Repository password')].
- message := UIManager default
- request: 'Please type comments for this package:' translated
- initialAnswer: 'a good comment' translated.
-
- repo
- storeVersion: (workingCopy newVersionWithName: workingCopy uniqueVersionName message: message)].
-
- monti workingCopyListChanged; changed: #workingCopySelection; changed: #repositoryList !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>unloadSomeMore (in category 'unloadPackages') -----
- unloadSomeMore
- #('Tests' 'SMLoader' 'SMBase' 'SUnit' 'SUnitGUI' 'ScriptLoader' 'Universes' 'Installer' 'XML-Parser' )
- do: [:ea | (MCPackage named: ea) unload].
- self fixObsoleteReferences !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>unloadSomeMore2 (in category 'unloadPackages') -----
- unloadSomeMore2
- "ReleaseBuilderFor3dot11 new unloadSomeMore2;cleanupPhaseFinal "
- #('BookMorphandFriends' )
- do: [:ea | (MCPackage named: ea) unload].self fixObsoleteReferences!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>unloadSomeMore3 (in category 'unloadPackages') -----
- unloadSomeMore3
- "ReleaseBuilderFor3dot11 new unloadSomeMore3;cleanupPhaseFinal;cleanUnwantedCs "
- #('MorphicExtras-Demo' 'Morphic-CandidatesForGo' 'Nebraska' )
- do: [:ea | (MCPackage named: ea) unload].
- SystemOrganization removeCategoriesMatching: 'EToys*'.
- self fixObsoleteReferences!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>unloadTraits (in category 'unloadPackages') -----
- unloadTraits
- "ReleaseBuilderFor3dot11 new unloadTraits"
- " self saveInLadrillos: 'Traits'."
- self unloadTraitsClearRefs.
- (MCPackage named: 'Traits') unload.
- self unloadTraitsTraitsStubs.
- self fixObsoleteReferences!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>unloadTraitsClearRefs (in category 'unloadPackages') -----
- unloadTraitsClearRefs
-
- | loader |
- loader := CodeLoader new.
- loader baseURL:'http://installer.pbwiki.org/f/'.
-
- "Sources and segments can be loaded in parallel"
- loader loadSourceFiles: #('UnloadTraits-ClearRefs.cs' ).
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>unloadTraitsStubOutAcessors (in category 'unloadPackages') -----
- unloadTraitsStubOutAcessors
-
- | loader |
- loader := CodeLoader new.
- loader baseURL:'http://installer.pbwiki.org/f/'.
-
- "Sources and segments can be loaded in parallel"
- loader loadSourceFiles: #('UnloadTraits-StubOutAcessors.cs' ).
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>unloadTraitsTraitsStubs (in category 'unloadPackages') -----
- unloadTraitsTraitsStubs
-
- | loader |
- loader := CodeLoader new.
- loader baseURL:'http://installer.pbwiki.org/f/'.
-
- "Sources and segments can be loaded in parallel"
- loader loadSourceFiles: #('UnloadTraits-TraitsStubs.cs' ).
- !
Item was removed:
- ReleaseBuilder subclass: #ReleaseBuilderFor4dot3
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'ReleaseBuilder'!
-
- !ReleaseBuilderFor4dot3 commentStamp: 'fbs 12/3/2012 09:47' prior: 0!
- This is the release builder for Squeak 4.3. It was formerly known as ReleaseBuilderTrunk.!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot3 class>>openWelcomeWorkspaces (in category 'private') -----
- openWelcomeWorkspaces
- TheWorldMainDockingBar instance
- showWelcomeText: #squeakUserInterface
- label: 'Squeak User Interface'
- in: (40 @ 40 extent: 500 @ 300).
- TheWorldMainDockingBar instance
- showWelcomeText: #workingWithSqueak
- label: 'Working With Squeak'
- in: (80 @ 80 extent: 500 @ 300).
- TheWorldMainDockingBar instance
- showWelcomeText: #licenseInformation
- label: 'License Information'
- in: (120 @ 120 extent: 500 @ 300).
- TheWorldMainDockingBar instance
- showWelcomeText: #welcomeFutureDirections
- label: 'Future Directions'
- in: (160 @ 160 extent: 500 @ 300).
- TheWorldMainDockingBar instance
- showWelcomeText: #welcomeToSqueak43
- label: 'Welcome to Squeak 4.3'
- in: (200 @ 200 extent: 500 @ 300)!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot3 class>>releaseRepository (in category 'private') -----
- releaseRepository
- ^ MCHttpRepository
- location: self repositoryUrl , '/squeak43'
- user: 'squeak'
- password: 'squeak'!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot3 class>>setDisplayExtent: (in category 'private') -----
- setDisplayExtent: extent
- "Uncomment next line when the primitives become available in the Squeak VM."
- " DisplayScreen hostWindowSize: extent."
- Display extent = extent ifFalse: [ Warning signal: 'Display extent not set to ', extent ]!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot3 class>>setPreferences (in category 'private') -----
- setPreferences
- Preferences
- installBrightWindowColors ;
- setPreference: #scrollBarsWithoutMenuButton toValue: true ;
- setPreference: #swapMouseButtons toValue: true ;
- setPreference: #annotationPanes toValue: true ;
- setPreference: #showSplitterHandles toValue: false ;
- setPreference: #showBoundsInHalo toValue: true ;
- setPreference: #alternateHandlesLook toValue: false ;
- setPreference: #roundedMenuCorners toValue: false ;
- setPreference: #roundedWindowCorners toValue: false.
- PluggableButtonMorph roundedButtonCorners: false.
- FillInTheBlankMorph roundedDialogCorners: false.
- Workspace shouldStyle: false!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot3 class>>switchToNewRepository (in category 'private') -----
- switchToNewRepository
- | old42Repository |
- MCMcmUpdater defaultUpdateURL: 'http://source.squeak.org/squeak43'.
- old42Repository := MCRepositoryGroup default repositories
- detect: [:each | each description includesSubString: 'squeak42'] ifNone: [nil].
- old42Repository
- ifNotNil: [MCRepositoryGroup default removeRepository: old42Repository].
- MCRepositoryGroup default addRepository: self releaseRepository!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot3 class>>versionString (in category 'as yet unclassified') -----
- versionString
- ^ 'Squeak4.3'.!
Item was removed:
- ReleaseBuilder subclass: #ReleaseBuilderFor4dot4
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'ReleaseBuilder'!
-
- !ReleaseBuilderFor4dot4 commentStamp: 'fbs 10/24/2012 09:20' prior: 0!
- The release builder for Squeak 4.4!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot4 class>>openWelcomeWorkspaces (in category 'private') -----
- openWelcomeWorkspaces
- TheWorldMainDockingBar instance
- showWelcomeText: #squeakUserInterface
- label: 'Squeak User Interface'
- in: (40 @ 40 extent: 500 @ 300).
- TheWorldMainDockingBar instance
- showWelcomeText: #workingWithSqueak
- label: 'Working With Squeak'
- in: (80 @ 80 extent: 500 @ 300).
- TheWorldMainDockingBar instance
- showWelcomeText: #licenseInformation
- label: 'License Information'
- in: (120 @ 120 extent: 500 @ 300).
- TheWorldMainDockingBar instance
- showWelcomeText: #welcomeFutureDirections
- label: 'Future Directions'
- in: (160 @ 160 extent: 500 @ 300).
- TheWorldMainDockingBar instance
- showWelcomeText: #welcomeToSqueak
- label: 'Welcome to Squeak 4.4'
- in: (200 @ 200 extent: 500 @ 300)!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot4 class>>prepareNewBuild (in category 'scripts') -----
- prepareNewBuild
- super prepareNewBuild.
- MCMockPackageInfo initialize.!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot4 class>>releaseRepository (in category 'private') -----
- releaseRepository
- ^ MCHttpRepository
- location: 'http://source.squeak.org/squeak44'
- user: 'squeak'
- password: 'squeak'!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot4 class>>setDisplayExtent: (in category 'private') -----
- setDisplayExtent: extent
- "Uncomment next line when the primitives become available in the Squeak VM."
- " DisplayScreen hostWindowSize: extent."
- Display extent = extent ifFalse: [ Warning signal: 'Display extent not set to ', extent ]!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot4 class>>setPreferences (in category 'private') -----
- setPreferences
- Preferences
- installBrightWindowColors ;
- setPreference: #scrollBarsWithoutMenuButton toValue: true ;
- setPreference: #swapMouseButtons toValue: true ;
- setPreference: #annotationPanes toValue: true ;
- setPreference: #showSplitterHandles toValue: false ;
- setPreference: #showBoundsInHalo toValue: true ;
- setPreference: #alternateHandlesLook toValue: false ;
- setPreference: #roundedMenuCorners toValue: false ;
- setPreference: #roundedWindowCorners toValue: false.
- PluggableButtonMorph roundedButtonCorners: false.
- FillInTheBlankMorph roundedDialogCorners: false.
- Workspace shouldStyle: false.
- NetNameResolver enableIPv6: false.!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot4 class>>switchToNewRepository (in category 'private') -----
- switchToNewRepository
- | old43Repository |
- MCMcmUpdater defaultUpdateURL: self releaseRepository description.
- old43Repository := MCRepositoryGroup default repositories
- detect: [:each | each description includesSubString: 'squeak43'] ifNone: [nil].
- old43Repository
- ifNotNil: [MCRepositoryGroup default removeRepository: old43Repository].
- MCRepositoryGroup default addRepository: self releaseRepository!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot4 class>>versionString (in category 'private') -----
- versionString
- ^ 'Squeak4.4'.!
Item was removed:
- ReleaseBuilder subclass: #ReleaseBuilderFor4dot5
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'ReleaseBuilder'!
-
- !ReleaseBuilderFor4dot5 commentStamp: 'fbs 1/1/2013 20:25' prior: 0!
- The release builder for Squeak 4.5!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot5 class>>loadWellKnownPackages (in category 'private') -----
- loadWellKnownPackages
- "Load into the release image those packages that have been stripped from Trunk, but still deemed necessary for a release artifact."
- #('311Deprecated'
- '39Deprecated'
- '45Deprecated'
- 'Nebraska'
- 'Universes'
- 'XML-Parser') do: [:pkgName |
- Installer squeak
- project: 'trunk';
- install: pkgName].!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot5 class>>openWelcomeWorkspaces (in category 'private') -----
- openWelcomeWorkspaces
- TheWorldMainDockingBar instance
- showWelcomeText: #squeakUserInterface
- label: 'Squeak User Interface'
- in: (40 @ 40 extent: 500 @ 300).
- TheWorldMainDockingBar instance
- showWelcomeText: #workingWithSqueak
- label: 'Working With Squeak'
- in: (80 @ 80 extent: 500 @ 300).
- TheWorldMainDockingBar instance
- showWelcomeText: #licenseInformation
- label: 'License Information'
- in: (120 @ 120 extent: 500 @ 300).
- TheWorldMainDockingBar instance
- showWelcomeText: #welcomeFutureDirections
- label: 'Future Directions'
- in: (160 @ 160 extent: 500 @ 300).
- TheWorldMainDockingBar instance
- showWelcomeText: #welcomeToSqueak
- label: 'Welcome to Squeak 4.5'
- in: (200 @ 200 extent: 500 @ 300)!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot5 class>>prepareNewBuild (in category 'scripts') -----
- prepareNewBuild
- super prepareNewBuild.
- self loadWellKnownPackages.
- TextDomainManager clearAllDomains.
- MCMockPackageInfo initialize.
- Compiler recompileAll.!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot5 class>>releaseRepository (in category 'private') -----
- releaseRepository
- "At release time, change 'trunk' to 'squeak45'."
- ^ MCHttpRepository
- location: 'http://source.squeak.org/trunk'
- user: 'squeak'
- password: 'squeak'!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot5 class>>setDisplayExtent: (in category 'private') -----
- setDisplayExtent: extent
- "Uncomment next line when the primitives become available in the Squeak VM."
- " DisplayScreen hostWindowSize: extent."
- Display extent = extent ifFalse: [ Warning signal: 'Display extent not set to ', extent ]!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot5 class>>setPreferences (in category 'private') -----
- setPreferences
- Preferences
- installBrightWindowColors ;
- setPreference: #scrollBarsWithoutMenuButton toValue: true ;
- setPreference: #swapMouseButtons toValue: true ;
- setPreference: #annotationPanes toValue: true ;
- setPreference: #showSplitterHandles toValue: false ;
- setPreference: #showBoundsInHalo toValue: true ;
- setPreference: #alternateHandlesLook toValue: false ;
- setPreference: #roundedMenuCorners toValue: false ;
- setPreference: #roundedWindowCorners toValue: false.
- PluggableButtonMorph roundedButtonCorners: false.
- FillInTheBlankMorph roundedDialogCorners: false.
- Workspace shouldStyle: false.
- NetNameResolver enableIPv6: true.!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot5 class>>switchToNewRepository (in category 'private') -----
- switchToNewRepository
- | old44Repository |
- MCMcmUpdater defaultUpdateURL: self releaseRepository description.
- old44Repository := MCRepositoryGroup default repositories
- detect: [:each | each description includesSubString: 'squeak44'] ifNone: [nil].
- old44Repository
- ifNotNil: [MCRepositoryGroup default removeRepository: old44Repository].
- MCRepositoryGroup default addRepository: self releaseRepository!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot5 class>>versionString (in category 'private') -----
- versionString
- ^ 'Squeak4.5'.!
Item was removed:
- ReleaseBuilder subclass: #ReleaseBuilderNihongo
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'ReleaseBuilder'!
Item was removed:
- ----- Method: ReleaseBuilderNihongo>>release (in category 'release') -----
- release
- "self release"
-
- Utilities emptyScrapsBook.
-
- Display setExtent: 960@720 depth: 16.
- World color: (Color r: 0.935 g: 0.935 b: 0.935).
-
- "Preferences takanawa."
- Preferences setPreference: #magicHalos toValue: false.
- Preferences setPreference: #magicHalos toValue: true.
- Preferences setPreference: #mouseOverHalos toValue: false.
- Preferences setPreference: #mouseOverHalos toValue: true.
-
- Player abandonUnnecessaryUniclasses.
- Player freeUnreferencedSubclasses.
- Player removeUninstantiatedSubclassesSilently.
-
- PartsBin initialize.
- Flaps disableGlobalFlaps: false.
- Flaps addAndEnableEToyFlaps.
- ActiveWorld addGlobalFlaps.
- Flaps sharedFlapsAlongBottom.
-
- Locale currentPlatform: (Locale isoLanguage: 'ja').
- Locale switchToID: (LocaleID isoLanguage: 'ja').
- Preferences restoreDefaultFonts.
- StrikeFont setupDefaultFallbackFont.
- Project current updateLocaleDependents.
-
- "Dump all projects"
- Project allSubInstancesDo:[:prj| prj == Project current ifFalse:[Project deletingProject: prj]].
-
- ChangeSet current clear.
- ChangeSet current name: 'Unnamed1'.
- Smalltalk garbageCollect.
-
-
- !
Item was removed:
- ReleaseBuilder subclass: #ReleaseBuilderSqueakland
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'ReleaseBuilder'!
Item was removed:
- ----- Method: ReleaseBuilderSqueakland>>finalCleanup (in category 'utilities') -----
- finalCleanup
- "ReleaseBuilder new initialCleanup"
-
-
- Smalltalk abandonTempNames.
- Smalltalk zapAllOtherProjects.
-
- super finalCleanup!
Item was removed:
- ----- Method: ReleaseBuilderSqueakland>>finalStripping (in category 'utilities') -----
- finalStripping
- "ReleaseBuilderSqueakland new finalStripping"
-
- #(#Helvetica #Palatino #Courier #ComicSansMS )
- do: [:n | TextConstants
- removeKey: n
- ifAbsent: []].
- Smalltalk
- at: #Player
- ifPresent: [:superCls | superCls
- allSubclassesDo: [:cls |
- cls isSystemDefined
- ifFalse: [cls removeFromSystem]]].
- Smalltalk garbageCollect.
- Smalltalk discardFFI; discardSUnit; discardSpeech.
- "discardMVC;"
- SystemOrganization removeEmptyCategories.
- !
Item was removed:
- ----- Method: ReleaseBuilderSqueakland>>initialCleanup (in category 'utilities') -----
- initialCleanup
- "ReleaseBuilder new initialCleanup"
-
- Smalltalk at: #Browser ifPresent:[:br| br initialize].
- ChangeSet removeChangeSetsNamedSuchThat:
- [:cs| cs name ~= ChangeSet current name].
-
- super initialCleanup!
Item was removed:
- ----- Method: ReleaseBuilderSqueakland>>installPreferences (in category 'utilities') -----
- installPreferences
-
- #(
- (honorDesktopCmdKeys false)
- (warnIfNoChangesFile false)
- (warnIfNoSourcesFile false)
- (showDirectionForSketches true)
- (menuColorFromWorld false)
- (unlimitedPaintArea true)
- (useGlobalFlaps false)
- (mvcProjectsAllowed false)
- (projectViewsInWindows false)
- (automaticKeyGeneration true)
- (securityChecksEnabled true)
- (showSecurityStatus false)
- (startInUntrustedDirectory true)
- (warnAboutInsecureContent false)
- (promptForUpdateServer false)
- (fastDragWindowForMorphic false)
-
- (externalServerDefsOnly true)
- (expandedFormat false)
- (eToyFriendly true)
- (eToyLoginEnabled true)
- (magicHalos true)
- (mouseOverHalos true)
- (biggerHandles false)
- (selectiveHalos true)
- (includeSoundControlInNavigator true)
- (readDocumentAtStartup true)
- (preserveTrash true)
- (slideDismissalsToTrash true)
- (propertySheetFromHalo true)
-
- ) do:[:spec|
- Preferences setPreference: spec first toValue: spec last].
- "Workaround for bug"
- Preferences enable: #readDocumentAtStartup.
- !
Item was removed:
- ----- Method: ReleaseBuilderSqueakland>>installReleaseSpecifics (in category 'utilities') -----
- installReleaseSpecifics
- "ReleaseBuilderSqueakland new installReleaseSpecifics"
-
- | serverName serverURL serverDir updateServer |
-
- ProjectLauncher splashMorph: (FileDirectory default readOnlyFileNamed: 'scripts\SqueaklandSplash.morph') fileInObjectAndCode.
-
- "Dump all morphs so we don't hold onto anything"
- World submorphsDo:[:m| m delete].
-
- World color: (Color r: 0.9 g: 0.9 b: 1.0).
-
- "Clear all server entries"
- ServerDirectory serverNames do: [:each | ServerDirectory removeServerNamed: each].
- SystemVersion current resetHighestUpdate.
-
- "Add the squeakalpha update stream"
- serverName := 'Squeakalpha'.
- serverURL := 'squeakalpha.org'.
- serverDir := serverURL , '/'.
-
- updateServer := ServerDirectory new.
- updateServer
- server: serverURL;
- directory: 'updates/';
- altUrl: serverDir;
- user: 'sqland';
- password: nil.
- Utilities updateUrlLists addFirst: {serverName. {serverDir. }.}.
-
- "Add the squeakland update stream"
- serverName := 'Squeakland'.
- serverURL := 'squeakland.org'.
- serverDir := serverURL , '/'.
-
- updateServer := ServerDirectory new.
- updateServer
- server: serverURL;
- directory: 'public_html/updates/';
- altUrl: serverDir.
- Utilities updateUrlLists addFirst: {serverName. {serverDir. }.}.
-
- !
Item was removed:
- ----- Method: ReleaseBuilderSqueakland>>installVersionInfo (in category 'utilities') -----
- installVersionInfo
- "ReleaseBuilderSqueakland 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: 'Squeakland 3.8.' , highestUpdate printString.
- SystemVersion newVersion: newVersion.
- (self confirm: self version , '
- Is this the correct version designation?
- If not, choose no, and fix it.') ifFalse: [^ self].
- !
Item was removed:
- ----- Method: ReleaseBuilderSqueakland>>setupLanguageSpecifics (in category 'utilities') -----
- setupLanguageSpecifics
- "ReleaseBuilderSqueakland new setupLanguageSpecifics"
- Locale current languageEnvironment setupSqueaklandSpecifics!
1
0
Frank Shearar uploaded a new version of 45Deprecated to project The Trunk:
http://source.squeak.org/trunk/45Deprecated-fbs.2.mcz
==================== Summary ====================
Name: 45Deprecated-fbs.2
Author: fbs
Time: 2 May 2013, 10:48:54.126 pm
UUID: 929d7158-8a95-4cc2-a867-25158661ed87
Ancestors: 45Deprecated-fbs.1
The special purpose ReleaseBuilders here. Move all apparently unused instance-side ReleaseBuilder methods here.
=============== Diff against 45Deprecated-fbs.1 ===============
Item was added:
+ SystemOrganization addCategory: #'45Deprecated'!
Item was added:
+ ----- Method: ReleaseBuilder>>cleanUpChanges (in category '*45Deprecated-utilities') -----
+ cleanUpChanges
+ "Clean up the change sets"
+
+ "ReleaseBuilder 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 added:
+ ----- Method: ReleaseBuilder>>cleanUpEtoys (in category '*45Deprecated-utilities') -----
+ cleanUpEtoys
+ "ReleaseBuilder 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]!
Item was added:
+ ----- Method: ReleaseBuilder>>finalCleanup (in category '*45Deprecated-utilities') -----
+ finalCleanup
+ "ReleaseBuilder 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.
+ Symbol compactSymbolTable.!
Item was added:
+ ----- Method: ReleaseBuilder>>finalStripping (in category '*45Deprecated-utilities') -----
+ finalStripping
+ "ReleaseBuilder new finalStripping"
+ !
Item was added:
+ ----- Method: ReleaseBuilder>>fixObsoleteReferences (in category '*45Deprecated-utilities') -----
+ fixObsoleteReferences
+ "ReleaseBuilder 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 inspect]!
Item was added:
+ ----- Method: ReleaseBuilder>>initialCleanup (in category '*45Deprecated-utilities') -----
+ initialCleanup
+ "Perform various image cleanups in preparation for making a Squeak gamma release candidate image."
+ "ReleaseBuilder new initialCleanup"
+
+ Undeclared removeUnreferencedKeys.
+ StandardScriptingSystem initialize.
+
+ (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: 'Unnamed1'.
+ Smalltalk garbageCollect.
+
+ "Reinitialize DataStream; it may hold on to some zapped entitities"
+ DataStream initialize.
+
+ Smalltalk garbageCollect.
+ ScheduledControllers := nil.
+ Smalltalk garbageCollect.
+
+ SMSqueakMap default purge.
+
+ !
Item was added:
+ ----- Method: ReleaseBuilder>>installPreferences (in category '*45Deprecated-utilities') -----
+ installPreferences
+ Preferences initialize.
+ Preferences chooseInitialSettings.
+ !
Item was added:
+ ----- Method: ReleaseBuilder>>installReleaseSpecifics (in category '*45Deprecated-utilities') -----
+ installReleaseSpecifics
+ "ReleaseBuilder new installReleaseSpecifics"
+ !
Item was added:
+ ----- Method: ReleaseBuilder>>installVersionInfo (in category '*45Deprecated-utilities') -----
+ installVersionInfo
+ "ReleaseBuilder new installVersionInfo"
+ !
Item was added:
+ ----- Method: ReleaseBuilder>>makeSqueaklandRelease (in category '*45Deprecated-squeakland') -----
+ makeSqueaklandRelease
+ "ReleaseBuilder new makeSqueaklandRelease"
+
+ self
+ makeSqueaklandReleasePhasePrepare; makeSqueaklandReleasePhaseStripping; makeSqueaklandReleasePhaseFinalSettings; makeSqueaklandReleasePhaseCleanup!
Item was added:
+ ----- Method: ReleaseBuilder>>makeSqueaklandReleasePhaseCleanup (in category '*45Deprecated-squeakland') -----
+ makeSqueaklandReleasePhaseCleanup
+ "ReleaseBuilder new makeSqueaklandReleasePhaseCleanup"
+
+ Smalltalk at: #Browser ifPresent:[:br| br initialize].
+ ChangeSet
+ removeChangeSetsNamedSuchThat: [:cs | cs name ~= ChangeSet current name].
+ ChangeSet current clear.
+ ChangeSet current name: 'Unnamed1'.
+ Smalltalk garbageCollect.
+ "Reinitialize DataStream; it may hold on to some zapped entitities"
+ DataStream initialize.
+ "Remove existing player references"
+ References keys do: [:k | References removeKey: k].
+ Smalltalk garbageCollect.
+ ScheduledControllers := nil.
+ Behavior flushObsoleteSubclasses.
+ Smalltalk
+ garbageCollect;
+ garbageCollect.
+ SystemNavigation default obsoleteBehaviors isEmpty
+ ifFalse: [self error: 'Still have obsolete behaviors'].
+
+ "Reinitialize DataStream; it may hold on to some zapped entitities"
+ DataStream initialize.
+ Smalltalk fixObsoleteReferences.
+ Smalltalk abandonTempNames.
+ Smalltalk zapAllOtherProjects.
+ Smalltalk flushClassNameCache.
+ Symbol compactSymbolTable!
Item was added:
+ ----- Method: ReleaseBuilder>>makeSqueaklandReleasePhaseFinalSettings (in category '*45Deprecated-squeakland') -----
+ makeSqueaklandReleasePhaseFinalSettings
+ "ReleaseBuilder new makeSqueaklandReleasePhaseFinalSettings"
+
+ | serverName serverURL serverDir updateServer highestUpdate newVersion |
+
+ ProjectLauncher splashMorph: (FileDirectory default readOnlyFileNamed: 'scripts\SqueaklandSplash.morph') fileInObjectAndCode.
+
+ "Dump all morphs so we don't hold onto anything"
+ World submorphsDo:[:m| m delete].
+
+ #(
+ (honorDesktopCmdKeys false)
+ (warnIfNoChangesFile false)
+ (warnIfNoSourcesFile false)
+ (showDirectionForSketches true)
+ (menuColorFromWorld false)
+ (unlimitedPaintArea true)
+ (useGlobalFlaps false)
+ (mvcProjectsAllowed false)
+ (projectViewsInWindows false)
+ (automaticKeyGeneration true)
+ (securityChecksEnabled true)
+ (showSecurityStatus false)
+ (startInUntrustedDirectory true)
+ (warnAboutInsecureContent false)
+ (promptForUpdateServer false)
+ (fastDragWindowForMorphic false)
+
+ (externalServerDefsOnly true)
+ (expandedFormat false)
+ (eToyFriendly true)
+ (eToyLoginEnabled true)
+ (magicHalos true)
+ (mouseOverHalos true)
+ (biggerHandles false)
+ (selectiveHalos true)
+ (includeSoundControlInNavigator true)
+ (readDocumentAtStartup true)
+ (preserveTrash true)
+ (slideDismissalsToTrash true)
+
+ ) do:[:spec|
+ Preferences setPreference: spec first toValue: spec last].
+ "Workaround for bug"
+ Preferences enable: #readDocumentAtStartup.
+
+ World color: (Color r: 0.9 g: 0.9 b: 1.0).
+
+ "Clear all server entries"
+ ServerDirectory serverNames do: [:each | ServerDirectory removeServerNamed: each].
+ SystemVersion current resetHighestUpdate.
+
+ "Add the squeakalpha update stream"
+ serverName := 'Squeakalpha'.
+ serverURL := 'squeakalpha.org'.
+ serverDir := serverURL , '/'.
+
+ updateServer := ServerDirectory new.
+ updateServer
+ server: serverURL;
+ directory: 'updates/';
+ altUrl: serverDir;
+ user: 'sqland';
+ password: nil.
+ Utilities updateUrlLists addFirst: {serverName. {serverDir. }.}.
+
+ "Add the squeakland update stream"
+ serverName := 'Squeakland'.
+ serverURL := 'squeakland.org'.
+ serverDir := serverURL , '/'.
+
+ updateServer := ServerDirectory new.
+ updateServer
+ server: serverURL;
+ directory: 'public_html/updates/';
+ altUrl: serverDir.
+ Utilities updateUrlLists addFirst: {serverName. {serverDir. }.}.
+
+ highestUpdate := SystemVersion current highestUpdate.
+ (self confirm: 'Reset highest update (' , highestUpdate printString , ')?')
+ ifTrue: [SystemVersion current highestUpdate: 0].
+
+ newVersion := UIManager default request: 'New version designation:' initialAnswer: 'Squeakland 3.8.' , highestUpdate printString.
+ SystemVersion newVersion: newVersion.
+ (self confirm: self version , '
+ Is this the correct version designation?
+ If not, choose no, and fix it.') ifFalse: [^ self].
+ !
Item was added:
+ ----- Method: ReleaseBuilder>>makeSqueaklandReleasePhasePrepare (in category '*45Deprecated-squeakland') -----
+ makeSqueaklandReleasePhasePrepare
+ "ReleaseBuilder new makeSqueaklandReleasePhasePrepare"
+
+ Undeclared removeUnreferencedKeys.
+ StandardScriptingSystem initialize.
+ Preferences initialize.
+ "(Object classPool at: #DependentsFields) size > 1 ifTrue: [self error:'Still have dependents']."
+ Undeclared isEmpty ifFalse: [self error:'Please clean out Undeclared'].
+
+ "Dump all projects"
+ Project allSubInstancesDo:[:prj| prj == Project current ifFalse:[Project deletingProject: prj]].
+
+ "Set new look so we don't need older fonts later"
+ StandardScriptingSystem applyNewEToyLook.
+
+ Smalltalk at: #Browser ifPresent:[:br| br initialize].
+ ScriptingSystem deletePrivateGraphics.
+ ChangeSet removeChangeSetsNamedSuchThat:
+ [:cs| cs name ~= ChangeSet current name].
+ ChangeSet current clear.
+ ChangeSet current name: 'Unnamed1'.
+ Smalltalk garbageCollect.
+ "Reinitialize DataStream; it may hold on to some zapped entitities"
+ DataStream initialize.
+ "Remove existing player references"
+ References keys do:[:k| References removeKey: k].
+
+ Smalltalk garbageCollect.
+ ScheduledControllers := nil.
+ Smalltalk garbageCollect.
+ !
Item was added:
+ ----- Method: ReleaseBuilder>>makeSqueaklandReleasePhaseStripping (in category '*45Deprecated-squeakland') -----
+ makeSqueaklandReleasePhaseStripping
+ "ReleaseBuilder new makeSqueaklandReleasePhaseStripping"
+
+ #(#Helvetica #Palatino #Courier #ComicSansMS )
+ do: [:n | TextConstants
+ removeKey: n
+ ifAbsent: []].
+ Smalltalk
+ at: #Player
+ ifPresent: [:superCls | superCls
+ allSubclassesDo: [:cls |
+ cls isSystemDefined
+ ifFalse: [cls removeFromSystem]]].
+ Smalltalk garbageCollect.
+ Smalltalk discardFFI; discardSUnit; discardSpeech.
+ "discardMVC;"
+ SystemOrganization removeEmptyCategories.
+ Smalltalk garbageCollect.
+ ScheduledControllers := nil.
+ Behavior flushObsoleteSubclasses.
+ Smalltalk garbageCollect; garbageCollect.
+ DataStream initialize.
+ Smalltalk fixObsoleteReferences!
Item was added:
+ ----- Method: ReleaseBuilder>>prepareReleaseImage (in category '*45Deprecated-utilities') -----
+ prepareReleaseImage
+ "Perform various image cleanups in preparation for making a Squeak gamma release candidate image."
+ "ReleaseBuilder 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
+ initialCleanup;
+ installPreferences;
+ finalStripping;
+ installReleaseSpecifics;
+ finalCleanup;
+ installVersionInfo
+ !
Item was added:
+ ReleaseBuilder subclass: #ReleaseBuilderDeveloper
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: '45Deprecated'!
+
+ !ReleaseBuilderDeveloper commentStamp: 'gk 2/28/2005 13:27' prior: 0!
+ This release builder subclass is used for the official Squeak distribution Basic, which currently is the base image of Squeak.
+ Full is then built on top of Basic using a loadscript from SqueakMap. Minimal is constructed using another script from SqueakMap that removes packages that are included in Basic.!
Item was added:
+ ----- Method: ReleaseBuilderDeveloper>>cleanUpChanges (in category 'utilities') -----
+ cleanUpChanges
+ "Clean up the change sets"
+
+ "ReleaseBuilderDeveloper new cleanUpChanges"
+
+ !
Item was added:
+ ----- Method: ReleaseBuilderDeveloper>>installPreferences (in category 'utilities') -----
+ installPreferences
+ super installPreferences.
+ #(
+ (updateFromServerAtStartup true)
+
+ ) do:[:spec|
+ Preferences setPreference: spec first toValue: spec last]!
Item was added:
+ ----- Method: ReleaseBuilderDeveloper>>installReleaseSpecifics (in category 'utilities') -----
+ installReleaseSpecifics
+ "Currently just clear and add the ServerDirectories
+ and update streams we want as default."
+
+ "Clear all server entries"
+ ServerDirectory serverNames do: [:each | ServerDirectory removeServerNamed: each].
+
+ "Add default entries, added an entry for the new file area.
+ The others are the current ones that see to work
+ as of 2005-02-28 and I recreated them using source."
+ ServerDirectory addServer: (ServerDirectory new
+ type: #ftp;
+ user: '';
+ server: 'box1.squeakfoundation.org';
+ altUrl: 'http://box1.squeakfoundation.org/files';
+ directory: 'files';
+ keepAlive: false) named: 'Squeak.org Archive'.
+ ServerDirectory addServer: (ServerDirectory new
+ type: #ftp;
+ server: 'st.cs.uiuc.edu';
+ user: 'anonymous';
+ directory: '/Smalltalk/Squeak';
+ keepAlive: false) named: 'UIUC Archive'.
+ ServerDirectory addServer: (ServerDirectory new
+ type: #ftp;
+ server: 'ftp.create.ucsb.edu';
+ user: 'anonymous';
+ directory: '/pub/Smalltalk/Squeak';
+ keepAlive: false) named: 'UCSBCreate Archive'.
+ ServerDirectory addServer: SuperSwikiServer defaultSuperSwiki named: 'Bob SuperSwiki'.
+ ServerDirectory addServer: (SuperSwikiServer new
+ type: #http;
+ server: 'squeakland.org:8080';
+ altUrl: 'http://www.squeakland.org/uploads';
+ directory: '/super/SuperSwikiProj';
+ keepAlive: false;
+ acceptsUploads: true) named: 'Squeakland SuperSwiki'.
+ ServerDirectory addServer: (HTTPServerDirectory new
+ type: #ftp;
+ user: 'sqland';
+ server: 'www.squeakland.org';
+ altUrl: 'http://www.squeakland.org/projects';
+ directory: 'projects';
+ keepAlive: false) named: 'Squeakland Projects'.
+
+ "Add the update streams here just as Squeakland does?
+ serverName := 'Squeakland'.
+ serverURL := 'squeakland.org'.
+ serverDir := serverURL , '/'.
+ updateServer := ServerDirectory new.
+ updateServer
+ server: serverURL;
+ directory: 'public:=html/updates/';
+ altUrl: serverDir.
+ Utilities updateUrlLists addFirst: {serverName. {serverDir. }.}.
+ "
+ !
Item was added:
+ ReleaseBuilder subclass: #ReleaseBuilderNihongo
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: '45Deprecated'!
Item was added:
+ ----- Method: ReleaseBuilderNihongo>>release (in category 'release') -----
+ release
+ "self release"
+
+ Utilities emptyScrapsBook.
+
+ Display setExtent: 960@720 depth: 16.
+ World color: (Color r: 0.935 g: 0.935 b: 0.935).
+
+ "Preferences takanawa."
+ Preferences setPreference: #magicHalos toValue: false.
+ Preferences setPreference: #magicHalos toValue: true.
+ Preferences setPreference: #mouseOverHalos toValue: false.
+ Preferences setPreference: #mouseOverHalos toValue: true.
+
+ Player abandonUnnecessaryUniclasses.
+ Player freeUnreferencedSubclasses.
+ Player removeUninstantiatedSubclassesSilently.
+
+ PartsBin initialize.
+ Flaps disableGlobalFlaps: false.
+ Flaps addAndEnableEToyFlaps.
+ ActiveWorld addGlobalFlaps.
+ Flaps sharedFlapsAlongBottom.
+
+ Locale currentPlatform: (Locale isoLanguage: 'ja').
+ Locale switchToID: (LocaleID isoLanguage: 'ja').
+ Preferences restoreDefaultFonts.
+ StrikeFont setupDefaultFallbackFont.
+ Project current updateLocaleDependents.
+
+ "Dump all projects"
+ Project allSubInstancesDo:[:prj| prj == Project current ifFalse:[Project deletingProject: prj]].
+
+ ChangeSet current clear.
+ ChangeSet current name: 'Unnamed1'.
+ Smalltalk garbageCollect.
+
+
+ !
Item was added:
+ ReleaseBuilder subclass: #ReleaseBuilderSqueakland
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: '45Deprecated'!
Item was added:
+ ----- Method: ReleaseBuilderSqueakland>>finalCleanup (in category 'utilities') -----
+ finalCleanup
+ "ReleaseBuilder new initialCleanup"
+
+
+ Smalltalk abandonTempNames.
+ Smalltalk zapAllOtherProjects.
+
+ super finalCleanup!
Item was added:
+ ----- Method: ReleaseBuilderSqueakland>>finalStripping (in category 'utilities') -----
+ finalStripping
+ "ReleaseBuilderSqueakland new finalStripping"
+
+ #(#Helvetica #Palatino #Courier #ComicSansMS )
+ do: [:n | TextConstants
+ removeKey: n
+ ifAbsent: []].
+ Smalltalk
+ at: #Player
+ ifPresent: [:superCls | superCls
+ allSubclassesDo: [:cls |
+ cls isSystemDefined
+ ifFalse: [cls removeFromSystem]]].
+ Smalltalk garbageCollect.
+ Smalltalk discardFFI; discardSUnit; discardSpeech.
+ "discardMVC;"
+ SystemOrganization removeEmptyCategories.
+ !
Item was added:
+ ----- Method: ReleaseBuilderSqueakland>>initialCleanup (in category 'utilities') -----
+ initialCleanup
+ "ReleaseBuilder new initialCleanup"
+
+ Smalltalk at: #Browser ifPresent:[:br| br initialize].
+ ChangeSet removeChangeSetsNamedSuchThat:
+ [:cs| cs name ~= ChangeSet current name].
+
+ super initialCleanup!
Item was added:
+ ----- Method: ReleaseBuilderSqueakland>>installPreferences (in category 'utilities') -----
+ installPreferences
+
+ #(
+ (honorDesktopCmdKeys false)
+ (warnIfNoChangesFile false)
+ (warnIfNoSourcesFile false)
+ (showDirectionForSketches true)
+ (menuColorFromWorld false)
+ (unlimitedPaintArea true)
+ (useGlobalFlaps false)
+ (mvcProjectsAllowed false)
+ (projectViewsInWindows false)
+ (automaticKeyGeneration true)
+ (securityChecksEnabled true)
+ (showSecurityStatus false)
+ (startInUntrustedDirectory true)
+ (warnAboutInsecureContent false)
+ (promptForUpdateServer false)
+ (fastDragWindowForMorphic false)
+
+ (externalServerDefsOnly true)
+ (expandedFormat false)
+ (eToyFriendly true)
+ (eToyLoginEnabled true)
+ (magicHalos true)
+ (mouseOverHalos true)
+ (biggerHandles false)
+ (selectiveHalos true)
+ (includeSoundControlInNavigator true)
+ (readDocumentAtStartup true)
+ (preserveTrash true)
+ (slideDismissalsToTrash true)
+ (propertySheetFromHalo true)
+
+ ) do:[:spec|
+ Preferences setPreference: spec first toValue: spec last].
+ "Workaround for bug"
+ Preferences enable: #readDocumentAtStartup.
+ !
Item was added:
+ ----- Method: ReleaseBuilderSqueakland>>installReleaseSpecifics (in category 'utilities') -----
+ installReleaseSpecifics
+ "ReleaseBuilderSqueakland new installReleaseSpecifics"
+
+ | serverName serverURL serverDir updateServer |
+
+ ProjectLauncher splashMorph: (FileDirectory default readOnlyFileNamed: 'scripts\SqueaklandSplash.morph') fileInObjectAndCode.
+
+ "Dump all morphs so we don't hold onto anything"
+ World submorphsDo:[:m| m delete].
+
+ World color: (Color r: 0.9 g: 0.9 b: 1.0).
+
+ "Clear all server entries"
+ ServerDirectory serverNames do: [:each | ServerDirectory removeServerNamed: each].
+ SystemVersion current resetHighestUpdate.
+
+ "Add the squeakalpha update stream"
+ serverName := 'Squeakalpha'.
+ serverURL := 'squeakalpha.org'.
+ serverDir := serverURL , '/'.
+
+ updateServer := ServerDirectory new.
+ updateServer
+ server: serverURL;
+ directory: 'updates/';
+ altUrl: serverDir;
+ user: 'sqland';
+ password: nil.
+ Utilities updateUrlLists addFirst: {serverName. {serverDir. }.}.
+
+ "Add the squeakland update stream"
+ serverName := 'Squeakland'.
+ serverURL := 'squeakland.org'.
+ serverDir := serverURL , '/'.
+
+ updateServer := ServerDirectory new.
+ updateServer
+ server: serverURL;
+ directory: 'public_html/updates/';
+ altUrl: serverDir.
+ Utilities updateUrlLists addFirst: {serverName. {serverDir. }.}.
+
+ !
Item was added:
+ ----- Method: ReleaseBuilderSqueakland>>installVersionInfo (in category 'utilities') -----
+ installVersionInfo
+ "ReleaseBuilderSqueakland 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: 'Squeakland 3.8.' , highestUpdate printString.
+ SystemVersion newVersion: newVersion.
+ (self confirm: self version , '
+ Is this the correct version designation?
+ If not, choose no, and fix it.') ifFalse: [^ self].
+ !
Item was added:
+ ----- Method: ReleaseBuilderSqueakland>>setupLanguageSpecifics (in category 'utilities') -----
+ setupLanguageSpecifics
+ "ReleaseBuilderSqueakland new setupLanguageSpecifics"
+ Locale current languageEnvironment setupSqueaklandSpecifics!
1
0
Frank Shearar uploaded a new version of ReleaseBuilder to project The Trunk:
http://source.squeak.org/trunk/ReleaseBuilder-fbs.96.mcz
==================== Summary ====================
Name: ReleaseBuilder-fbs.96
Author: fbs
Time: 2 May 2013, 10:47:53.918 pm
UUID: 51612e6c-fec4-4b99-bb3f-d6b5d51bb61f
Ancestors: ReleaseBuilder-fbs.95
Delete all obsolete ReleaseBuilders. Move the special-case builders - Nihongo, Squeakland - to 45Deprecated. (They're not deprecated as such, but they don't belong in trunk.)
=============== Diff against ReleaseBuilder-fbs.95 ===============
Item was changed:
Object subclass: #ReleaseBuilder
instanceVariableNames: ''
classVariableNames: ''
poolDictionaries: ''
category: 'ReleaseBuilder'!
+ !ReleaseBuilder commentStamp: 'fbs 5/2/2013 22:36' prior: 0!
+ I'm the script that prepares a trunk image for release. Which version of Squeak I release is stored in ReleaseBuilder class >> squeakVersion.!
- !ReleaseBuilder commentStamp: 'bp 12/4/2009 10:39' prior: 0!
- I'm responsible to help people releasing various distributions of Squeak.!
Item was added:
+ ----- Method: ReleaseBuilder class>>loadWellKnownPackages (in category 'private') -----
+ loadWellKnownPackages
+ "Load into the release image those packages that have been stripped from Trunk, but still deemed necessary for a release artifact."
+ #('311Deprecated'
+ '39Deprecated'
+ '45Deprecated'
+ 'Nebraska'
+ 'Universes'
+ 'XML-Parser') do: [:pkgName |
+ Installer squeak
+ project: 'trunk';
+ install: pkgName].!
Item was added:
+ ----- Method: ReleaseBuilder class>>openWelcomeWorkspaces (in category 'private') -----
+ openWelcomeWorkspaces
+ TheWorldMainDockingBar instance
+ showWelcomeText: #squeakUserInterface
+ label: 'Squeak User Interface'
+ in: (40 @ 40 extent: 500 @ 300).
+ TheWorldMainDockingBar instance
+ showWelcomeText: #workingWithSqueak
+ label: 'Working With Squeak'
+ in: (80 @ 80 extent: 500 @ 300).
+ TheWorldMainDockingBar instance
+ showWelcomeText: #licenseInformation
+ label: 'License Information'
+ in: (120 @ 120 extent: 500 @ 300).
+ TheWorldMainDockingBar instance
+ showWelcomeText: #welcomeFutureDirections
+ label: 'Future Directions'
+ in: (160 @ 160 extent: 500 @ 300).
+ TheWorldMainDockingBar instance
+ showWelcomeText: #welcomeToSqueak
+ label: 'Welcome to Squeak 4.5'
+ in: (200 @ 200 extent: 500 @ 300)!
Item was changed:
----- Method: ReleaseBuilder class>>prepareNewBuild (in category 'scripts') -----
prepareNewBuild
"ReleaseBuilderTrunk prepareNewBuild"
"Prepare everything that should be done for a new image build"
TTCFont registerAll.
RealEstateAgent standardSize: 600@400.
SystemVersion newVersion: self versionString.
SMLoaderPlus
setDefaultFilters: (OrderedCollection with: #filterSafelyAvailable).
self setDisplayExtent: 800 @ 600;
setPreferences;
switchToNewRepository;
openWelcomeWorkspaces.
"Make DependencyBrowser accessible on the open menu."
DependencyBrowser initialize.
self cleanPackages.
Smalltalk cleanUp: true except: #() confirming: false.
Undeclared removeUnreferencedKeys.
+ Smalltalk garbageCollect.
+ self loadWellKnownPackages.
+ TextDomainManager clearAllDomains.
+ MCMockPackageInfo initialize.
+ Compiler recompileAll.!
- Smalltalk garbageCollect!
Item was added:
+ ----- Method: ReleaseBuilder class>>releaseRepository (in category 'private') -----
+ releaseRepository
+ "At release time, change 'trunk' to 'squeak45'."
+ ^ MCHttpRepository
+ location: 'http://source.squeak.org/trunk'
+ user: 'squeak'
+ password: 'squeak'!
Item was added:
+ ----- Method: ReleaseBuilder class>>setDisplayExtent: (in category 'private') -----
+ setDisplayExtent: extent
+ "Uncomment next line when the primitives become available in the Squeak VM."
+ " DisplayScreen hostWindowSize: extent."
+ Display extent = extent ifFalse: [ Warning signal: 'Display extent not set to ', extent ]!
Item was added:
+ ----- Method: ReleaseBuilder class>>setPreferences (in category 'private') -----
+ setPreferences
+ Preferences
+ installBrightWindowColors ;
+ setPreference: #scrollBarsWithoutMenuButton toValue: true ;
+ setPreference: #swapMouseButtons toValue: true ;
+ setPreference: #annotationPanes toValue: true ;
+ setPreference: #showSplitterHandles toValue: false ;
+ setPreference: #showBoundsInHalo toValue: true ;
+ setPreference: #alternateHandlesLook toValue: false ;
+ setPreference: #roundedMenuCorners toValue: false ;
+ setPreference: #roundedWindowCorners toValue: false.
+ PluggableButtonMorph roundedButtonCorners: false.
+ FillInTheBlankMorph roundedDialogCorners: false.
+ Workspace shouldStyle: false.
+ NetNameResolver enableIPv6: true.!
Item was changed:
----- Method: ReleaseBuilder class>>switchToNewRepository (in category 'private') -----
switchToNewRepository
+ | old44Repository |
+ MCMcmUpdater defaultUpdateURL: self releaseRepository description.
+ old44Repository := MCRepositoryGroup default repositories
+ detect: [:each | each description includesSubString: 'squeak44'] ifNone: [nil].
+ old44Repository
+ ifNotNil: [MCRepositoryGroup default removeRepository: old44Repository].
+ MCRepositoryGroup default addRepository: self releaseRepository!
- self subclassResponsibility!
Item was added:
+ ----- Method: ReleaseBuilder class>>versionString (in category 'private') -----
+ versionString
+ ^ 'Squeak4.5'.!
Item was removed:
- ----- Method: ReleaseBuilder>>cleanUpChanges (in category 'utilities') -----
- cleanUpChanges
- "Clean up the change sets"
-
- "ReleaseBuilder 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: ReleaseBuilder>>cleanUpEtoys (in category 'utilities') -----
- cleanUpEtoys
- "ReleaseBuilder 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]!
Item was removed:
- ----- Method: ReleaseBuilder>>finalCleanup (in category 'utilities') -----
- finalCleanup
- "ReleaseBuilder 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.
- Symbol compactSymbolTable.!
Item was removed:
- ----- Method: ReleaseBuilder>>finalStripping (in category 'utilities') -----
- finalStripping
- "ReleaseBuilder new finalStripping"
- !
Item was removed:
- ----- Method: ReleaseBuilder>>fixObsoleteReferences (in category 'utilities') -----
- fixObsoleteReferences
- "ReleaseBuilder 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 inspect]!
Item was removed:
- ----- Method: ReleaseBuilder>>initialCleanup (in category 'utilities') -----
- initialCleanup
- "Perform various image cleanups in preparation for making a Squeak gamma release candidate image."
- "ReleaseBuilder new initialCleanup"
-
- Undeclared removeUnreferencedKeys.
- StandardScriptingSystem initialize.
-
- (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: 'Unnamed1'.
- Smalltalk garbageCollect.
-
- "Reinitialize DataStream; it may hold on to some zapped entitities"
- DataStream initialize.
-
- Smalltalk garbageCollect.
- ScheduledControllers := nil.
- Smalltalk garbageCollect.
-
- SMSqueakMap default purge.
-
- !
Item was removed:
- ----- Method: ReleaseBuilder>>installPreferences (in category 'utilities') -----
- installPreferences
- Preferences initialize.
- Preferences chooseInitialSettings.
- !
Item was removed:
- ----- Method: ReleaseBuilder>>installReleaseSpecifics (in category 'utilities') -----
- installReleaseSpecifics
- "ReleaseBuilder new installReleaseSpecifics"
- !
Item was removed:
- ----- Method: ReleaseBuilder>>installVersionInfo (in category 'utilities') -----
- installVersionInfo
- "ReleaseBuilder new installVersionInfo"
- !
Item was removed:
- ----- Method: ReleaseBuilder>>makeSqueaklandRelease (in category 'squeakland') -----
- makeSqueaklandRelease
- "ReleaseBuilder new makeSqueaklandRelease"
-
- self
- makeSqueaklandReleasePhasePrepare; makeSqueaklandReleasePhaseStripping; makeSqueaklandReleasePhaseFinalSettings; makeSqueaklandReleasePhaseCleanup!
Item was removed:
- ----- Method: ReleaseBuilder>>makeSqueaklandReleasePhaseCleanup (in category 'squeakland') -----
- makeSqueaklandReleasePhaseCleanup
- "ReleaseBuilder new makeSqueaklandReleasePhaseCleanup"
-
- Smalltalk at: #Browser ifPresent:[:br| br initialize].
- ChangeSet
- removeChangeSetsNamedSuchThat: [:cs | cs name ~= ChangeSet current name].
- ChangeSet current clear.
- ChangeSet current name: 'Unnamed1'.
- Smalltalk garbageCollect.
- "Reinitialize DataStream; it may hold on to some zapped entitities"
- DataStream initialize.
- "Remove existing player references"
- References keys do: [:k | References removeKey: k].
- Smalltalk garbageCollect.
- ScheduledControllers := nil.
- Behavior flushObsoleteSubclasses.
- Smalltalk
- garbageCollect;
- garbageCollect.
- SystemNavigation default obsoleteBehaviors isEmpty
- ifFalse: [self error: 'Still have obsolete behaviors'].
-
- "Reinitialize DataStream; it may hold on to some zapped entitities"
- DataStream initialize.
- Smalltalk fixObsoleteReferences.
- Smalltalk abandonTempNames.
- Smalltalk zapAllOtherProjects.
- Smalltalk flushClassNameCache.
- Symbol compactSymbolTable!
Item was removed:
- ----- Method: ReleaseBuilder>>makeSqueaklandReleasePhaseFinalSettings (in category 'squeakland') -----
- makeSqueaklandReleasePhaseFinalSettings
- "ReleaseBuilder new makeSqueaklandReleasePhaseFinalSettings"
-
- | serverName serverURL serverDir updateServer highestUpdate newVersion |
-
- ProjectLauncher splashMorph: (FileDirectory default readOnlyFileNamed: 'scripts\SqueaklandSplash.morph') fileInObjectAndCode.
-
- "Dump all morphs so we don't hold onto anything"
- World submorphsDo:[:m| m delete].
-
- #(
- (honorDesktopCmdKeys false)
- (warnIfNoChangesFile false)
- (warnIfNoSourcesFile false)
- (showDirectionForSketches true)
- (menuColorFromWorld false)
- (unlimitedPaintArea true)
- (useGlobalFlaps false)
- (mvcProjectsAllowed false)
- (projectViewsInWindows false)
- (automaticKeyGeneration true)
- (securityChecksEnabled true)
- (showSecurityStatus false)
- (startInUntrustedDirectory true)
- (warnAboutInsecureContent false)
- (promptForUpdateServer false)
- (fastDragWindowForMorphic false)
-
- (externalServerDefsOnly true)
- (expandedFormat false)
- (eToyFriendly true)
- (eToyLoginEnabled true)
- (magicHalos true)
- (mouseOverHalos true)
- (biggerHandles false)
- (selectiveHalos true)
- (includeSoundControlInNavigator true)
- (readDocumentAtStartup true)
- (preserveTrash true)
- (slideDismissalsToTrash true)
-
- ) do:[:spec|
- Preferences setPreference: spec first toValue: spec last].
- "Workaround for bug"
- Preferences enable: #readDocumentAtStartup.
-
- World color: (Color r: 0.9 g: 0.9 b: 1.0).
-
- "Clear all server entries"
- ServerDirectory serverNames do: [:each | ServerDirectory removeServerNamed: each].
- SystemVersion current resetHighestUpdate.
-
- "Add the squeakalpha update stream"
- serverName := 'Squeakalpha'.
- serverURL := 'squeakalpha.org'.
- serverDir := serverURL , '/'.
-
- updateServer := ServerDirectory new.
- updateServer
- server: serverURL;
- directory: 'updates/';
- altUrl: serverDir;
- user: 'sqland';
- password: nil.
- Utilities updateUrlLists addFirst: {serverName. {serverDir. }.}.
-
- "Add the squeakland update stream"
- serverName := 'Squeakland'.
- serverURL := 'squeakland.org'.
- serverDir := serverURL , '/'.
-
- updateServer := ServerDirectory new.
- updateServer
- server: serverURL;
- directory: 'public_html/updates/';
- altUrl: serverDir.
- Utilities updateUrlLists addFirst: {serverName. {serverDir. }.}.
-
- highestUpdate := SystemVersion current highestUpdate.
- (self confirm: 'Reset highest update (' , highestUpdate printString , ')?')
- ifTrue: [SystemVersion current highestUpdate: 0].
-
- newVersion := UIManager default request: 'New version designation:' initialAnswer: 'Squeakland 3.8.' , highestUpdate printString.
- SystemVersion newVersion: newVersion.
- (self confirm: self version , '
- Is this the correct version designation?
- If not, choose no, and fix it.') ifFalse: [^ self].
- !
Item was removed:
- ----- Method: ReleaseBuilder>>makeSqueaklandReleasePhasePrepare (in category 'squeakland') -----
- makeSqueaklandReleasePhasePrepare
- "ReleaseBuilder new makeSqueaklandReleasePhasePrepare"
-
- Undeclared removeUnreferencedKeys.
- StandardScriptingSystem initialize.
- Preferences initialize.
- "(Object classPool at: #DependentsFields) size > 1 ifTrue: [self error:'Still have dependents']."
- Undeclared isEmpty ifFalse: [self error:'Please clean out Undeclared'].
-
- "Dump all projects"
- Project allSubInstancesDo:[:prj| prj == Project current ifFalse:[Project deletingProject: prj]].
-
- "Set new look so we don't need older fonts later"
- StandardScriptingSystem applyNewEToyLook.
-
- Smalltalk at: #Browser ifPresent:[:br| br initialize].
- ScriptingSystem deletePrivateGraphics.
- ChangeSet removeChangeSetsNamedSuchThat:
- [:cs| cs name ~= ChangeSet current name].
- ChangeSet current clear.
- ChangeSet current name: 'Unnamed1'.
- Smalltalk garbageCollect.
- "Reinitialize DataStream; it may hold on to some zapped entitities"
- DataStream initialize.
- "Remove existing player references"
- References keys do:[:k| References removeKey: k].
-
- Smalltalk garbageCollect.
- ScheduledControllers := nil.
- Smalltalk garbageCollect.
- !
Item was removed:
- ----- Method: ReleaseBuilder>>makeSqueaklandReleasePhaseStripping (in category 'squeakland') -----
- makeSqueaklandReleasePhaseStripping
- "ReleaseBuilder new makeSqueaklandReleasePhaseStripping"
-
- #(#Helvetica #Palatino #Courier #ComicSansMS )
- do: [:n | TextConstants
- removeKey: n
- ifAbsent: []].
- Smalltalk
- at: #Player
- ifPresent: [:superCls | superCls
- allSubclassesDo: [:cls |
- cls isSystemDefined
- ifFalse: [cls removeFromSystem]]].
- Smalltalk garbageCollect.
- Smalltalk discardFFI; discardSUnit; discardSpeech.
- "discardMVC;"
- SystemOrganization removeEmptyCategories.
- Smalltalk garbageCollect.
- ScheduledControllers := nil.
- Behavior flushObsoleteSubclasses.
- Smalltalk garbageCollect; garbageCollect.
- DataStream initialize.
- Smalltalk fixObsoleteReferences!
Item was removed:
- ----- Method: ReleaseBuilder>>prepareReleaseImage (in category 'utilities') -----
- prepareReleaseImage
- "Perform various image cleanups in preparation for making a Squeak gamma release candidate image."
- "ReleaseBuilder 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
- initialCleanup;
- installPreferences;
- finalStripping;
- installReleaseSpecifics;
- finalCleanup;
- installVersionInfo
- !
Item was removed:
- ReleaseBuilder subclass: #ReleaseBuilderDeveloper
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'ReleaseBuilder'!
-
- !ReleaseBuilderDeveloper commentStamp: 'gk 2/28/2005 13:27' prior: 0!
- This release builder subclass is used for the official Squeak distribution Basic, which currently is the base image of Squeak.
- Full is then built on top of Basic using a loadscript from SqueakMap. Minimal is constructed using another script from SqueakMap that removes packages that are included in Basic.!
Item was removed:
- ----- Method: ReleaseBuilderDeveloper>>cleanUpChanges (in category 'utilities') -----
- cleanUpChanges
- "Clean up the change sets"
-
- "ReleaseBuilderDeveloper new cleanUpChanges"
-
- !
Item was removed:
- ----- Method: ReleaseBuilderDeveloper>>installPreferences (in category 'utilities') -----
- installPreferences
- super installPreferences.
- #(
- (updateFromServerAtStartup true)
-
- ) do:[:spec|
- Preferences setPreference: spec first toValue: spec last]!
Item was removed:
- ----- Method: ReleaseBuilderDeveloper>>installReleaseSpecifics (in category 'utilities') -----
- installReleaseSpecifics
- "Currently just clear and add the ServerDirectories
- and update streams we want as default."
-
- "Clear all server entries"
- ServerDirectory serverNames do: [:each | ServerDirectory removeServerNamed: each].
-
- "Add default entries, added an entry for the new file area.
- The others are the current ones that see to work
- as of 2005-02-28 and I recreated them using source."
- ServerDirectory addServer: (ServerDirectory new
- type: #ftp;
- user: '';
- server: 'box1.squeakfoundation.org';
- altUrl: 'http://box1.squeakfoundation.org/files';
- directory: 'files';
- keepAlive: false) named: 'Squeak.org Archive'.
- ServerDirectory addServer: (ServerDirectory new
- type: #ftp;
- server: 'st.cs.uiuc.edu';
- user: 'anonymous';
- directory: '/Smalltalk/Squeak';
- keepAlive: false) named: 'UIUC Archive'.
- ServerDirectory addServer: (ServerDirectory new
- type: #ftp;
- server: 'ftp.create.ucsb.edu';
- user: 'anonymous';
- directory: '/pub/Smalltalk/Squeak';
- keepAlive: false) named: 'UCSBCreate Archive'.
- ServerDirectory addServer: SuperSwikiServer defaultSuperSwiki named: 'Bob SuperSwiki'.
- ServerDirectory addServer: (SuperSwikiServer new
- type: #http;
- server: 'squeakland.org:8080';
- altUrl: 'http://www.squeakland.org/uploads';
- directory: '/super/SuperSwikiProj';
- keepAlive: false;
- acceptsUploads: true) named: 'Squeakland SuperSwiki'.
- ServerDirectory addServer: (HTTPServerDirectory new
- type: #ftp;
- user: 'sqland';
- server: 'www.squeakland.org';
- altUrl: 'http://www.squeakland.org/projects';
- directory: 'projects';
- keepAlive: false) named: 'Squeakland Projects'.
-
- "Add the update streams here just as Squeakland does?
- serverName := 'Squeakland'.
- serverURL := 'squeakland.org'.
- serverDir := serverURL , '/'.
- updateServer := ServerDirectory new.
- updateServer
- server: serverURL;
- directory: 'public:=html/updates/';
- altUrl: serverDir.
- Utilities updateUrlLists addFirst: {serverName. {serverDir. }.}.
- "
- !
Item was removed:
- ReleaseBuilder subclass: #ReleaseBuilderFor3dot10
- instanceVariableNames: 'repository packagesList mantisNo'
- classVariableNames: ''
- poolDictionaries: ''
- category: 'ReleaseBuilder'!
- ReleaseBuilderFor3dot10 class
- instanceVariableNames: 'current'!
-
- !ReleaseBuilderFor3dot10 commentStamp: 'edc 4/5/2007 10:06' prior: 0!
- This class has two functions. One is to hold a few methods that are used by the release team to make an initial or a final release. These will not be used much. The other is to manage the update stream. In general, an update will be a set of Montecello versions. There will be a "packages" method that lists them, and an "update" method that loads them. The actual update file will just load these two methods from Montecello and execute them.
-
- Once the 3.10 release cycle is over, this class will be useless except for tracking history.
-
- For do a new update:
- With a regular web browser like Firefox you go to http://bugs.squeak.org/view.php?id= nnnn
- If you think what this should go into image, then in a Workspace do
-
- Installer mantis createRBforBug: nnnn !
- ReleaseBuilderFor3dot10 class
- instanceVariableNames: 'current'!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10 class>>clear (in category 'instance creation') -----
- clear
-
- " ReleaseBuilderFor3dot10 clear "
- current:= nil!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10 class>>current (in category 'instance creation') -----
- current
-
- " ReleaseBuilderFor3dot10 current inspect "
- ^current ifNil: [current := (self new) newUpdate]!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>addRepositoryToPackageNamed: (in category 'managing updates') -----
- addRepositoryToPackageNamed: aString
-
- |pa|
- pa := MCPackage named: aString.
- pa workingCopy repositoryGroup addRepository: self repository.
- ^pa workingCopy repositoryGroup
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>advanceToThreeDotTenAlpha (in category 'squeakThreeTen') -----
- advanceToThreeDotTenAlpha
-
- "Offer the chance to advance the version number."
- (self confirm: 'There are no further updates for Squeak 3.9.
- Do you wish to advance to version 3.10alpha?
- [Yes] Your system will be marked as 3.10alpha, and you will
- subsequently receive ''test pilot'' updates for 3.10.
- [No] Your system will be marked as 3.9, allowing you
- to receive only final fixes for the 3.9 stable release.
- [Neither] You may choose No, and immediately quit without saving,
- allowing you to make a backup copy before adopting this change.
- DO YOU WANT TO ADVANCE to Version 3.10alpha now?')
- ifTrue: [SystemVersion newVersion: 'Squeak3.10alpha'.
- SystemVersion current date: Time now asDate.
- self inform: 'You may now save this Version 3.10alpha image
- and retrieve updates again for 3.10alpha and beyond.']
- ifFalse: [SystemVersion current version: 'Squeak3.9'; date: Time now asDate..
- self inform: 'You may now save this Version 3.9 final image
- and retrieve updates again for any final fixes to 3.9.
- - - - - -
- (If you quit without saving now, your image will revert to
- 3.9without any of the updates you just loaded)']!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>cleanUnwantedCs (in category 'updates') -----
- cleanUnwantedCs
- ChangeSet
- removeChangeSetsNamedSuchThat: [:cs | cs name ~= ChangeSet
- current name].
- ChangeSet current clear.
- ChangeSet current name: 'Unnamed1'.
- Smalltalk garbageCollect.!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>createBackgroundColor (in category 'squeakThreeTen') -----
- createBackgroundColor
- | gf |
- gf := GradientFillStyle ramp: {0.0->(Color r: 0.97 g: 0.98 b: 1.0) .
- 1.0->(Color r: 0.0 g: 0.658 b: 0.474)}.
- gf origin: 0 @ 0;
- direction: 0@400;
- normal: 640@0;
- radial: false.
- World fillStyle: gf
-
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>flushCaches (in category 'managing updates') -----
- 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: ReleaseBuilderFor3dot10>>installInBoxAnd310 (in category 'packages') -----
- installInBoxAnd310
-
-
- MCWorkingCopy allManagers do: [:each |
- each repositoryGroup
- addRepository: (MCHttpRepository new location: 'http://source.squeakfoundation.org/310' ; user: 'squeak'; password: 'squeak');
- addRepository: (MCHttpRepository new location: 'http://source.squeakfoundation.org/inbox' ; user: '' ; password: '')].!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>loadLast: (in category 'updates') -----
- loadLast: aPackageName
- | package |
- package := self repository readableFileNames detect:[:ea| ea beginsWith: aPackageName] ifNone:[]. package ifNotNil: [
- (repository loadVersionFromFileNamed: package) load]
- ifNil: [ ^ self error: aPackageName ,' is not on this repository '].
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>loadLastVersion: (in category 'packages') -----
- loadLastVersion: aListOfPackageNames
- | mcw montiNames version |
- mcw := MCWorkingCopyBrowser new repository: (MCHttpRepository
- location: 'http://source.squeakfoundation.org/39a'
- user: ''
- password: '').
- mcw repository ifNotNil: [:repos | montiNames := repos readableFileNames ].
-
- aListOfPackageNames do: [:mo | | package |
-
- package := (montiNames detect:[:ea| ea beginsWith: mo] ifNone:[] ) .
- package ifNotNil: [
- version := mcw repository loadVersionFromFileNamed: package.
- version load]].
- ^version!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>loadPackages: (in category 'managing updates') -----
- loadPackages: packageNames
- self loadTogether: (packageNames findTokens: ' ', String cr) merge: false!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>loadTogether:merge: (in category 'managing updates') -----
- loadTogether: aCollection merge: aBoolean
- | loader mcc |
- loader := aBoolean
- ifTrue: [ MCVersionMerger new ]
- ifFalse: [ MCVersionLoader new].
- aCollection do: [:eachVersion | self addRepositoryToPackageNamed: (eachVersion copyUpTo: $- )].
- (self newerVersionsIn: aCollection)
- do: [:fn | Transcript show: fn;cr.
- 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].
- SystemNavigation default obsoleteBehaviors size > 0
- ifTrue: [
- SystemNavigation default obsoleteBehaviors inspect.
- self error:'The changes should be reviewed'].
- self flushCaches.
-
- mcc := MCWorkingCopyBrowser new.
- mcc repository: MCCacheRepository default.
- mcc workingCopies select:
- [:wc |
- (wc modified = true)] thenDo: [:ea|
- mcc workingCopy: ea.
- ea modified: false
- ]
-
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>makeSqueakRelease (in category 'squeakThreeTen') -----
- makeSqueakRelease
- | monti |
-
- self unloadSome.
-
- monti := MCWorkingCopyBrowser new.
- monti unsortedWorkingCopies
- do: [:ea | ((PackageOrganizer default packageNames) includes: (ea package name)) ifFalse:[ ea unregister]].
- monti flushAllCaches.
-
-
- Smalltalk garbageCollect.
- DataStream initialize.
- Flaps replaceGlobalFlapwithID: 'Tools' translated.
- Flaps replaceGlobalFlapwithID: 'Widgets' translated.
- self cleanUpEtoys.
- SmalltalkImage current fixObsoleteReferences.
-
- Smalltalk garbageCollect.
- ScheduledControllers := nil.
- Behavior flushObsoleteSubclasses.
- Smalltalk garbageCollect!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>makeSqueakThreeTenRelease (in category 'squeakThreeTen') -----
- makeSqueakThreeTenRelease
- "ReleaseBuilderFor3dot10 new makeSqueakThreeTenRelease"
-
- self
- makeSqueakThreeTenReleasePhasePrepare;
- makeSqueakRelease;
- makeSqueakThreeTenReleasePhaseCleanup;
- installInBoxAnd310;
- updateFrom7067;
- createBackgroundColor!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>makeSqueakThreeTenReleasePhaseCleanup (in category 'squeakThreeTen') -----
- makeSqueakThreeTenReleasePhaseCleanup
- "ReleaseBuilderFor3dot10 new makeSqueakThreeTenReleasePhaseCleanup"
- | newVersion |
- Smalltalk at: #Browser ifPresent:[:br| br initialize].
- self cleanUnwantedCs.
- "Remove existing player references"
- References keys do: [:k | References removeKey: k].
- Smalltalk garbageCollect.
- ScheduledControllers := nil.
- Behavior flushObsoleteSubclasses.
- SystemNavigation default obsoleteBehaviors isEmpty
- ifFalse: [self error: 'Still have obsolete behaviors'].
-
- "Reinitialize DataStream; it may hold on to some zapped entitities"
- DataStream initialize.
- self fixObsoleteReferences.
- "Smalltalk abandonTempNames."
- Smalltalk zapAllOtherProjects.
- Smalltalk flushClassNameCache.
- Symbol compactSymbolTable.
- "SystemVersion current registerUpdate: 7069." "We only need for when start the release"
- newVersion := 'Squeak3.10alpha.' , SystemVersion current
- highestUpdate printString.
-
- newVersion := newVersion ,'.'.
- (SourceFiles at: 2) ifNotNil:
- [SmalltalkImage current closeSourceFiles; "so copying the
- changes file will always work"
- saveChangesInFileNamed: (SmalltalkImage current
- fullNameForChangesNamed: newVersion)].
- SmalltalkImage current saveImageInFileNamed: (SmalltalkImage current
- fullNameForImageNamed: newVersion)
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>makeSqueakThreeTenReleasePhasePrepare (in category 'squeakThreeTen') -----
- makeSqueakThreeTenReleasePhasePrepare
- "ReleaseBuilderFor3dot10 new makeSqueakThreeTenReleasePhasePrepare"
-
- Undeclared removeUnreferencedKeys.
- StandardScriptingSystem initialize.
- Preferences initialize.
- "(Object classPool at: #DependentsFields) size > 1 ifTrue: [self
- error:'Still have dependents']."
- Undeclared isEmpty ifFalse: [self error:'Please clean out
- Undeclared'].
-
- "Dump all projects"
- Project allSubInstancesDo:[:prj| prj == Project current
- ifFalse:[Project deletingProject: prj]].
-
- "Set new look so we don't need older fonts later"
- StandardScriptingSystem applyNewEToyLook.
-
- Smalltalk at: #Browser ifPresent:[:br| br initialize].
- ScriptingSystem deletePrivateGraphics.
- self cleanUnwantedCs.
- "Reinitialize DataStream; it may hold on to some zapped entitities"
- DataStream initialize.
- "Remove existing player references"
- References keys do:[:k| References removeKey: k].
-
- Smalltalk garbageCollect.
- ScheduledControllers := nil.
- Smalltalk garbageCollect.
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>newUpdate (in category 'updates') -----
- newUpdate
- packagesList := Set new!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>newUpdateFor: (in category 'updates') -----
- newUpdateFor: aBugNo
- " ReleaseBuilderFor3dot10 new newUpdateFor: nnnn"
- |cs updateNo newName newSet lastName|
- mantisNo := aBugNo.
- updateNo := SystemVersion current highestUpdate + 1.
-
- lastName := ChangeSet allChangeSetNames last.
- newName := UIManager default
- request: 'Please name the new change set:'
- initialAnswer: updateNo asString, lastName.
- newName isEmptyOrNil ifTrue:
- [^ nil].
- newSet := ChangeSet basicNewChangeSet: newName.
- newSet ifNotNil:
- [ChangeSet newChanges: newSet].
-
-
- cs := newSet .
- cs preamble: '"',(Installer mantis preambleCsForRB: aBugNo) withSqueakLineEndings asUnHtml , '"'.
- cs postscript: '"', self postcriptTemplate, aBugNo asString, '"
-
- ReleaseBuilderFor3dot10 new updatePackages: '.
- self updateToNext.
- cs editPostscript!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>newerVersionsIn: (in category 'managing updates') -----
- newerVersionsIn: aCollection
- ^aCollection reject: [:each |
- MCWorkingCopy allManagers anySatisfy: [:workingcopy |
- workingcopy ancestry ancestorString , '.mcz' = each]].!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>packages7067 (in category 'packages') -----
- packages7067
- ^ 'System-edc.102(sd.101).mcd
- Tests-edc.20(sd.19).mcd
- Kernel-edc.151(sd.150).mcd
- ST80-edc.38.mcz
- Monticello-edc.311.mcz
- CollectionsTests-edc.35.mcz
- Graphics-edc.40(ar.39).mcd
- SystemChangeNotification-Tests-edc.7.mcz
- GraphicsTests-edc.10(ar.9).mcd
- SMBase-edc.86(sd.85).mcd
- KernelTests-edc.51(sd.50).mcd
- Traits-edc.226.mcz
- Files-edc.20.mcz
- ToolBuilder-Kernel-rej.18.mcz
- XML-Parser-mir.3.mcz
- Universes-ls.19.mcz'!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>packagesInfluenced (in category 'packages') -----
- packagesInfluenced
-
- " This is a partial response to Ralph request.
- Lets know what packages could touch some code file what we wish go into image.
- Intended to load Mantis fix and convert the result to Monticello "
- "
- ReleaseBuilderFor3dot10 new packagesInfluenced
- "
- | monti fileName cs |
- monti := Set new.
- fileName := UIManager default chooseFileMatching: #('st' 'cs').
- cs := FilePackage fromFileNamed: fileName.
- cs classes do: [:cl| | realClass cat p |
- realClass := Smalltalk at: cl name ifAbsent: [ self error: 'This image do not have ', cl asString] .cat := (realClass category findTokens: '-') first.
-
- p := (PackageInfo allPackages collect:[:pi| pi packageName]) .
- (p includes: cat) ifTrue:[ monti add: cat]].
- ^ monti.!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>packagesInfluenced:named: (in category 'packages') -----
- packagesInfluenced: aStream named: aFileName
-
- " This is a partial response to Ralph request.
- Lets know what packages could touch some code file what we wish go into image.
- Intended to load Mantis fix and convert the result to Monticello "
- "
- ReleaseBuilderFor3dot10 new packagesInfluenced
- "
- | monti cs |
- monti := Set new.
-
- cs := FilePackage new fromStream: aStream reset named: aFileName.
- cs classes do: [:cl| | p realClass cat |
- realClass := Smalltalk at: cl name ifAbsent: [ self error: 'This image do not have ', cl asString] .cat := (realClass category findTokens: '-') first.
-
- p := (PackageInfo allPackages collect:[:pi| pi packageName]) .
- (p includes: cat) ifTrue:[ monti add: cat]].
- packagesList addAll: monti.!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>packagesList (in category 'accessing') -----
- packagesList
- | mcc lista |
- lista := OrderedCollection new.
- mcc := MCWorkingCopyBrowser new.
- mcc repository: MCCacheRepository default.
- lista := mcc workingCopies select:
- [:wc |
- ((wc modified = true) & wc ancestors notEmpty)] thenCollect: [:ea| | packName pos|
- packName := ea ancestry ancestors first name.
- pos := packName indexOf: $-.
- packName := packName copyFrom: 1 to: pos -1.
- lista add: packName].
- ^ lista!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>postcriptTemplate (in category 'updates') -----
- postcriptTemplate
- ^'To follow this see
- http://bugs.squeak.org/view.php?id= '!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>repository (in category 'updates') -----
- repository
- repository isNil ifTrue: [
- repository := MCHttpRepository
- location: 'http://source.squeakfoundation.org/310'
- user: ''
- password: ''.].
- ^repository!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>saveNewVersion: (in category 'packages') -----
- saveNewVersion: v
-
- v repositoryGroup: (self addRepositoryToPackageNamed: v package name).
- repository user ifEmpty:[
- repository user: (UIManager default request: '3.10 Repository username').
- repository password: (UIManager default request: '3.10 Repository password')].
-
- repository storeVersion: (v newVersionWithName: v uniqueVersionName message: self postcriptTemplate, mantisNo asString) .
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>testObsolete (in category 'squeakThreeTen') -----
- testObsolete
- "if we do some classes go, also his test should go"
- ^#(WatchMorphTest)!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>unloadMorphicClasses (in category 'squeakThreeTen') -----
- unloadMorphicClasses
-
- "These classes don't seem to be used, so unload them. They always can be loaded later."
-
- SystemOrganization classifyAll: #(BorderedStringMorph MouseActionIndicatorMorph CommandTilesMorph
- TestClickExerciser SpectrumAnalyzerMorph FishEyeMorph SoundDemoMorph
- MultiuserTinyPaint KidNavigationMorph CodecDemoMorph BlobMorph
- SoundMorph SubpaneDividerMorph
- RolloverButtonMorph ClipboardMorph VeryPickyMorph
- ClassRepresentativeMorph PhraseWrapperMorph WatchMorph
- UpdatingTextMorph PluggableTabBarMorph PartsWindow HeadingMorph
- ZoomMorph UpdatingStringMorphWithArgument SoundSequencerMorph
- ImageMorphWithSpotlight TinyPaint InfoStringMorph
- UpdatingBooleanStringMorph DrawErrorMorph ViewerRow
- BalloonRectangleMorph ViewerEntry MidiInputMorph
- CachingMorph MovingEyeMorph MIDIPianoKeyboardMorph
- DoubleClickExample MorphExample RulerMorph LabelStringMorph) under:
- 'Morphic-CandidatesForGo'.
-
- (MCPackage named: 'Morphic-CandidatesForGo') unload .
- #(TheWorldMenu FileServices AppRegistry Preferences FileList) do: [:cl|
- (Smalltalk at: cl) removeObsolete].
- self testObsolete do: [:cl|
- Smalltalk removeClassNamed: cl].
- Smalltalk garbageCollect.!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>unloadSome (in category 'squeakThreeTen') -----
- unloadSome
- World removeAllMorphs.
- CommandHistory resetAllHistory.
- #('Flash' 'StarSqueak' 'SmaCC' 'Speech' 'Movies' 'FixUnderscores' 'OB' 'OmniBrowser' )
- do: [:ea | (MCPackage named: ea) unload.
- PackageOrganizer default unregisterPackageNamed: ea].
- #(#TheWorldMenu #FileServices #AppRegistry #Preferences #FileList )
- do: [:cl | (Smalltalk at: cl) removeObsolete].
- self unloadMorphicClasses.
- SystemOrganization removeEmptyCategories.
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>updateFrom7067 (in category 'updates') -----
- updateFrom7067
- "ReleaseBuilderFor3dot10 new updateFrom7067"
- self updatePackages: 'Monticello-rej.309.mcz'.
- "Enable atomic loading"
- self addRepositoryToPackageNamed: 'SystemChangeNotification-Tests'.
- self updatePackages: self packages7067.
- self flushCaches!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>updatePackages: (in category 'managing updates') -----
- updatePackages: packageNames
- self loadTogether: (packageNames findTokens: ' ', String cr) merge: true!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>updateTo7070 (in category 'updates') -----
- updateTo7070
- ^'EToys-edc.23(md.22).mcd'!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>updateTo7071 (in category 'updates') -----
- updateTo7071
- ^'Collections-edc.72(md.71).mcd
- CollectionsTests-edc.36(35).mcd
- '!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>updateToNext (in category 'updates') -----
- updateToNext
-
- | stream mcc |
- stream := RWBinaryOrTextStream on: String new.
- mcc := MCWorkingCopyBrowser new.
- mcc repository: MCCacheRepository default.
- mcc workingCopies select:
- [:wc |
- (wc modified = true)] thenDo: [:ea| | number p1 packString pos |
- self saveNewVersion: ea.
-
- packString := ea ancestry ancestorString .
- pos := packString indexOf: $..
- p1 := packString copyFrom: 1 to: pos -1.
- number := (packString copyFrom: pos + 1 to: packString size) asNumber.
- packString := p1 ,'.', number asString , '(', (number - 1) asString ,').mcd'.
- packString := packString, Character cr asString.
- stream nextPutAll: packString
- ].
- ChangeSet current postscript: ChangeSet current postscript, stream contents!
Item was removed:
- ReleaseBuilderFor3dot10 subclass: #ReleaseBuilderFor3dot11
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'ReleaseBuilder'!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>cleanupPhaseFinal (in category 'cleaning') -----
- cleanupPhaseFinal
- " ReleaseBuilderFor3dot11 new cleanupPhaseFinal "
- | tasks |
- tasks := OrderedCollection new
-
- add: [Smalltalk removeEmptyMessageCategories];
- add: [Workspace
- allSubInstancesDo: [:each | each initializeBindings]];
- add: [Undeclared removeUnreferencedKeys];
- add: [Categorizer sortAllCategories];
- add: [Symbol compactSymbolTable];
- add: [#(#TheWorldMenu #FileServices #AppRegistry #Preferences #FileList )
- do: [:cl | (Smalltalk at: cl) removeObsolete]]; add:[Flaps freshFlapsStart]; add:[MCFileBasedRepository flushAllCaches];
- add: [HandMorph releaseCachedState;
- initForEvents.self fixObsoleteReferences];
- add: [
-
- 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].Smalltalk garbageCollectMost];
- yourself.
- Utilities
- informUserDuring: [:bar | tasks
- do: [:block |
- bar value: block printString.
- block
- on: Error
- do: [:error | Transcript show: error;
- cr]]].
- SystemNavigation default obsoleteClasses isEmpty
- ifTrue: [SmalltalkImage current saveSession]
- ifFalse: [SystemNavigation default obsoleteClasses
- do: [:each | .self halt.[PointerFinder on: each]
- on: Error
- do: [:error | Transcript show: error; cr]]]
-
-
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>cleanupPhasePrepare (in category 'cleaning') -----
- cleanupPhasePrepare
- self cleanUnwantedCs.
- "SMSqueakMap default clearCaches."
- " Commented out for no Undeclared on image "
- #(zapMVCprojects zapAllOtherProjects discardFlash discardFFI
- computeImageSegmentation discardSpeech ) do:[:ea|
- SystemDictionary removeSelector:ea].
- #( reserveUrl: saveAsResource saveDocPane saveOnURL saveOnURL:
- saveOnURLbasic isTurtleRow objectViewed inATwoWayScrollPane) do:[:ea|
- Morph removeSelector: ea].
-
- #(playfieldOptionsMenu presentPlayfieldMenu allScriptEditors
- attemptCleanupReporting: modernizeBJProject
- scriptorForTextualScript:ofPlayer:) do:[:ea|
- PasteUpMorph removeSelector: ea].
- #(isUniversalTiles noteDeletionOf:fromWorld: scriptorsForSelector:inWorld: tilesToCall: handMeTilesToFire) do:[:ea|
- Player removeSelector: ea].
- Player class removeCategory: 'turtles'.
- Player removeCategory: 'slots-user'.
- Morph removeCategory: 'scripting'.
- ColorType removeCategory: 'tiles'.
- TheWorldMainDockingBar removeSelector: #hideAllViewersIn: .
- SystemOrganization removeCategoriesMatching: 'UserObjects'.
- FileList2 class organization classify: #morphicViewOnDirectory: under: 'morphic ui'.
- FileList2 class organization classify: #morphicView under: 'morphic ui'.
- SystemOrganization classifyAll: #(AbstractMediaEventMorph ColorSwatch) under: 'MorphicExtras-AdditionalSupport'.!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>createBackgroundColor (in category 'squeakThreeEleven') -----
- createBackgroundColor
- | gf |
- gf := GradientFillStyle ramp: {0.0->(Color r: 0.97 g: 0.98 b: 1.0) .
- 1.0->(Color r: 0.0 g: 0.658 b: 0.474)}.
- gf origin: 0 @ 0;
- direction: 0@400;
- normal: 640@0;
- radial: false.
- World fillStyle: gf!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>createCompressedSources (in category 'sources managment') -----
- createCompressedSources
- " ReleaseBuilderFor3dot11 new createCompressedSources"
-
- ProtoObject allSubclassesWithLevelDo:[:cl :l| | dir |
- dir := self createDirIfnotExists:cl category.
-
-
- Cursor write showWhile: [ | zipped nameToUse unzipped buffer |
- nameToUse := cl printString , FileDirectory dot, ImageSegment compressedFileExtension.
- (dir fileExists: nameToUse) ifFalse:[
- unzipped :=RWBinaryOrTextStream on: ''.
- unzipped header; timeStamp.
- cl fileOutOn: unzipped moveSource: false toFile: 0.
- unzipped trailer.
-
- unzipped reset.
- zipped := dir newFileNamed: (nameToUse).
- zipped binary.
- zipped := GZipWriteStream on: zipped.
- buffer := ByteArray new: 50000.
- 'Compressing ', nameToUse displayProgressFrom: 0 to: unzipped size
- during:[:bar|
- [unzipped atEnd] whileFalse:[
- bar value: unzipped position.
- zipped nextPutAll: (unzipped nextInto: buffer)].
- zipped close.
- unzipped close]]]] startingLevel: 0!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>createDirIfnotExists: (in category 'sources managment') -----
- createDirIfnotExists: aDirName
- (FileDirectory default directoryExists:aDirName)
- ifFalse: [FileDirectory default createDirectory: aDirName].
- ^FileDirectory default directoryNamed: aDirName!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>getRidOfUnwantedMorphs (in category 'cleaning') -----
- getRidOfUnwantedMorphs
- | objFl aButton partBin unwantedMorph |
- aButton := SimpleButtonMorph new label: 'Tools'.
- aButton actWhen: #buttonDown.
- objFl := Flaps globalFlapTabWithID: 'Objects'.
- objFl referent showCategory: 'Tools' fromButton: aButton.
- partBin := objFl referent submorphs at: 1.
- unwantedMorph := partBin submorphThat: [:any| (any arguments at: 2) = 'SUnit Runner'] ifNone: [].
- unwantedMorph delete.
- 2 timesRepeat: [unwantedMorph := partBin submorphThat: [:any| (any arguments at: 2) = 'Package Loader'] ifNone: []. "we have two of this "
- unwantedMorph delete].
- objFl := Flaps globalFlapTabWithID: 'Tools'.
- partBin := objFl referent.
- unwantedMorph := partBin submorphThat: [:any| (any arguments at: 2) = 'Package Loader'] ifNone: [].
- unwantedMorph delete.
- unwantedMorph := partBin submorphThat: [:any| (any arguments at: 2) = 'SUnit Runner'] ifNone: [].
- unwantedMorph delete.!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>groupingTests (in category 'unloadPackages') -----
- groupingTests
- " this is how I build Tests-edc.35 for unload "
- | classList |
-
- classList := OrderedCollection new.
- #(TestCase TestResource) do: [:cl| (Smalltalk at: cl)
- allSubclassesWithLevelDo: [:c :i | classList addFirst: c]
- startingLevel: 0].
-
- Smalltalk organization addCategory: 'Tests-Others'.
- classList select: [:ea| ((ea basicCategory asString) beginsWith: 'Tests') not] thenDo: [:any| SystemOrganization classify: any name under: 'Tests-Others']
-
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>installtrunk (in category 'updates') -----
- installtrunk
-
- " ReleaseBuilderFor3dot11 new installtrunk"
-
- MCWorkingCopy allManagers
- do: [:each | each repositoryGroup addRepository: (MCHttpRepository new location: 'http://source.squeakfoundation.org/trunk/';
- user: 'squeak';
- password: 'squeak')]!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>loadLastVersion: (in category 'updates') -----
- loadLastVersion: aListOfPackageNames
- | mcw montiNames version |
- mcw := MCWorkingCopyBrowser new
- repository: (MCHttpRepository
- location: 'http://source.squeakfoundation.org/trunk'
- user: ''
- password: '').
- mcw repository
- ifNotNil: [:repos | montiNames := repos readableFileNames].
- aListOfPackageNames
- do: [:mo | | package |
- package := montiNames
- detect: [:ea | (ea findTokens: '-' ) first = mo]
- ifNone: [].
- package
- ifNotNil: [version := mcw repository loadVersionFromFileNamed: package.
- version load]].
- ^ version!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>makeSqueakThreeTenEleven (in category 'squeakThreeEleven') -----
- makeSqueakThreeTenEleven
- "ReleaseBuilderFor3dot11 new makeSqueakThreeTenEleven"
- "World removeAllMorphs."
- Transcript open.
- self cleanupPhasePrepare;getRidOfUnwantedMorphs
- "prepareforUnloadBookMorphandFriends;"
- ;prepareforUnloadEtoys;
- prepareforUnloadNebraska
- ;groupingTests;
- unloadSomeMore;unloadSomeMore3;cleanupPhaseFinal;createBackgroundColor!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>prepareforUnloadBookMorphandFriends (in category 'cleaning') -----
- prepareforUnloadBookMorphandFriends
- SystemOrganization addCategory: #BookMorphandFriends.
-
- SystemOrganization classifyAll: #( BookMorph BookPageSorterMorph BookPageThumbnailMorph BooklikeMorph FlexMorph FloatingBookControlsMorph KedamaMorph MethodMorph MorphThumbnail StoryboardBookMorph ) under: 'BookMorphandFriends'.
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>prepareforUnloadEtoys (in category 'cleaning') -----
- prepareforUnloadEtoys
- Smalltalk removeClassNamed: #FlexibleVocabulariesInfo.
- SystemOrganization classifyAll: #(ActorState MethodMorph Player Presenter StickySketchMorph UnscriptedPlayer SlotInformation UnscriptedCardPlayer) under: 'MorphicExtras-EToys-Scripting'.
- #( actorState actorState: isPartsDonor isPartsDonor: player player:) do: [:method|
- MorphExtension organization classify: method under: '*MorphicExtras-accessing' suppressIfDefault: false].
- HaloMorph organization classify: #doMakeSiblingOrDup:with: under: 'Old Etoys-handles'.
- HaloMorph organization classify: #doDupOrMakeSibling:with: under: 'Old Etoys-handles'.
- "self loadTogether: #('Morphic-CandidatesForGo-edc.3.mcz' ) merge: false."
- SystemOrganization classifyAll: #(ScriptEditorMorph TwoWayScrollPane TabSorterMorph) under:
- 'Morphic-CandidatesForGo'.
-
- #('*eToys-queries' '*eToys-eToy vocabularies' '*eToys-color' '*eToys-customevents-custom events' '*eToys-type vocabularies') do:[:ea|
- Vocabulary class removeCategory: ea].
-
- #('*flexibleVocabularies-flexiblevocabularies-scripting' '*flexibleVocabularies-flexibleVocabularies' '*eToys-scripting' '*eToys-new-morph participation' '*eToys-customevents-user events') do:[:ea|
- Morph class removeCategory: ea].
- #(nascentUserScriptInstance userScriptForPlayer: selector: ) do:[:ea|
- Player class removeSelector: ea].
- Smalltalk removeClassNamed: #FlexibleVocabulariesInfo.
- Preferences removePreference: #allowEtoyUserCustomEvents.
- Morph organization classify: #partName:categories:documentation:sampleImageForm: under: '*MorphicExtras-new-morph participation'.
- #(possiblyReplaceEToyFlaps twiddleSuppliesButtonsIn:) do: [:ea|
- Flaps class removeSelector: ea].
- Flaps clobberFlapTabList.
- Flaps addStandardFlaps.
- SystemOrganization classifyAll: #(ComponentLikeModel) under: 'MorphicExtras-Components'
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>prepareforUnloadNebraska (in category 'cleaning') -----
- prepareforUnloadNebraska
- SystemOrganization addCategory: #'Nebraska-Refactoring'.
-
- SystemOrganization classifyAll: #(EToyGenericDialogMorph EToyProjectDetailsMorph EToyProjectHistoryMorph EToyProjectQueryMorph EToyProjectRenamerMorph EtoyUpdatingThreePhaseButtonMorph) under: 'Nebraska-Refactoring'.
- WorldState organization classify: #remoteCanvasesDo: under: '*MorphicExtras-nebraska compatible'.
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>repository (in category 'updates') -----
- repository
- repository isNil
- ifTrue: [repository := MCHttpRepository
- location: 'http://source.squeakfoundation.org/trunk/'
- user: ''
- password: ''].
- ^ repository!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>saveInTrunk: (in category 'squeakThreeEleven') -----
- saveInTrunk: packageName
-
- " ReleaseBuilderFor3dot11 new saveInTrunk: Foo"
- | monti repo |
- monti := MCWorkingCopyBrowser new.
- repo := MCHttpRepository
- location: 'http://source.squeak.org/trunk'
- user: ''
- password: ''.
-
-
- (SystemOrganization categoriesMatching: packageName , '*')
- do: [:cat |
- | workingCopy message |
- PackageInfo registerPackageName: cat asString.
- workingCopy := MCWorkingCopy
- forPackage: (MCPackage new name: cat asString).
- workingCopy repositoryGroup addRepository: repo.
- repo user
- ifEmpty: [repo
- user: (UIManager default request: 'Trunk Repository username').
- repo
- password: (UIManager default request: 'Trunk Repository password')].
- message := UIManager default
- request: 'Please type comments for this package:' translated
- initialAnswer: 'a good comment' translated.
-
- repo
- storeVersion: (workingCopy newVersionWithName: workingCopy uniqueVersionName message: message)].
-
- monti workingCopyListChanged; changed: #workingCopySelection; changed: #repositoryList !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>unloadSomeMore (in category 'unloadPackages') -----
- unloadSomeMore
- #('Tests' 'SMLoader' 'SMBase' 'SUnit' 'SUnitGUI' 'ScriptLoader' 'Universes' 'Installer' 'XML-Parser' )
- do: [:ea | (MCPackage named: ea) unload].
- self fixObsoleteReferences !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>unloadSomeMore2 (in category 'unloadPackages') -----
- unloadSomeMore2
- "ReleaseBuilderFor3dot11 new unloadSomeMore2;cleanupPhaseFinal "
- #('BookMorphandFriends' )
- do: [:ea | (MCPackage named: ea) unload].self fixObsoleteReferences!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>unloadSomeMore3 (in category 'unloadPackages') -----
- unloadSomeMore3
- "ReleaseBuilderFor3dot11 new unloadSomeMore3;cleanupPhaseFinal;cleanUnwantedCs "
- #('MorphicExtras-Demo' 'Morphic-CandidatesForGo' 'Nebraska' )
- do: [:ea | (MCPackage named: ea) unload].
- SystemOrganization removeCategoriesMatching: 'EToys*'.
- self fixObsoleteReferences!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>unloadTraits (in category 'unloadPackages') -----
- unloadTraits
- "ReleaseBuilderFor3dot11 new unloadTraits"
- " self saveInLadrillos: 'Traits'."
- self unloadTraitsClearRefs.
- (MCPackage named: 'Traits') unload.
- self unloadTraitsTraitsStubs.
- self fixObsoleteReferences!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>unloadTraitsClearRefs (in category 'unloadPackages') -----
- unloadTraitsClearRefs
-
- | loader |
- loader := CodeLoader new.
- loader baseURL:'http://installer.pbwiki.org/f/'.
-
- "Sources and segments can be loaded in parallel"
- loader loadSourceFiles: #('UnloadTraits-ClearRefs.cs' ).
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>unloadTraitsStubOutAcessors (in category 'unloadPackages') -----
- unloadTraitsStubOutAcessors
-
- | loader |
- loader := CodeLoader new.
- loader baseURL:'http://installer.pbwiki.org/f/'.
-
- "Sources and segments can be loaded in parallel"
- loader loadSourceFiles: #('UnloadTraits-StubOutAcessors.cs' ).
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>unloadTraitsTraitsStubs (in category 'unloadPackages') -----
- unloadTraitsTraitsStubs
-
- | loader |
- loader := CodeLoader new.
- loader baseURL:'http://installer.pbwiki.org/f/'.
-
- "Sources and segments can be loaded in parallel"
- loader loadSourceFiles: #('UnloadTraits-TraitsStubs.cs' ).
- !
Item was removed:
- ReleaseBuilder subclass: #ReleaseBuilderFor4dot3
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'ReleaseBuilder'!
-
- !ReleaseBuilderFor4dot3 commentStamp: 'fbs 12/3/2012 09:47' prior: 0!
- This is the release builder for Squeak 4.3. It was formerly known as ReleaseBuilderTrunk.!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot3 class>>openWelcomeWorkspaces (in category 'private') -----
- openWelcomeWorkspaces
- TheWorldMainDockingBar instance
- showWelcomeText: #squeakUserInterface
- label: 'Squeak User Interface'
- in: (40 @ 40 extent: 500 @ 300).
- TheWorldMainDockingBar instance
- showWelcomeText: #workingWithSqueak
- label: 'Working With Squeak'
- in: (80 @ 80 extent: 500 @ 300).
- TheWorldMainDockingBar instance
- showWelcomeText: #licenseInformation
- label: 'License Information'
- in: (120 @ 120 extent: 500 @ 300).
- TheWorldMainDockingBar instance
- showWelcomeText: #welcomeFutureDirections
- label: 'Future Directions'
- in: (160 @ 160 extent: 500 @ 300).
- TheWorldMainDockingBar instance
- showWelcomeText: #welcomeToSqueak43
- label: 'Welcome to Squeak 4.3'
- in: (200 @ 200 extent: 500 @ 300)!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot3 class>>releaseRepository (in category 'private') -----
- releaseRepository
- ^ MCHttpRepository
- location: self repositoryUrl , '/squeak43'
- user: 'squeak'
- password: 'squeak'!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot3 class>>setDisplayExtent: (in category 'private') -----
- setDisplayExtent: extent
- "Uncomment next line when the primitives become available in the Squeak VM."
- " DisplayScreen hostWindowSize: extent."
- Display extent = extent ifFalse: [ Warning signal: 'Display extent not set to ', extent ]!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot3 class>>setPreferences (in category 'private') -----
- setPreferences
- Preferences
- installBrightWindowColors ;
- setPreference: #scrollBarsWithoutMenuButton toValue: true ;
- setPreference: #swapMouseButtons toValue: true ;
- setPreference: #annotationPanes toValue: true ;
- setPreference: #showSplitterHandles toValue: false ;
- setPreference: #showBoundsInHalo toValue: true ;
- setPreference: #alternateHandlesLook toValue: false ;
- setPreference: #roundedMenuCorners toValue: false ;
- setPreference: #roundedWindowCorners toValue: false.
- PluggableButtonMorph roundedButtonCorners: false.
- FillInTheBlankMorph roundedDialogCorners: false.
- Workspace shouldStyle: false!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot3 class>>switchToNewRepository (in category 'private') -----
- switchToNewRepository
- | old42Repository |
- MCMcmUpdater defaultUpdateURL: 'http://source.squeak.org/squeak43'.
- old42Repository := MCRepositoryGroup default repositories
- detect: [:each | each description includesSubString: 'squeak42'] ifNone: [nil].
- old42Repository
- ifNotNil: [MCRepositoryGroup default removeRepository: old42Repository].
- MCRepositoryGroup default addRepository: self releaseRepository!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot3 class>>versionString (in category 'as yet unclassified') -----
- versionString
- ^ 'Squeak4.3'.!
Item was removed:
- ReleaseBuilder subclass: #ReleaseBuilderFor4dot4
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'ReleaseBuilder'!
-
- !ReleaseBuilderFor4dot4 commentStamp: 'fbs 10/24/2012 09:20' prior: 0!
- The release builder for Squeak 4.4!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot4 class>>openWelcomeWorkspaces (in category 'private') -----
- openWelcomeWorkspaces
- TheWorldMainDockingBar instance
- showWelcomeText: #squeakUserInterface
- label: 'Squeak User Interface'
- in: (40 @ 40 extent: 500 @ 300).
- TheWorldMainDockingBar instance
- showWelcomeText: #workingWithSqueak
- label: 'Working With Squeak'
- in: (80 @ 80 extent: 500 @ 300).
- TheWorldMainDockingBar instance
- showWelcomeText: #licenseInformation
- label: 'License Information'
- in: (120 @ 120 extent: 500 @ 300).
- TheWorldMainDockingBar instance
- showWelcomeText: #welcomeFutureDirections
- label: 'Future Directions'
- in: (160 @ 160 extent: 500 @ 300).
- TheWorldMainDockingBar instance
- showWelcomeText: #welcomeToSqueak
- label: 'Welcome to Squeak 4.4'
- in: (200 @ 200 extent: 500 @ 300)!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot4 class>>prepareNewBuild (in category 'scripts') -----
- prepareNewBuild
- super prepareNewBuild.
- MCMockPackageInfo initialize.!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot4 class>>releaseRepository (in category 'private') -----
- releaseRepository
- ^ MCHttpRepository
- location: 'http://source.squeak.org/squeak44'
- user: 'squeak'
- password: 'squeak'!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot4 class>>setDisplayExtent: (in category 'private') -----
- setDisplayExtent: extent
- "Uncomment next line when the primitives become available in the Squeak VM."
- " DisplayScreen hostWindowSize: extent."
- Display extent = extent ifFalse: [ Warning signal: 'Display extent not set to ', extent ]!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot4 class>>setPreferences (in category 'private') -----
- setPreferences
- Preferences
- installBrightWindowColors ;
- setPreference: #scrollBarsWithoutMenuButton toValue: true ;
- setPreference: #swapMouseButtons toValue: true ;
- setPreference: #annotationPanes toValue: true ;
- setPreference: #showSplitterHandles toValue: false ;
- setPreference: #showBoundsInHalo toValue: true ;
- setPreference: #alternateHandlesLook toValue: false ;
- setPreference: #roundedMenuCorners toValue: false ;
- setPreference: #roundedWindowCorners toValue: false.
- PluggableButtonMorph roundedButtonCorners: false.
- FillInTheBlankMorph roundedDialogCorners: false.
- Workspace shouldStyle: false.
- NetNameResolver enableIPv6: false.!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot4 class>>switchToNewRepository (in category 'private') -----
- switchToNewRepository
- | old43Repository |
- MCMcmUpdater defaultUpdateURL: self releaseRepository description.
- old43Repository := MCRepositoryGroup default repositories
- detect: [:each | each description includesSubString: 'squeak43'] ifNone: [nil].
- old43Repository
- ifNotNil: [MCRepositoryGroup default removeRepository: old43Repository].
- MCRepositoryGroup default addRepository: self releaseRepository!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot4 class>>versionString (in category 'private') -----
- versionString
- ^ 'Squeak4.4'.!
Item was removed:
- ReleaseBuilder subclass: #ReleaseBuilderFor4dot5
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'ReleaseBuilder'!
-
- !ReleaseBuilderFor4dot5 commentStamp: 'fbs 1/1/2013 20:25' prior: 0!
- The release builder for Squeak 4.5!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot5 class>>loadWellKnownPackages (in category 'private') -----
- loadWellKnownPackages
- "Load into the release image those packages that have been stripped from Trunk, but still deemed necessary for a release artifact."
- #('311Deprecated'
- '39Deprecated'
- '45Deprecated'
- 'Nebraska'
- 'Universes'
- 'XML-Parser') do: [:pkgName |
- Installer squeak
- project: 'trunk';
- install: pkgName].!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot5 class>>openWelcomeWorkspaces (in category 'private') -----
- openWelcomeWorkspaces
- TheWorldMainDockingBar instance
- showWelcomeText: #squeakUserInterface
- label: 'Squeak User Interface'
- in: (40 @ 40 extent: 500 @ 300).
- TheWorldMainDockingBar instance
- showWelcomeText: #workingWithSqueak
- label: 'Working With Squeak'
- in: (80 @ 80 extent: 500 @ 300).
- TheWorldMainDockingBar instance
- showWelcomeText: #licenseInformation
- label: 'License Information'
- in: (120 @ 120 extent: 500 @ 300).
- TheWorldMainDockingBar instance
- showWelcomeText: #welcomeFutureDirections
- label: 'Future Directions'
- in: (160 @ 160 extent: 500 @ 300).
- TheWorldMainDockingBar instance
- showWelcomeText: #welcomeToSqueak
- label: 'Welcome to Squeak 4.5'
- in: (200 @ 200 extent: 500 @ 300)!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot5 class>>prepareNewBuild (in category 'scripts') -----
- prepareNewBuild
- super prepareNewBuild.
- self loadWellKnownPackages.
- TextDomainManager clearAllDomains.
- MCMockPackageInfo initialize.
- Compiler recompileAll.!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot5 class>>releaseRepository (in category 'private') -----
- releaseRepository
- "At release time, change 'trunk' to 'squeak45'."
- ^ MCHttpRepository
- location: 'http://source.squeak.org/trunk'
- user: 'squeak'
- password: 'squeak'!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot5 class>>setDisplayExtent: (in category 'private') -----
- setDisplayExtent: extent
- "Uncomment next line when the primitives become available in the Squeak VM."
- " DisplayScreen hostWindowSize: extent."
- Display extent = extent ifFalse: [ Warning signal: 'Display extent not set to ', extent ]!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot5 class>>setPreferences (in category 'private') -----
- setPreferences
- Preferences
- installBrightWindowColors ;
- setPreference: #scrollBarsWithoutMenuButton toValue: true ;
- setPreference: #swapMouseButtons toValue: true ;
- setPreference: #annotationPanes toValue: true ;
- setPreference: #showSplitterHandles toValue: false ;
- setPreference: #showBoundsInHalo toValue: true ;
- setPreference: #alternateHandlesLook toValue: false ;
- setPreference: #roundedMenuCorners toValue: false ;
- setPreference: #roundedWindowCorners toValue: false.
- PluggableButtonMorph roundedButtonCorners: false.
- FillInTheBlankMorph roundedDialogCorners: false.
- Workspace shouldStyle: false.
- NetNameResolver enableIPv6: true.!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot5 class>>switchToNewRepository (in category 'private') -----
- switchToNewRepository
- | old44Repository |
- MCMcmUpdater defaultUpdateURL: self releaseRepository description.
- old44Repository := MCRepositoryGroup default repositories
- detect: [:each | each description includesSubString: 'squeak44'] ifNone: [nil].
- old44Repository
- ifNotNil: [MCRepositoryGroup default removeRepository: old44Repository].
- MCRepositoryGroup default addRepository: self releaseRepository!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot5 class>>versionString (in category 'private') -----
- versionString
- ^ 'Squeak4.5'.!
Item was removed:
- ReleaseBuilder subclass: #ReleaseBuilderNihongo
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'ReleaseBuilder'!
Item was removed:
- ----- Method: ReleaseBuilderNihongo>>release (in category 'release') -----
- release
- "self release"
-
- Utilities emptyScrapsBook.
-
- Display setExtent: 960@720 depth: 16.
- World color: (Color r: 0.935 g: 0.935 b: 0.935).
-
- "Preferences takanawa."
- Preferences setPreference: #magicHalos toValue: false.
- Preferences setPreference: #magicHalos toValue: true.
- Preferences setPreference: #mouseOverHalos toValue: false.
- Preferences setPreference: #mouseOverHalos toValue: true.
-
- Player abandonUnnecessaryUniclasses.
- Player freeUnreferencedSubclasses.
- Player removeUninstantiatedSubclassesSilently.
-
- PartsBin initialize.
- Flaps disableGlobalFlaps: false.
- Flaps addAndEnableEToyFlaps.
- ActiveWorld addGlobalFlaps.
- Flaps sharedFlapsAlongBottom.
-
- Locale currentPlatform: (Locale isoLanguage: 'ja').
- Locale switchToID: (LocaleID isoLanguage: 'ja').
- Preferences restoreDefaultFonts.
- StrikeFont setupDefaultFallbackFont.
- Project current updateLocaleDependents.
-
- "Dump all projects"
- Project allSubInstancesDo:[:prj| prj == Project current ifFalse:[Project deletingProject: prj]].
-
- ChangeSet current clear.
- ChangeSet current name: 'Unnamed1'.
- Smalltalk garbageCollect.
-
-
- !
Item was removed:
- ReleaseBuilder subclass: #ReleaseBuilderSqueakland
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'ReleaseBuilder'!
Item was removed:
- ----- Method: ReleaseBuilderSqueakland>>finalCleanup (in category 'utilities') -----
- finalCleanup
- "ReleaseBuilder new initialCleanup"
-
-
- Smalltalk abandonTempNames.
- Smalltalk zapAllOtherProjects.
-
- super finalCleanup!
Item was removed:
- ----- Method: ReleaseBuilderSqueakland>>finalStripping (in category 'utilities') -----
- finalStripping
- "ReleaseBuilderSqueakland new finalStripping"
-
- #(#Helvetica #Palatino #Courier #ComicSansMS )
- do: [:n | TextConstants
- removeKey: n
- ifAbsent: []].
- Smalltalk
- at: #Player
- ifPresent: [:superCls | superCls
- allSubclassesDo: [:cls |
- cls isSystemDefined
- ifFalse: [cls removeFromSystem]]].
- Smalltalk garbageCollect.
- Smalltalk discardFFI; discardSUnit; discardSpeech.
- "discardMVC;"
- SystemOrganization removeEmptyCategories.
- !
Item was removed:
- ----- Method: ReleaseBuilderSqueakland>>initialCleanup (in category 'utilities') -----
- initialCleanup
- "ReleaseBuilder new initialCleanup"
-
- Smalltalk at: #Browser ifPresent:[:br| br initialize].
- ChangeSet removeChangeSetsNamedSuchThat:
- [:cs| cs name ~= ChangeSet current name].
-
- super initialCleanup!
Item was removed:
- ----- Method: ReleaseBuilderSqueakland>>installPreferences (in category 'utilities') -----
- installPreferences
-
- #(
- (honorDesktopCmdKeys false)
- (warnIfNoChangesFile false)
- (warnIfNoSourcesFile false)
- (showDirectionForSketches true)
- (menuColorFromWorld false)
- (unlimitedPaintArea true)
- (useGlobalFlaps false)
- (mvcProjectsAllowed false)
- (projectViewsInWindows false)
- (automaticKeyGeneration true)
- (securityChecksEnabled true)
- (showSecurityStatus false)
- (startInUntrustedDirectory true)
- (warnAboutInsecureContent false)
- (promptForUpdateServer false)
- (fastDragWindowForMorphic false)
-
- (externalServerDefsOnly true)
- (expandedFormat false)
- (eToyFriendly true)
- (eToyLoginEnabled true)
- (magicHalos true)
- (mouseOverHalos true)
- (biggerHandles false)
- (selectiveHalos true)
- (includeSoundControlInNavigator true)
- (readDocumentAtStartup true)
- (preserveTrash true)
- (slideDismissalsToTrash true)
- (propertySheetFromHalo true)
-
- ) do:[:spec|
- Preferences setPreference: spec first toValue: spec last].
- "Workaround for bug"
- Preferences enable: #readDocumentAtStartup.
- !
Item was removed:
- ----- Method: ReleaseBuilderSqueakland>>installReleaseSpecifics (in category 'utilities') -----
- installReleaseSpecifics
- "ReleaseBuilderSqueakland new installReleaseSpecifics"
-
- | serverName serverURL serverDir updateServer |
-
- ProjectLauncher splashMorph: (FileDirectory default readOnlyFileNamed: 'scripts\SqueaklandSplash.morph') fileInObjectAndCode.
-
- "Dump all morphs so we don't hold onto anything"
- World submorphsDo:[:m| m delete].
-
- World color: (Color r: 0.9 g: 0.9 b: 1.0).
-
- "Clear all server entries"
- ServerDirectory serverNames do: [:each | ServerDirectory removeServerNamed: each].
- SystemVersion current resetHighestUpdate.
-
- "Add the squeakalpha update stream"
- serverName := 'Squeakalpha'.
- serverURL := 'squeakalpha.org'.
- serverDir := serverURL , '/'.
-
- updateServer := ServerDirectory new.
- updateServer
- server: serverURL;
- directory: 'updates/';
- altUrl: serverDir;
- user: 'sqland';
- password: nil.
- Utilities updateUrlLists addFirst: {serverName. {serverDir. }.}.
-
- "Add the squeakland update stream"
- serverName := 'Squeakland'.
- serverURL := 'squeakland.org'.
- serverDir := serverURL , '/'.
-
- updateServer := ServerDirectory new.
- updateServer
- server: serverURL;
- directory: 'public_html/updates/';
- altUrl: serverDir.
- Utilities updateUrlLists addFirst: {serverName. {serverDir. }.}.
-
- !
Item was removed:
- ----- Method: ReleaseBuilderSqueakland>>installVersionInfo (in category 'utilities') -----
- installVersionInfo
- "ReleaseBuilderSqueakland 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: 'Squeakland 3.8.' , highestUpdate printString.
- SystemVersion newVersion: newVersion.
- (self confirm: self version , '
- Is this the correct version designation?
- If not, choose no, and fix it.') ifFalse: [^ self].
- !
Item was removed:
- ----- Method: ReleaseBuilderSqueakland>>setupLanguageSpecifics (in category 'utilities') -----
- setupLanguageSpecifics
- "ReleaseBuilderSqueakland new setupLanguageSpecifics"
- Locale current languageEnvironment setupSqueaklandSpecifics!
1
0
Frank Shearar uploaded a new version of 45Deprecated to project The Trunk:
http://source.squeak.org/trunk/45Deprecated-fbs.2.mcz
==================== Summary ====================
Name: 45Deprecated-fbs.2
Author: fbs
Time: 2 May 2013, 10:48:54.126 pm
UUID: 929d7158-8a95-4cc2-a867-25158661ed87
Ancestors: 45Deprecated-fbs.1
The special purpose ReleaseBuilders here. Move all apparently unused instance-side ReleaseBuilder methods here.
=============== Diff against 45Deprecated-fbs.1 ===============
Item was added:
+ SystemOrganization addCategory: #'45Deprecated'!
Item was added:
+ ----- Method: ReleaseBuilder>>cleanUpChanges (in category '*45Deprecated-utilities') -----
+ cleanUpChanges
+ "Clean up the change sets"
+
+ "ReleaseBuilder 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 added:
+ ----- Method: ReleaseBuilder>>cleanUpEtoys (in category '*45Deprecated-utilities') -----
+ cleanUpEtoys
+ "ReleaseBuilder 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]!
Item was added:
+ ----- Method: ReleaseBuilder>>finalCleanup (in category '*45Deprecated-utilities') -----
+ finalCleanup
+ "ReleaseBuilder 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.
+ Symbol compactSymbolTable.!
Item was added:
+ ----- Method: ReleaseBuilder>>finalStripping (in category '*45Deprecated-utilities') -----
+ finalStripping
+ "ReleaseBuilder new finalStripping"
+ !
Item was added:
+ ----- Method: ReleaseBuilder>>fixObsoleteReferences (in category '*45Deprecated-utilities') -----
+ fixObsoleteReferences
+ "ReleaseBuilder 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 inspect]!
Item was added:
+ ----- Method: ReleaseBuilder>>initialCleanup (in category '*45Deprecated-utilities') -----
+ initialCleanup
+ "Perform various image cleanups in preparation for making a Squeak gamma release candidate image."
+ "ReleaseBuilder new initialCleanup"
+
+ Undeclared removeUnreferencedKeys.
+ StandardScriptingSystem initialize.
+
+ (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: 'Unnamed1'.
+ Smalltalk garbageCollect.
+
+ "Reinitialize DataStream; it may hold on to some zapped entitities"
+ DataStream initialize.
+
+ Smalltalk garbageCollect.
+ ScheduledControllers := nil.
+ Smalltalk garbageCollect.
+
+ SMSqueakMap default purge.
+
+ !
Item was added:
+ ----- Method: ReleaseBuilder>>installPreferences (in category '*45Deprecated-utilities') -----
+ installPreferences
+ Preferences initialize.
+ Preferences chooseInitialSettings.
+ !
Item was added:
+ ----- Method: ReleaseBuilder>>installReleaseSpecifics (in category '*45Deprecated-utilities') -----
+ installReleaseSpecifics
+ "ReleaseBuilder new installReleaseSpecifics"
+ !
Item was added:
+ ----- Method: ReleaseBuilder>>installVersionInfo (in category '*45Deprecated-utilities') -----
+ installVersionInfo
+ "ReleaseBuilder new installVersionInfo"
+ !
Item was added:
+ ----- Method: ReleaseBuilder>>makeSqueaklandRelease (in category '*45Deprecated-squeakland') -----
+ makeSqueaklandRelease
+ "ReleaseBuilder new makeSqueaklandRelease"
+
+ self
+ makeSqueaklandReleasePhasePrepare; makeSqueaklandReleasePhaseStripping; makeSqueaklandReleasePhaseFinalSettings; makeSqueaklandReleasePhaseCleanup!
Item was added:
+ ----- Method: ReleaseBuilder>>makeSqueaklandReleasePhaseCleanup (in category '*45Deprecated-squeakland') -----
+ makeSqueaklandReleasePhaseCleanup
+ "ReleaseBuilder new makeSqueaklandReleasePhaseCleanup"
+
+ Smalltalk at: #Browser ifPresent:[:br| br initialize].
+ ChangeSet
+ removeChangeSetsNamedSuchThat: [:cs | cs name ~= ChangeSet current name].
+ ChangeSet current clear.
+ ChangeSet current name: 'Unnamed1'.
+ Smalltalk garbageCollect.
+ "Reinitialize DataStream; it may hold on to some zapped entitities"
+ DataStream initialize.
+ "Remove existing player references"
+ References keys do: [:k | References removeKey: k].
+ Smalltalk garbageCollect.
+ ScheduledControllers := nil.
+ Behavior flushObsoleteSubclasses.
+ Smalltalk
+ garbageCollect;
+ garbageCollect.
+ SystemNavigation default obsoleteBehaviors isEmpty
+ ifFalse: [self error: 'Still have obsolete behaviors'].
+
+ "Reinitialize DataStream; it may hold on to some zapped entitities"
+ DataStream initialize.
+ Smalltalk fixObsoleteReferences.
+ Smalltalk abandonTempNames.
+ Smalltalk zapAllOtherProjects.
+ Smalltalk flushClassNameCache.
+ Symbol compactSymbolTable!
Item was added:
+ ----- Method: ReleaseBuilder>>makeSqueaklandReleasePhaseFinalSettings (in category '*45Deprecated-squeakland') -----
+ makeSqueaklandReleasePhaseFinalSettings
+ "ReleaseBuilder new makeSqueaklandReleasePhaseFinalSettings"
+
+ | serverName serverURL serverDir updateServer highestUpdate newVersion |
+
+ ProjectLauncher splashMorph: (FileDirectory default readOnlyFileNamed: 'scripts\SqueaklandSplash.morph') fileInObjectAndCode.
+
+ "Dump all morphs so we don't hold onto anything"
+ World submorphsDo:[:m| m delete].
+
+ #(
+ (honorDesktopCmdKeys false)
+ (warnIfNoChangesFile false)
+ (warnIfNoSourcesFile false)
+ (showDirectionForSketches true)
+ (menuColorFromWorld false)
+ (unlimitedPaintArea true)
+ (useGlobalFlaps false)
+ (mvcProjectsAllowed false)
+ (projectViewsInWindows false)
+ (automaticKeyGeneration true)
+ (securityChecksEnabled true)
+ (showSecurityStatus false)
+ (startInUntrustedDirectory true)
+ (warnAboutInsecureContent false)
+ (promptForUpdateServer false)
+ (fastDragWindowForMorphic false)
+
+ (externalServerDefsOnly true)
+ (expandedFormat false)
+ (eToyFriendly true)
+ (eToyLoginEnabled true)
+ (magicHalos true)
+ (mouseOverHalos true)
+ (biggerHandles false)
+ (selectiveHalos true)
+ (includeSoundControlInNavigator true)
+ (readDocumentAtStartup true)
+ (preserveTrash true)
+ (slideDismissalsToTrash true)
+
+ ) do:[:spec|
+ Preferences setPreference: spec first toValue: spec last].
+ "Workaround for bug"
+ Preferences enable: #readDocumentAtStartup.
+
+ World color: (Color r: 0.9 g: 0.9 b: 1.0).
+
+ "Clear all server entries"
+ ServerDirectory serverNames do: [:each | ServerDirectory removeServerNamed: each].
+ SystemVersion current resetHighestUpdate.
+
+ "Add the squeakalpha update stream"
+ serverName := 'Squeakalpha'.
+ serverURL := 'squeakalpha.org'.
+ serverDir := serverURL , '/'.
+
+ updateServer := ServerDirectory new.
+ updateServer
+ server: serverURL;
+ directory: 'updates/';
+ altUrl: serverDir;
+ user: 'sqland';
+ password: nil.
+ Utilities updateUrlLists addFirst: {serverName. {serverDir. }.}.
+
+ "Add the squeakland update stream"
+ serverName := 'Squeakland'.
+ serverURL := 'squeakland.org'.
+ serverDir := serverURL , '/'.
+
+ updateServer := ServerDirectory new.
+ updateServer
+ server: serverURL;
+ directory: 'public_html/updates/';
+ altUrl: serverDir.
+ Utilities updateUrlLists addFirst: {serverName. {serverDir. }.}.
+
+ highestUpdate := SystemVersion current highestUpdate.
+ (self confirm: 'Reset highest update (' , highestUpdate printString , ')?')
+ ifTrue: [SystemVersion current highestUpdate: 0].
+
+ newVersion := UIManager default request: 'New version designation:' initialAnswer: 'Squeakland 3.8.' , highestUpdate printString.
+ SystemVersion newVersion: newVersion.
+ (self confirm: self version , '
+ Is this the correct version designation?
+ If not, choose no, and fix it.') ifFalse: [^ self].
+ !
Item was added:
+ ----- Method: ReleaseBuilder>>makeSqueaklandReleasePhasePrepare (in category '*45Deprecated-squeakland') -----
+ makeSqueaklandReleasePhasePrepare
+ "ReleaseBuilder new makeSqueaklandReleasePhasePrepare"
+
+ Undeclared removeUnreferencedKeys.
+ StandardScriptingSystem initialize.
+ Preferences initialize.
+ "(Object classPool at: #DependentsFields) size > 1 ifTrue: [self error:'Still have dependents']."
+ Undeclared isEmpty ifFalse: [self error:'Please clean out Undeclared'].
+
+ "Dump all projects"
+ Project allSubInstancesDo:[:prj| prj == Project current ifFalse:[Project deletingProject: prj]].
+
+ "Set new look so we don't need older fonts later"
+ StandardScriptingSystem applyNewEToyLook.
+
+ Smalltalk at: #Browser ifPresent:[:br| br initialize].
+ ScriptingSystem deletePrivateGraphics.
+ ChangeSet removeChangeSetsNamedSuchThat:
+ [:cs| cs name ~= ChangeSet current name].
+ ChangeSet current clear.
+ ChangeSet current name: 'Unnamed1'.
+ Smalltalk garbageCollect.
+ "Reinitialize DataStream; it may hold on to some zapped entitities"
+ DataStream initialize.
+ "Remove existing player references"
+ References keys do:[:k| References removeKey: k].
+
+ Smalltalk garbageCollect.
+ ScheduledControllers := nil.
+ Smalltalk garbageCollect.
+ !
Item was added:
+ ----- Method: ReleaseBuilder>>makeSqueaklandReleasePhaseStripping (in category '*45Deprecated-squeakland') -----
+ makeSqueaklandReleasePhaseStripping
+ "ReleaseBuilder new makeSqueaklandReleasePhaseStripping"
+
+ #(#Helvetica #Palatino #Courier #ComicSansMS )
+ do: [:n | TextConstants
+ removeKey: n
+ ifAbsent: []].
+ Smalltalk
+ at: #Player
+ ifPresent: [:superCls | superCls
+ allSubclassesDo: [:cls |
+ cls isSystemDefined
+ ifFalse: [cls removeFromSystem]]].
+ Smalltalk garbageCollect.
+ Smalltalk discardFFI; discardSUnit; discardSpeech.
+ "discardMVC;"
+ SystemOrganization removeEmptyCategories.
+ Smalltalk garbageCollect.
+ ScheduledControllers := nil.
+ Behavior flushObsoleteSubclasses.
+ Smalltalk garbageCollect; garbageCollect.
+ DataStream initialize.
+ Smalltalk fixObsoleteReferences!
Item was added:
+ ----- Method: ReleaseBuilder>>prepareReleaseImage (in category '*45Deprecated-utilities') -----
+ prepareReleaseImage
+ "Perform various image cleanups in preparation for making a Squeak gamma release candidate image."
+ "ReleaseBuilder 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
+ initialCleanup;
+ installPreferences;
+ finalStripping;
+ installReleaseSpecifics;
+ finalCleanup;
+ installVersionInfo
+ !
Item was added:
+ ReleaseBuilder subclass: #ReleaseBuilderDeveloper
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: '45Deprecated'!
+
+ !ReleaseBuilderDeveloper commentStamp: 'gk 2/28/2005 13:27' prior: 0!
+ This release builder subclass is used for the official Squeak distribution Basic, which currently is the base image of Squeak.
+ Full is then built on top of Basic using a loadscript from SqueakMap. Minimal is constructed using another script from SqueakMap that removes packages that are included in Basic.!
Item was added:
+ ----- Method: ReleaseBuilderDeveloper>>cleanUpChanges (in category 'utilities') -----
+ cleanUpChanges
+ "Clean up the change sets"
+
+ "ReleaseBuilderDeveloper new cleanUpChanges"
+
+ !
Item was added:
+ ----- Method: ReleaseBuilderDeveloper>>installPreferences (in category 'utilities') -----
+ installPreferences
+ super installPreferences.
+ #(
+ (updateFromServerAtStartup true)
+
+ ) do:[:spec|
+ Preferences setPreference: spec first toValue: spec last]!
Item was added:
+ ----- Method: ReleaseBuilderDeveloper>>installReleaseSpecifics (in category 'utilities') -----
+ installReleaseSpecifics
+ "Currently just clear and add the ServerDirectories
+ and update streams we want as default."
+
+ "Clear all server entries"
+ ServerDirectory serverNames do: [:each | ServerDirectory removeServerNamed: each].
+
+ "Add default entries, added an entry for the new file area.
+ The others are the current ones that see to work
+ as of 2005-02-28 and I recreated them using source."
+ ServerDirectory addServer: (ServerDirectory new
+ type: #ftp;
+ user: '';
+ server: 'box1.squeakfoundation.org';
+ altUrl: 'http://box1.squeakfoundation.org/files';
+ directory: 'files';
+ keepAlive: false) named: 'Squeak.org Archive'.
+ ServerDirectory addServer: (ServerDirectory new
+ type: #ftp;
+ server: 'st.cs.uiuc.edu';
+ user: 'anonymous';
+ directory: '/Smalltalk/Squeak';
+ keepAlive: false) named: 'UIUC Archive'.
+ ServerDirectory addServer: (ServerDirectory new
+ type: #ftp;
+ server: 'ftp.create.ucsb.edu';
+ user: 'anonymous';
+ directory: '/pub/Smalltalk/Squeak';
+ keepAlive: false) named: 'UCSBCreate Archive'.
+ ServerDirectory addServer: SuperSwikiServer defaultSuperSwiki named: 'Bob SuperSwiki'.
+ ServerDirectory addServer: (SuperSwikiServer new
+ type: #http;
+ server: 'squeakland.org:8080';
+ altUrl: 'http://www.squeakland.org/uploads';
+ directory: '/super/SuperSwikiProj';
+ keepAlive: false;
+ acceptsUploads: true) named: 'Squeakland SuperSwiki'.
+ ServerDirectory addServer: (HTTPServerDirectory new
+ type: #ftp;
+ user: 'sqland';
+ server: 'www.squeakland.org';
+ altUrl: 'http://www.squeakland.org/projects';
+ directory: 'projects';
+ keepAlive: false) named: 'Squeakland Projects'.
+
+ "Add the update streams here just as Squeakland does?
+ serverName := 'Squeakland'.
+ serverURL := 'squeakland.org'.
+ serverDir := serverURL , '/'.
+ updateServer := ServerDirectory new.
+ updateServer
+ server: serverURL;
+ directory: 'public:=html/updates/';
+ altUrl: serverDir.
+ Utilities updateUrlLists addFirst: {serverName. {serverDir. }.}.
+ "
+ !
Item was added:
+ ReleaseBuilder subclass: #ReleaseBuilderNihongo
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: '45Deprecated'!
Item was added:
+ ----- Method: ReleaseBuilderNihongo>>release (in category 'release') -----
+ release
+ "self release"
+
+ Utilities emptyScrapsBook.
+
+ Display setExtent: 960@720 depth: 16.
+ World color: (Color r: 0.935 g: 0.935 b: 0.935).
+
+ "Preferences takanawa."
+ Preferences setPreference: #magicHalos toValue: false.
+ Preferences setPreference: #magicHalos toValue: true.
+ Preferences setPreference: #mouseOverHalos toValue: false.
+ Preferences setPreference: #mouseOverHalos toValue: true.
+
+ Player abandonUnnecessaryUniclasses.
+ Player freeUnreferencedSubclasses.
+ Player removeUninstantiatedSubclassesSilently.
+
+ PartsBin initialize.
+ Flaps disableGlobalFlaps: false.
+ Flaps addAndEnableEToyFlaps.
+ ActiveWorld addGlobalFlaps.
+ Flaps sharedFlapsAlongBottom.
+
+ Locale currentPlatform: (Locale isoLanguage: 'ja').
+ Locale switchToID: (LocaleID isoLanguage: 'ja').
+ Preferences restoreDefaultFonts.
+ StrikeFont setupDefaultFallbackFont.
+ Project current updateLocaleDependents.
+
+ "Dump all projects"
+ Project allSubInstancesDo:[:prj| prj == Project current ifFalse:[Project deletingProject: prj]].
+
+ ChangeSet current clear.
+ ChangeSet current name: 'Unnamed1'.
+ Smalltalk garbageCollect.
+
+
+ !
Item was added:
+ ReleaseBuilder subclass: #ReleaseBuilderSqueakland
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: '45Deprecated'!
Item was added:
+ ----- Method: ReleaseBuilderSqueakland>>finalCleanup (in category 'utilities') -----
+ finalCleanup
+ "ReleaseBuilder new initialCleanup"
+
+
+ Smalltalk abandonTempNames.
+ Smalltalk zapAllOtherProjects.
+
+ super finalCleanup!
Item was added:
+ ----- Method: ReleaseBuilderSqueakland>>finalStripping (in category 'utilities') -----
+ finalStripping
+ "ReleaseBuilderSqueakland new finalStripping"
+
+ #(#Helvetica #Palatino #Courier #ComicSansMS )
+ do: [:n | TextConstants
+ removeKey: n
+ ifAbsent: []].
+ Smalltalk
+ at: #Player
+ ifPresent: [:superCls | superCls
+ allSubclassesDo: [:cls |
+ cls isSystemDefined
+ ifFalse: [cls removeFromSystem]]].
+ Smalltalk garbageCollect.
+ Smalltalk discardFFI; discardSUnit; discardSpeech.
+ "discardMVC;"
+ SystemOrganization removeEmptyCategories.
+ !
Item was added:
+ ----- Method: ReleaseBuilderSqueakland>>initialCleanup (in category 'utilities') -----
+ initialCleanup
+ "ReleaseBuilder new initialCleanup"
+
+ Smalltalk at: #Browser ifPresent:[:br| br initialize].
+ ChangeSet removeChangeSetsNamedSuchThat:
+ [:cs| cs name ~= ChangeSet current name].
+
+ super initialCleanup!
Item was added:
+ ----- Method: ReleaseBuilderSqueakland>>installPreferences (in category 'utilities') -----
+ installPreferences
+
+ #(
+ (honorDesktopCmdKeys false)
+ (warnIfNoChangesFile false)
+ (warnIfNoSourcesFile false)
+ (showDirectionForSketches true)
+ (menuColorFromWorld false)
+ (unlimitedPaintArea true)
+ (useGlobalFlaps false)
+ (mvcProjectsAllowed false)
+ (projectViewsInWindows false)
+ (automaticKeyGeneration true)
+ (securityChecksEnabled true)
+ (showSecurityStatus false)
+ (startInUntrustedDirectory true)
+ (warnAboutInsecureContent false)
+ (promptForUpdateServer false)
+ (fastDragWindowForMorphic false)
+
+ (externalServerDefsOnly true)
+ (expandedFormat false)
+ (eToyFriendly true)
+ (eToyLoginEnabled true)
+ (magicHalos true)
+ (mouseOverHalos true)
+ (biggerHandles false)
+ (selectiveHalos true)
+ (includeSoundControlInNavigator true)
+ (readDocumentAtStartup true)
+ (preserveTrash true)
+ (slideDismissalsToTrash true)
+ (propertySheetFromHalo true)
+
+ ) do:[:spec|
+ Preferences setPreference: spec first toValue: spec last].
+ "Workaround for bug"
+ Preferences enable: #readDocumentAtStartup.
+ !
Item was added:
+ ----- Method: ReleaseBuilderSqueakland>>installReleaseSpecifics (in category 'utilities') -----
+ installReleaseSpecifics
+ "ReleaseBuilderSqueakland new installReleaseSpecifics"
+
+ | serverName serverURL serverDir updateServer |
+
+ ProjectLauncher splashMorph: (FileDirectory default readOnlyFileNamed: 'scripts\SqueaklandSplash.morph') fileInObjectAndCode.
+
+ "Dump all morphs so we don't hold onto anything"
+ World submorphsDo:[:m| m delete].
+
+ World color: (Color r: 0.9 g: 0.9 b: 1.0).
+
+ "Clear all server entries"
+ ServerDirectory serverNames do: [:each | ServerDirectory removeServerNamed: each].
+ SystemVersion current resetHighestUpdate.
+
+ "Add the squeakalpha update stream"
+ serverName := 'Squeakalpha'.
+ serverURL := 'squeakalpha.org'.
+ serverDir := serverURL , '/'.
+
+ updateServer := ServerDirectory new.
+ updateServer
+ server: serverURL;
+ directory: 'updates/';
+ altUrl: serverDir;
+ user: 'sqland';
+ password: nil.
+ Utilities updateUrlLists addFirst: {serverName. {serverDir. }.}.
+
+ "Add the squeakland update stream"
+ serverName := 'Squeakland'.
+ serverURL := 'squeakland.org'.
+ serverDir := serverURL , '/'.
+
+ updateServer := ServerDirectory new.
+ updateServer
+ server: serverURL;
+ directory: 'public_html/updates/';
+ altUrl: serverDir.
+ Utilities updateUrlLists addFirst: {serverName. {serverDir. }.}.
+
+ !
Item was added:
+ ----- Method: ReleaseBuilderSqueakland>>installVersionInfo (in category 'utilities') -----
+ installVersionInfo
+ "ReleaseBuilderSqueakland 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: 'Squeakland 3.8.' , highestUpdate printString.
+ SystemVersion newVersion: newVersion.
+ (self confirm: self version , '
+ Is this the correct version designation?
+ If not, choose no, and fix it.') ifFalse: [^ self].
+ !
Item was added:
+ ----- Method: ReleaseBuilderSqueakland>>setupLanguageSpecifics (in category 'utilities') -----
+ setupLanguageSpecifics
+ "ReleaseBuilderSqueakland new setupLanguageSpecifics"
+ Locale current languageEnvironment setupSqueaklandSpecifics!
1
0
Frank Shearar uploaded a new version of ReleaseBuilder to project The Trunk:
http://source.squeak.org/trunk/ReleaseBuilder-fbs.96.mcz
==================== Summary ====================
Name: ReleaseBuilder-fbs.96
Author: fbs
Time: 2 May 2013, 10:47:53.918 pm
UUID: 51612e6c-fec4-4b99-bb3f-d6b5d51bb61f
Ancestors: ReleaseBuilder-fbs.95
Delete all obsolete ReleaseBuilders. Move the special-case builders - Nihongo, Squeakland - to 45Deprecated. (They're not deprecated as such, but they don't belong in trunk.)
=============== Diff against ReleaseBuilder-fbs.95 ===============
Item was changed:
Object subclass: #ReleaseBuilder
instanceVariableNames: ''
classVariableNames: ''
poolDictionaries: ''
category: 'ReleaseBuilder'!
+ !ReleaseBuilder commentStamp: 'fbs 5/2/2013 22:36' prior: 0!
+ I'm the script that prepares a trunk image for release. Which version of Squeak I release is stored in ReleaseBuilder class >> squeakVersion.!
- !ReleaseBuilder commentStamp: 'bp 12/4/2009 10:39' prior: 0!
- I'm responsible to help people releasing various distributions of Squeak.!
Item was added:
+ ----- Method: ReleaseBuilder class>>loadWellKnownPackages (in category 'private') -----
+ loadWellKnownPackages
+ "Load into the release image those packages that have been stripped from Trunk, but still deemed necessary for a release artifact."
+ #('311Deprecated'
+ '39Deprecated'
+ '45Deprecated'
+ 'Nebraska'
+ 'Universes'
+ 'XML-Parser') do: [:pkgName |
+ Installer squeak
+ project: 'trunk';
+ install: pkgName].!
Item was added:
+ ----- Method: ReleaseBuilder class>>openWelcomeWorkspaces (in category 'private') -----
+ openWelcomeWorkspaces
+ TheWorldMainDockingBar instance
+ showWelcomeText: #squeakUserInterface
+ label: 'Squeak User Interface'
+ in: (40 @ 40 extent: 500 @ 300).
+ TheWorldMainDockingBar instance
+ showWelcomeText: #workingWithSqueak
+ label: 'Working With Squeak'
+ in: (80 @ 80 extent: 500 @ 300).
+ TheWorldMainDockingBar instance
+ showWelcomeText: #licenseInformation
+ label: 'License Information'
+ in: (120 @ 120 extent: 500 @ 300).
+ TheWorldMainDockingBar instance
+ showWelcomeText: #welcomeFutureDirections
+ label: 'Future Directions'
+ in: (160 @ 160 extent: 500 @ 300).
+ TheWorldMainDockingBar instance
+ showWelcomeText: #welcomeToSqueak
+ label: 'Welcome to Squeak 4.5'
+ in: (200 @ 200 extent: 500 @ 300)!
Item was changed:
----- Method: ReleaseBuilder class>>prepareNewBuild (in category 'scripts') -----
prepareNewBuild
"ReleaseBuilderTrunk prepareNewBuild"
"Prepare everything that should be done for a new image build"
TTCFont registerAll.
RealEstateAgent standardSize: 600@400.
SystemVersion newVersion: self versionString.
SMLoaderPlus
setDefaultFilters: (OrderedCollection with: #filterSafelyAvailable).
self setDisplayExtent: 800 @ 600;
setPreferences;
switchToNewRepository;
openWelcomeWorkspaces.
"Make DependencyBrowser accessible on the open menu."
DependencyBrowser initialize.
self cleanPackages.
Smalltalk cleanUp: true except: #() confirming: false.
Undeclared removeUnreferencedKeys.
+ Smalltalk garbageCollect.
+ self loadWellKnownPackages.
+ TextDomainManager clearAllDomains.
+ MCMockPackageInfo initialize.
+ Compiler recompileAll.!
- Smalltalk garbageCollect!
Item was added:
+ ----- Method: ReleaseBuilder class>>releaseRepository (in category 'private') -----
+ releaseRepository
+ "At release time, change 'trunk' to 'squeak45'."
+ ^ MCHttpRepository
+ location: 'http://source.squeak.org/trunk'
+ user: 'squeak'
+ password: 'squeak'!
Item was added:
+ ----- Method: ReleaseBuilder class>>setDisplayExtent: (in category 'private') -----
+ setDisplayExtent: extent
+ "Uncomment next line when the primitives become available in the Squeak VM."
+ " DisplayScreen hostWindowSize: extent."
+ Display extent = extent ifFalse: [ Warning signal: 'Display extent not set to ', extent ]!
Item was added:
+ ----- Method: ReleaseBuilder class>>setPreferences (in category 'private') -----
+ setPreferences
+ Preferences
+ installBrightWindowColors ;
+ setPreference: #scrollBarsWithoutMenuButton toValue: true ;
+ setPreference: #swapMouseButtons toValue: true ;
+ setPreference: #annotationPanes toValue: true ;
+ setPreference: #showSplitterHandles toValue: false ;
+ setPreference: #showBoundsInHalo toValue: true ;
+ setPreference: #alternateHandlesLook toValue: false ;
+ setPreference: #roundedMenuCorners toValue: false ;
+ setPreference: #roundedWindowCorners toValue: false.
+ PluggableButtonMorph roundedButtonCorners: false.
+ FillInTheBlankMorph roundedDialogCorners: false.
+ Workspace shouldStyle: false.
+ NetNameResolver enableIPv6: true.!
Item was changed:
----- Method: ReleaseBuilder class>>switchToNewRepository (in category 'private') -----
switchToNewRepository
+ | old44Repository |
+ MCMcmUpdater defaultUpdateURL: self releaseRepository description.
+ old44Repository := MCRepositoryGroup default repositories
+ detect: [:each | each description includesSubString: 'squeak44'] ifNone: [nil].
+ old44Repository
+ ifNotNil: [MCRepositoryGroup default removeRepository: old44Repository].
+ MCRepositoryGroup default addRepository: self releaseRepository!
- self subclassResponsibility!
Item was added:
+ ----- Method: ReleaseBuilder class>>versionString (in category 'private') -----
+ versionString
+ ^ 'Squeak4.5'.!
Item was removed:
- ----- Method: ReleaseBuilder>>cleanUpChanges (in category 'utilities') -----
- cleanUpChanges
- "Clean up the change sets"
-
- "ReleaseBuilder 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: ReleaseBuilder>>cleanUpEtoys (in category 'utilities') -----
- cleanUpEtoys
- "ReleaseBuilder 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]!
Item was removed:
- ----- Method: ReleaseBuilder>>finalCleanup (in category 'utilities') -----
- finalCleanup
- "ReleaseBuilder 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.
- Symbol compactSymbolTable.!
Item was removed:
- ----- Method: ReleaseBuilder>>finalStripping (in category 'utilities') -----
- finalStripping
- "ReleaseBuilder new finalStripping"
- !
Item was removed:
- ----- Method: ReleaseBuilder>>fixObsoleteReferences (in category 'utilities') -----
- fixObsoleteReferences
- "ReleaseBuilder 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 inspect]!
Item was removed:
- ----- Method: ReleaseBuilder>>initialCleanup (in category 'utilities') -----
- initialCleanup
- "Perform various image cleanups in preparation for making a Squeak gamma release candidate image."
- "ReleaseBuilder new initialCleanup"
-
- Undeclared removeUnreferencedKeys.
- StandardScriptingSystem initialize.
-
- (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: 'Unnamed1'.
- Smalltalk garbageCollect.
-
- "Reinitialize DataStream; it may hold on to some zapped entitities"
- DataStream initialize.
-
- Smalltalk garbageCollect.
- ScheduledControllers := nil.
- Smalltalk garbageCollect.
-
- SMSqueakMap default purge.
-
- !
Item was removed:
- ----- Method: ReleaseBuilder>>installPreferences (in category 'utilities') -----
- installPreferences
- Preferences initialize.
- Preferences chooseInitialSettings.
- !
Item was removed:
- ----- Method: ReleaseBuilder>>installReleaseSpecifics (in category 'utilities') -----
- installReleaseSpecifics
- "ReleaseBuilder new installReleaseSpecifics"
- !
Item was removed:
- ----- Method: ReleaseBuilder>>installVersionInfo (in category 'utilities') -----
- installVersionInfo
- "ReleaseBuilder new installVersionInfo"
- !
Item was removed:
- ----- Method: ReleaseBuilder>>makeSqueaklandRelease (in category 'squeakland') -----
- makeSqueaklandRelease
- "ReleaseBuilder new makeSqueaklandRelease"
-
- self
- makeSqueaklandReleasePhasePrepare; makeSqueaklandReleasePhaseStripping; makeSqueaklandReleasePhaseFinalSettings; makeSqueaklandReleasePhaseCleanup!
Item was removed:
- ----- Method: ReleaseBuilder>>makeSqueaklandReleasePhaseCleanup (in category 'squeakland') -----
- makeSqueaklandReleasePhaseCleanup
- "ReleaseBuilder new makeSqueaklandReleasePhaseCleanup"
-
- Smalltalk at: #Browser ifPresent:[:br| br initialize].
- ChangeSet
- removeChangeSetsNamedSuchThat: [:cs | cs name ~= ChangeSet current name].
- ChangeSet current clear.
- ChangeSet current name: 'Unnamed1'.
- Smalltalk garbageCollect.
- "Reinitialize DataStream; it may hold on to some zapped entitities"
- DataStream initialize.
- "Remove existing player references"
- References keys do: [:k | References removeKey: k].
- Smalltalk garbageCollect.
- ScheduledControllers := nil.
- Behavior flushObsoleteSubclasses.
- Smalltalk
- garbageCollect;
- garbageCollect.
- SystemNavigation default obsoleteBehaviors isEmpty
- ifFalse: [self error: 'Still have obsolete behaviors'].
-
- "Reinitialize DataStream; it may hold on to some zapped entitities"
- DataStream initialize.
- Smalltalk fixObsoleteReferences.
- Smalltalk abandonTempNames.
- Smalltalk zapAllOtherProjects.
- Smalltalk flushClassNameCache.
- Symbol compactSymbolTable!
Item was removed:
- ----- Method: ReleaseBuilder>>makeSqueaklandReleasePhaseFinalSettings (in category 'squeakland') -----
- makeSqueaklandReleasePhaseFinalSettings
- "ReleaseBuilder new makeSqueaklandReleasePhaseFinalSettings"
-
- | serverName serverURL serverDir updateServer highestUpdate newVersion |
-
- ProjectLauncher splashMorph: (FileDirectory default readOnlyFileNamed: 'scripts\SqueaklandSplash.morph') fileInObjectAndCode.
-
- "Dump all morphs so we don't hold onto anything"
- World submorphsDo:[:m| m delete].
-
- #(
- (honorDesktopCmdKeys false)
- (warnIfNoChangesFile false)
- (warnIfNoSourcesFile false)
- (showDirectionForSketches true)
- (menuColorFromWorld false)
- (unlimitedPaintArea true)
- (useGlobalFlaps false)
- (mvcProjectsAllowed false)
- (projectViewsInWindows false)
- (automaticKeyGeneration true)
- (securityChecksEnabled true)
- (showSecurityStatus false)
- (startInUntrustedDirectory true)
- (warnAboutInsecureContent false)
- (promptForUpdateServer false)
- (fastDragWindowForMorphic false)
-
- (externalServerDefsOnly true)
- (expandedFormat false)
- (eToyFriendly true)
- (eToyLoginEnabled true)
- (magicHalos true)
- (mouseOverHalos true)
- (biggerHandles false)
- (selectiveHalos true)
- (includeSoundControlInNavigator true)
- (readDocumentAtStartup true)
- (preserveTrash true)
- (slideDismissalsToTrash true)
-
- ) do:[:spec|
- Preferences setPreference: spec first toValue: spec last].
- "Workaround for bug"
- Preferences enable: #readDocumentAtStartup.
-
- World color: (Color r: 0.9 g: 0.9 b: 1.0).
-
- "Clear all server entries"
- ServerDirectory serverNames do: [:each | ServerDirectory removeServerNamed: each].
- SystemVersion current resetHighestUpdate.
-
- "Add the squeakalpha update stream"
- serverName := 'Squeakalpha'.
- serverURL := 'squeakalpha.org'.
- serverDir := serverURL , '/'.
-
- updateServer := ServerDirectory new.
- updateServer
- server: serverURL;
- directory: 'updates/';
- altUrl: serverDir;
- user: 'sqland';
- password: nil.
- Utilities updateUrlLists addFirst: {serverName. {serverDir. }.}.
-
- "Add the squeakland update stream"
- serverName := 'Squeakland'.
- serverURL := 'squeakland.org'.
- serverDir := serverURL , '/'.
-
- updateServer := ServerDirectory new.
- updateServer
- server: serverURL;
- directory: 'public_html/updates/';
- altUrl: serverDir.
- Utilities updateUrlLists addFirst: {serverName. {serverDir. }.}.
-
- highestUpdate := SystemVersion current highestUpdate.
- (self confirm: 'Reset highest update (' , highestUpdate printString , ')?')
- ifTrue: [SystemVersion current highestUpdate: 0].
-
- newVersion := UIManager default request: 'New version designation:' initialAnswer: 'Squeakland 3.8.' , highestUpdate printString.
- SystemVersion newVersion: newVersion.
- (self confirm: self version , '
- Is this the correct version designation?
- If not, choose no, and fix it.') ifFalse: [^ self].
- !
Item was removed:
- ----- Method: ReleaseBuilder>>makeSqueaklandReleasePhasePrepare (in category 'squeakland') -----
- makeSqueaklandReleasePhasePrepare
- "ReleaseBuilder new makeSqueaklandReleasePhasePrepare"
-
- Undeclared removeUnreferencedKeys.
- StandardScriptingSystem initialize.
- Preferences initialize.
- "(Object classPool at: #DependentsFields) size > 1 ifTrue: [self error:'Still have dependents']."
- Undeclared isEmpty ifFalse: [self error:'Please clean out Undeclared'].
-
- "Dump all projects"
- Project allSubInstancesDo:[:prj| prj == Project current ifFalse:[Project deletingProject: prj]].
-
- "Set new look so we don't need older fonts later"
- StandardScriptingSystem applyNewEToyLook.
-
- Smalltalk at: #Browser ifPresent:[:br| br initialize].
- ScriptingSystem deletePrivateGraphics.
- ChangeSet removeChangeSetsNamedSuchThat:
- [:cs| cs name ~= ChangeSet current name].
- ChangeSet current clear.
- ChangeSet current name: 'Unnamed1'.
- Smalltalk garbageCollect.
- "Reinitialize DataStream; it may hold on to some zapped entitities"
- DataStream initialize.
- "Remove existing player references"
- References keys do:[:k| References removeKey: k].
-
- Smalltalk garbageCollect.
- ScheduledControllers := nil.
- Smalltalk garbageCollect.
- !
Item was removed:
- ----- Method: ReleaseBuilder>>makeSqueaklandReleasePhaseStripping (in category 'squeakland') -----
- makeSqueaklandReleasePhaseStripping
- "ReleaseBuilder new makeSqueaklandReleasePhaseStripping"
-
- #(#Helvetica #Palatino #Courier #ComicSansMS )
- do: [:n | TextConstants
- removeKey: n
- ifAbsent: []].
- Smalltalk
- at: #Player
- ifPresent: [:superCls | superCls
- allSubclassesDo: [:cls |
- cls isSystemDefined
- ifFalse: [cls removeFromSystem]]].
- Smalltalk garbageCollect.
- Smalltalk discardFFI; discardSUnit; discardSpeech.
- "discardMVC;"
- SystemOrganization removeEmptyCategories.
- Smalltalk garbageCollect.
- ScheduledControllers := nil.
- Behavior flushObsoleteSubclasses.
- Smalltalk garbageCollect; garbageCollect.
- DataStream initialize.
- Smalltalk fixObsoleteReferences!
Item was removed:
- ----- Method: ReleaseBuilder>>prepareReleaseImage (in category 'utilities') -----
- prepareReleaseImage
- "Perform various image cleanups in preparation for making a Squeak gamma release candidate image."
- "ReleaseBuilder 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
- initialCleanup;
- installPreferences;
- finalStripping;
- installReleaseSpecifics;
- finalCleanup;
- installVersionInfo
- !
Item was removed:
- ReleaseBuilder subclass: #ReleaseBuilderDeveloper
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'ReleaseBuilder'!
-
- !ReleaseBuilderDeveloper commentStamp: 'gk 2/28/2005 13:27' prior: 0!
- This release builder subclass is used for the official Squeak distribution Basic, which currently is the base image of Squeak.
- Full is then built on top of Basic using a loadscript from SqueakMap. Minimal is constructed using another script from SqueakMap that removes packages that are included in Basic.!
Item was removed:
- ----- Method: ReleaseBuilderDeveloper>>cleanUpChanges (in category 'utilities') -----
- cleanUpChanges
- "Clean up the change sets"
-
- "ReleaseBuilderDeveloper new cleanUpChanges"
-
- !
Item was removed:
- ----- Method: ReleaseBuilderDeveloper>>installPreferences (in category 'utilities') -----
- installPreferences
- super installPreferences.
- #(
- (updateFromServerAtStartup true)
-
- ) do:[:spec|
- Preferences setPreference: spec first toValue: spec last]!
Item was removed:
- ----- Method: ReleaseBuilderDeveloper>>installReleaseSpecifics (in category 'utilities') -----
- installReleaseSpecifics
- "Currently just clear and add the ServerDirectories
- and update streams we want as default."
-
- "Clear all server entries"
- ServerDirectory serverNames do: [:each | ServerDirectory removeServerNamed: each].
-
- "Add default entries, added an entry for the new file area.
- The others are the current ones that see to work
- as of 2005-02-28 and I recreated them using source."
- ServerDirectory addServer: (ServerDirectory new
- type: #ftp;
- user: '';
- server: 'box1.squeakfoundation.org';
- altUrl: 'http://box1.squeakfoundation.org/files';
- directory: 'files';
- keepAlive: false) named: 'Squeak.org Archive'.
- ServerDirectory addServer: (ServerDirectory new
- type: #ftp;
- server: 'st.cs.uiuc.edu';
- user: 'anonymous';
- directory: '/Smalltalk/Squeak';
- keepAlive: false) named: 'UIUC Archive'.
- ServerDirectory addServer: (ServerDirectory new
- type: #ftp;
- server: 'ftp.create.ucsb.edu';
- user: 'anonymous';
- directory: '/pub/Smalltalk/Squeak';
- keepAlive: false) named: 'UCSBCreate Archive'.
- ServerDirectory addServer: SuperSwikiServer defaultSuperSwiki named: 'Bob SuperSwiki'.
- ServerDirectory addServer: (SuperSwikiServer new
- type: #http;
- server: 'squeakland.org:8080';
- altUrl: 'http://www.squeakland.org/uploads';
- directory: '/super/SuperSwikiProj';
- keepAlive: false;
- acceptsUploads: true) named: 'Squeakland SuperSwiki'.
- ServerDirectory addServer: (HTTPServerDirectory new
- type: #ftp;
- user: 'sqland';
- server: 'www.squeakland.org';
- altUrl: 'http://www.squeakland.org/projects';
- directory: 'projects';
- keepAlive: false) named: 'Squeakland Projects'.
-
- "Add the update streams here just as Squeakland does?
- serverName := 'Squeakland'.
- serverURL := 'squeakland.org'.
- serverDir := serverURL , '/'.
- updateServer := ServerDirectory new.
- updateServer
- server: serverURL;
- directory: 'public:=html/updates/';
- altUrl: serverDir.
- Utilities updateUrlLists addFirst: {serverName. {serverDir. }.}.
- "
- !
Item was removed:
- ReleaseBuilder subclass: #ReleaseBuilderFor3dot10
- instanceVariableNames: 'repository packagesList mantisNo'
- classVariableNames: ''
- poolDictionaries: ''
- category: 'ReleaseBuilder'!
- ReleaseBuilderFor3dot10 class
- instanceVariableNames: 'current'!
-
- !ReleaseBuilderFor3dot10 commentStamp: 'edc 4/5/2007 10:06' prior: 0!
- This class has two functions. One is to hold a few methods that are used by the release team to make an initial or a final release. These will not be used much. The other is to manage the update stream. In general, an update will be a set of Montecello versions. There will be a "packages" method that lists them, and an "update" method that loads them. The actual update file will just load these two methods from Montecello and execute them.
-
- Once the 3.10 release cycle is over, this class will be useless except for tracking history.
-
- For do a new update:
- With a regular web browser like Firefox you go to http://bugs.squeak.org/view.php?id= nnnn
- If you think what this should go into image, then in a Workspace do
-
- Installer mantis createRBforBug: nnnn !
- ReleaseBuilderFor3dot10 class
- instanceVariableNames: 'current'!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10 class>>clear (in category 'instance creation') -----
- clear
-
- " ReleaseBuilderFor3dot10 clear "
- current:= nil!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10 class>>current (in category 'instance creation') -----
- current
-
- " ReleaseBuilderFor3dot10 current inspect "
- ^current ifNil: [current := (self new) newUpdate]!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>addRepositoryToPackageNamed: (in category 'managing updates') -----
- addRepositoryToPackageNamed: aString
-
- |pa|
- pa := MCPackage named: aString.
- pa workingCopy repositoryGroup addRepository: self repository.
- ^pa workingCopy repositoryGroup
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>advanceToThreeDotTenAlpha (in category 'squeakThreeTen') -----
- advanceToThreeDotTenAlpha
-
- "Offer the chance to advance the version number."
- (self confirm: 'There are no further updates for Squeak 3.9.
- Do you wish to advance to version 3.10alpha?
- [Yes] Your system will be marked as 3.10alpha, and you will
- subsequently receive ''test pilot'' updates for 3.10.
- [No] Your system will be marked as 3.9, allowing you
- to receive only final fixes for the 3.9 stable release.
- [Neither] You may choose No, and immediately quit without saving,
- allowing you to make a backup copy before adopting this change.
- DO YOU WANT TO ADVANCE to Version 3.10alpha now?')
- ifTrue: [SystemVersion newVersion: 'Squeak3.10alpha'.
- SystemVersion current date: Time now asDate.
- self inform: 'You may now save this Version 3.10alpha image
- and retrieve updates again for 3.10alpha and beyond.']
- ifFalse: [SystemVersion current version: 'Squeak3.9'; date: Time now asDate..
- self inform: 'You may now save this Version 3.9 final image
- and retrieve updates again for any final fixes to 3.9.
- - - - - -
- (If you quit without saving now, your image will revert to
- 3.9without any of the updates you just loaded)']!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>cleanUnwantedCs (in category 'updates') -----
- cleanUnwantedCs
- ChangeSet
- removeChangeSetsNamedSuchThat: [:cs | cs name ~= ChangeSet
- current name].
- ChangeSet current clear.
- ChangeSet current name: 'Unnamed1'.
- Smalltalk garbageCollect.!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>createBackgroundColor (in category 'squeakThreeTen') -----
- createBackgroundColor
- | gf |
- gf := GradientFillStyle ramp: {0.0->(Color r: 0.97 g: 0.98 b: 1.0) .
- 1.0->(Color r: 0.0 g: 0.658 b: 0.474)}.
- gf origin: 0 @ 0;
- direction: 0@400;
- normal: 640@0;
- radial: false.
- World fillStyle: gf
-
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>flushCaches (in category 'managing updates') -----
- 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: ReleaseBuilderFor3dot10>>installInBoxAnd310 (in category 'packages') -----
- installInBoxAnd310
-
-
- MCWorkingCopy allManagers do: [:each |
- each repositoryGroup
- addRepository: (MCHttpRepository new location: 'http://source.squeakfoundation.org/310' ; user: 'squeak'; password: 'squeak');
- addRepository: (MCHttpRepository new location: 'http://source.squeakfoundation.org/inbox' ; user: '' ; password: '')].!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>loadLast: (in category 'updates') -----
- loadLast: aPackageName
- | package |
- package := self repository readableFileNames detect:[:ea| ea beginsWith: aPackageName] ifNone:[]. package ifNotNil: [
- (repository loadVersionFromFileNamed: package) load]
- ifNil: [ ^ self error: aPackageName ,' is not on this repository '].
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>loadLastVersion: (in category 'packages') -----
- loadLastVersion: aListOfPackageNames
- | mcw montiNames version |
- mcw := MCWorkingCopyBrowser new repository: (MCHttpRepository
- location: 'http://source.squeakfoundation.org/39a'
- user: ''
- password: '').
- mcw repository ifNotNil: [:repos | montiNames := repos readableFileNames ].
-
- aListOfPackageNames do: [:mo | | package |
-
- package := (montiNames detect:[:ea| ea beginsWith: mo] ifNone:[] ) .
- package ifNotNil: [
- version := mcw repository loadVersionFromFileNamed: package.
- version load]].
- ^version!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>loadPackages: (in category 'managing updates') -----
- loadPackages: packageNames
- self loadTogether: (packageNames findTokens: ' ', String cr) merge: false!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>loadTogether:merge: (in category 'managing updates') -----
- loadTogether: aCollection merge: aBoolean
- | loader mcc |
- loader := aBoolean
- ifTrue: [ MCVersionMerger new ]
- ifFalse: [ MCVersionLoader new].
- aCollection do: [:eachVersion | self addRepositoryToPackageNamed: (eachVersion copyUpTo: $- )].
- (self newerVersionsIn: aCollection)
- do: [:fn | Transcript show: fn;cr.
- 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].
- SystemNavigation default obsoleteBehaviors size > 0
- ifTrue: [
- SystemNavigation default obsoleteBehaviors inspect.
- self error:'The changes should be reviewed'].
- self flushCaches.
-
- mcc := MCWorkingCopyBrowser new.
- mcc repository: MCCacheRepository default.
- mcc workingCopies select:
- [:wc |
- (wc modified = true)] thenDo: [:ea|
- mcc workingCopy: ea.
- ea modified: false
- ]
-
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>makeSqueakRelease (in category 'squeakThreeTen') -----
- makeSqueakRelease
- | monti |
-
- self unloadSome.
-
- monti := MCWorkingCopyBrowser new.
- monti unsortedWorkingCopies
- do: [:ea | ((PackageOrganizer default packageNames) includes: (ea package name)) ifFalse:[ ea unregister]].
- monti flushAllCaches.
-
-
- Smalltalk garbageCollect.
- DataStream initialize.
- Flaps replaceGlobalFlapwithID: 'Tools' translated.
- Flaps replaceGlobalFlapwithID: 'Widgets' translated.
- self cleanUpEtoys.
- SmalltalkImage current fixObsoleteReferences.
-
- Smalltalk garbageCollect.
- ScheduledControllers := nil.
- Behavior flushObsoleteSubclasses.
- Smalltalk garbageCollect!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>makeSqueakThreeTenRelease (in category 'squeakThreeTen') -----
- makeSqueakThreeTenRelease
- "ReleaseBuilderFor3dot10 new makeSqueakThreeTenRelease"
-
- self
- makeSqueakThreeTenReleasePhasePrepare;
- makeSqueakRelease;
- makeSqueakThreeTenReleasePhaseCleanup;
- installInBoxAnd310;
- updateFrom7067;
- createBackgroundColor!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>makeSqueakThreeTenReleasePhaseCleanup (in category 'squeakThreeTen') -----
- makeSqueakThreeTenReleasePhaseCleanup
- "ReleaseBuilderFor3dot10 new makeSqueakThreeTenReleasePhaseCleanup"
- | newVersion |
- Smalltalk at: #Browser ifPresent:[:br| br initialize].
- self cleanUnwantedCs.
- "Remove existing player references"
- References keys do: [:k | References removeKey: k].
- Smalltalk garbageCollect.
- ScheduledControllers := nil.
- Behavior flushObsoleteSubclasses.
- SystemNavigation default obsoleteBehaviors isEmpty
- ifFalse: [self error: 'Still have obsolete behaviors'].
-
- "Reinitialize DataStream; it may hold on to some zapped entitities"
- DataStream initialize.
- self fixObsoleteReferences.
- "Smalltalk abandonTempNames."
- Smalltalk zapAllOtherProjects.
- Smalltalk flushClassNameCache.
- Symbol compactSymbolTable.
- "SystemVersion current registerUpdate: 7069." "We only need for when start the release"
- newVersion := 'Squeak3.10alpha.' , SystemVersion current
- highestUpdate printString.
-
- newVersion := newVersion ,'.'.
- (SourceFiles at: 2) ifNotNil:
- [SmalltalkImage current closeSourceFiles; "so copying the
- changes file will always work"
- saveChangesInFileNamed: (SmalltalkImage current
- fullNameForChangesNamed: newVersion)].
- SmalltalkImage current saveImageInFileNamed: (SmalltalkImage current
- fullNameForImageNamed: newVersion)
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>makeSqueakThreeTenReleasePhasePrepare (in category 'squeakThreeTen') -----
- makeSqueakThreeTenReleasePhasePrepare
- "ReleaseBuilderFor3dot10 new makeSqueakThreeTenReleasePhasePrepare"
-
- Undeclared removeUnreferencedKeys.
- StandardScriptingSystem initialize.
- Preferences initialize.
- "(Object classPool at: #DependentsFields) size > 1 ifTrue: [self
- error:'Still have dependents']."
- Undeclared isEmpty ifFalse: [self error:'Please clean out
- Undeclared'].
-
- "Dump all projects"
- Project allSubInstancesDo:[:prj| prj == Project current
- ifFalse:[Project deletingProject: prj]].
-
- "Set new look so we don't need older fonts later"
- StandardScriptingSystem applyNewEToyLook.
-
- Smalltalk at: #Browser ifPresent:[:br| br initialize].
- ScriptingSystem deletePrivateGraphics.
- self cleanUnwantedCs.
- "Reinitialize DataStream; it may hold on to some zapped entitities"
- DataStream initialize.
- "Remove existing player references"
- References keys do:[:k| References removeKey: k].
-
- Smalltalk garbageCollect.
- ScheduledControllers := nil.
- Smalltalk garbageCollect.
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>newUpdate (in category 'updates') -----
- newUpdate
- packagesList := Set new!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>newUpdateFor: (in category 'updates') -----
- newUpdateFor: aBugNo
- " ReleaseBuilderFor3dot10 new newUpdateFor: nnnn"
- |cs updateNo newName newSet lastName|
- mantisNo := aBugNo.
- updateNo := SystemVersion current highestUpdate + 1.
-
- lastName := ChangeSet allChangeSetNames last.
- newName := UIManager default
- request: 'Please name the new change set:'
- initialAnswer: updateNo asString, lastName.
- newName isEmptyOrNil ifTrue:
- [^ nil].
- newSet := ChangeSet basicNewChangeSet: newName.
- newSet ifNotNil:
- [ChangeSet newChanges: newSet].
-
-
- cs := newSet .
- cs preamble: '"',(Installer mantis preambleCsForRB: aBugNo) withSqueakLineEndings asUnHtml , '"'.
- cs postscript: '"', self postcriptTemplate, aBugNo asString, '"
-
- ReleaseBuilderFor3dot10 new updatePackages: '.
- self updateToNext.
- cs editPostscript!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>newerVersionsIn: (in category 'managing updates') -----
- newerVersionsIn: aCollection
- ^aCollection reject: [:each |
- MCWorkingCopy allManagers anySatisfy: [:workingcopy |
- workingcopy ancestry ancestorString , '.mcz' = each]].!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>packages7067 (in category 'packages') -----
- packages7067
- ^ 'System-edc.102(sd.101).mcd
- Tests-edc.20(sd.19).mcd
- Kernel-edc.151(sd.150).mcd
- ST80-edc.38.mcz
- Monticello-edc.311.mcz
- CollectionsTests-edc.35.mcz
- Graphics-edc.40(ar.39).mcd
- SystemChangeNotification-Tests-edc.7.mcz
- GraphicsTests-edc.10(ar.9).mcd
- SMBase-edc.86(sd.85).mcd
- KernelTests-edc.51(sd.50).mcd
- Traits-edc.226.mcz
- Files-edc.20.mcz
- ToolBuilder-Kernel-rej.18.mcz
- XML-Parser-mir.3.mcz
- Universes-ls.19.mcz'!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>packagesInfluenced (in category 'packages') -----
- packagesInfluenced
-
- " This is a partial response to Ralph request.
- Lets know what packages could touch some code file what we wish go into image.
- Intended to load Mantis fix and convert the result to Monticello "
- "
- ReleaseBuilderFor3dot10 new packagesInfluenced
- "
- | monti fileName cs |
- monti := Set new.
- fileName := UIManager default chooseFileMatching: #('st' 'cs').
- cs := FilePackage fromFileNamed: fileName.
- cs classes do: [:cl| | realClass cat p |
- realClass := Smalltalk at: cl name ifAbsent: [ self error: 'This image do not have ', cl asString] .cat := (realClass category findTokens: '-') first.
-
- p := (PackageInfo allPackages collect:[:pi| pi packageName]) .
- (p includes: cat) ifTrue:[ monti add: cat]].
- ^ monti.!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>packagesInfluenced:named: (in category 'packages') -----
- packagesInfluenced: aStream named: aFileName
-
- " This is a partial response to Ralph request.
- Lets know what packages could touch some code file what we wish go into image.
- Intended to load Mantis fix and convert the result to Monticello "
- "
- ReleaseBuilderFor3dot10 new packagesInfluenced
- "
- | monti cs |
- monti := Set new.
-
- cs := FilePackage new fromStream: aStream reset named: aFileName.
- cs classes do: [:cl| | p realClass cat |
- realClass := Smalltalk at: cl name ifAbsent: [ self error: 'This image do not have ', cl asString] .cat := (realClass category findTokens: '-') first.
-
- p := (PackageInfo allPackages collect:[:pi| pi packageName]) .
- (p includes: cat) ifTrue:[ monti add: cat]].
- packagesList addAll: monti.!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>packagesList (in category 'accessing') -----
- packagesList
- | mcc lista |
- lista := OrderedCollection new.
- mcc := MCWorkingCopyBrowser new.
- mcc repository: MCCacheRepository default.
- lista := mcc workingCopies select:
- [:wc |
- ((wc modified = true) & wc ancestors notEmpty)] thenCollect: [:ea| | packName pos|
- packName := ea ancestry ancestors first name.
- pos := packName indexOf: $-.
- packName := packName copyFrom: 1 to: pos -1.
- lista add: packName].
- ^ lista!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>postcriptTemplate (in category 'updates') -----
- postcriptTemplate
- ^'To follow this see
- http://bugs.squeak.org/view.php?id= '!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>repository (in category 'updates') -----
- repository
- repository isNil ifTrue: [
- repository := MCHttpRepository
- location: 'http://source.squeakfoundation.org/310'
- user: ''
- password: ''.].
- ^repository!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>saveNewVersion: (in category 'packages') -----
- saveNewVersion: v
-
- v repositoryGroup: (self addRepositoryToPackageNamed: v package name).
- repository user ifEmpty:[
- repository user: (UIManager default request: '3.10 Repository username').
- repository password: (UIManager default request: '3.10 Repository password')].
-
- repository storeVersion: (v newVersionWithName: v uniqueVersionName message: self postcriptTemplate, mantisNo asString) .
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>testObsolete (in category 'squeakThreeTen') -----
- testObsolete
- "if we do some classes go, also his test should go"
- ^#(WatchMorphTest)!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>unloadMorphicClasses (in category 'squeakThreeTen') -----
- unloadMorphicClasses
-
- "These classes don't seem to be used, so unload them. They always can be loaded later."
-
- SystemOrganization classifyAll: #(BorderedStringMorph MouseActionIndicatorMorph CommandTilesMorph
- TestClickExerciser SpectrumAnalyzerMorph FishEyeMorph SoundDemoMorph
- MultiuserTinyPaint KidNavigationMorph CodecDemoMorph BlobMorph
- SoundMorph SubpaneDividerMorph
- RolloverButtonMorph ClipboardMorph VeryPickyMorph
- ClassRepresentativeMorph PhraseWrapperMorph WatchMorph
- UpdatingTextMorph PluggableTabBarMorph PartsWindow HeadingMorph
- ZoomMorph UpdatingStringMorphWithArgument SoundSequencerMorph
- ImageMorphWithSpotlight TinyPaint InfoStringMorph
- UpdatingBooleanStringMorph DrawErrorMorph ViewerRow
- BalloonRectangleMorph ViewerEntry MidiInputMorph
- CachingMorph MovingEyeMorph MIDIPianoKeyboardMorph
- DoubleClickExample MorphExample RulerMorph LabelStringMorph) under:
- 'Morphic-CandidatesForGo'.
-
- (MCPackage named: 'Morphic-CandidatesForGo') unload .
- #(TheWorldMenu FileServices AppRegistry Preferences FileList) do: [:cl|
- (Smalltalk at: cl) removeObsolete].
- self testObsolete do: [:cl|
- Smalltalk removeClassNamed: cl].
- Smalltalk garbageCollect.!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>unloadSome (in category 'squeakThreeTen') -----
- unloadSome
- World removeAllMorphs.
- CommandHistory resetAllHistory.
- #('Flash' 'StarSqueak' 'SmaCC' 'Speech' 'Movies' 'FixUnderscores' 'OB' 'OmniBrowser' )
- do: [:ea | (MCPackage named: ea) unload.
- PackageOrganizer default unregisterPackageNamed: ea].
- #(#TheWorldMenu #FileServices #AppRegistry #Preferences #FileList )
- do: [:cl | (Smalltalk at: cl) removeObsolete].
- self unloadMorphicClasses.
- SystemOrganization removeEmptyCategories.
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>updateFrom7067 (in category 'updates') -----
- updateFrom7067
- "ReleaseBuilderFor3dot10 new updateFrom7067"
- self updatePackages: 'Monticello-rej.309.mcz'.
- "Enable atomic loading"
- self addRepositoryToPackageNamed: 'SystemChangeNotification-Tests'.
- self updatePackages: self packages7067.
- self flushCaches!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>updatePackages: (in category 'managing updates') -----
- updatePackages: packageNames
- self loadTogether: (packageNames findTokens: ' ', String cr) merge: true!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>updateTo7070 (in category 'updates') -----
- updateTo7070
- ^'EToys-edc.23(md.22).mcd'!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>updateTo7071 (in category 'updates') -----
- updateTo7071
- ^'Collections-edc.72(md.71).mcd
- CollectionsTests-edc.36(35).mcd
- '!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>updateToNext (in category 'updates') -----
- updateToNext
-
- | stream mcc |
- stream := RWBinaryOrTextStream on: String new.
- mcc := MCWorkingCopyBrowser new.
- mcc repository: MCCacheRepository default.
- mcc workingCopies select:
- [:wc |
- (wc modified = true)] thenDo: [:ea| | number p1 packString pos |
- self saveNewVersion: ea.
-
- packString := ea ancestry ancestorString .
- pos := packString indexOf: $..
- p1 := packString copyFrom: 1 to: pos -1.
- number := (packString copyFrom: pos + 1 to: packString size) asNumber.
- packString := p1 ,'.', number asString , '(', (number - 1) asString ,').mcd'.
- packString := packString, Character cr asString.
- stream nextPutAll: packString
- ].
- ChangeSet current postscript: ChangeSet current postscript, stream contents!
Item was removed:
- ReleaseBuilderFor3dot10 subclass: #ReleaseBuilderFor3dot11
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'ReleaseBuilder'!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>cleanupPhaseFinal (in category 'cleaning') -----
- cleanupPhaseFinal
- " ReleaseBuilderFor3dot11 new cleanupPhaseFinal "
- | tasks |
- tasks := OrderedCollection new
-
- add: [Smalltalk removeEmptyMessageCategories];
- add: [Workspace
- allSubInstancesDo: [:each | each initializeBindings]];
- add: [Undeclared removeUnreferencedKeys];
- add: [Categorizer sortAllCategories];
- add: [Symbol compactSymbolTable];
- add: [#(#TheWorldMenu #FileServices #AppRegistry #Preferences #FileList )
- do: [:cl | (Smalltalk at: cl) removeObsolete]]; add:[Flaps freshFlapsStart]; add:[MCFileBasedRepository flushAllCaches];
- add: [HandMorph releaseCachedState;
- initForEvents.self fixObsoleteReferences];
- add: [
-
- 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].Smalltalk garbageCollectMost];
- yourself.
- Utilities
- informUserDuring: [:bar | tasks
- do: [:block |
- bar value: block printString.
- block
- on: Error
- do: [:error | Transcript show: error;
- cr]]].
- SystemNavigation default obsoleteClasses isEmpty
- ifTrue: [SmalltalkImage current saveSession]
- ifFalse: [SystemNavigation default obsoleteClasses
- do: [:each | .self halt.[PointerFinder on: each]
- on: Error
- do: [:error | Transcript show: error; cr]]]
-
-
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>cleanupPhasePrepare (in category 'cleaning') -----
- cleanupPhasePrepare
- self cleanUnwantedCs.
- "SMSqueakMap default clearCaches."
- " Commented out for no Undeclared on image "
- #(zapMVCprojects zapAllOtherProjects discardFlash discardFFI
- computeImageSegmentation discardSpeech ) do:[:ea|
- SystemDictionary removeSelector:ea].
- #( reserveUrl: saveAsResource saveDocPane saveOnURL saveOnURL:
- saveOnURLbasic isTurtleRow objectViewed inATwoWayScrollPane) do:[:ea|
- Morph removeSelector: ea].
-
- #(playfieldOptionsMenu presentPlayfieldMenu allScriptEditors
- attemptCleanupReporting: modernizeBJProject
- scriptorForTextualScript:ofPlayer:) do:[:ea|
- PasteUpMorph removeSelector: ea].
- #(isUniversalTiles noteDeletionOf:fromWorld: scriptorsForSelector:inWorld: tilesToCall: handMeTilesToFire) do:[:ea|
- Player removeSelector: ea].
- Player class removeCategory: 'turtles'.
- Player removeCategory: 'slots-user'.
- Morph removeCategory: 'scripting'.
- ColorType removeCategory: 'tiles'.
- TheWorldMainDockingBar removeSelector: #hideAllViewersIn: .
- SystemOrganization removeCategoriesMatching: 'UserObjects'.
- FileList2 class organization classify: #morphicViewOnDirectory: under: 'morphic ui'.
- FileList2 class organization classify: #morphicView under: 'morphic ui'.
- SystemOrganization classifyAll: #(AbstractMediaEventMorph ColorSwatch) under: 'MorphicExtras-AdditionalSupport'.!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>createBackgroundColor (in category 'squeakThreeEleven') -----
- createBackgroundColor
- | gf |
- gf := GradientFillStyle ramp: {0.0->(Color r: 0.97 g: 0.98 b: 1.0) .
- 1.0->(Color r: 0.0 g: 0.658 b: 0.474)}.
- gf origin: 0 @ 0;
- direction: 0@400;
- normal: 640@0;
- radial: false.
- World fillStyle: gf!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>createCompressedSources (in category 'sources managment') -----
- createCompressedSources
- " ReleaseBuilderFor3dot11 new createCompressedSources"
-
- ProtoObject allSubclassesWithLevelDo:[:cl :l| | dir |
- dir := self createDirIfnotExists:cl category.
-
-
- Cursor write showWhile: [ | zipped nameToUse unzipped buffer |
- nameToUse := cl printString , FileDirectory dot, ImageSegment compressedFileExtension.
- (dir fileExists: nameToUse) ifFalse:[
- unzipped :=RWBinaryOrTextStream on: ''.
- unzipped header; timeStamp.
- cl fileOutOn: unzipped moveSource: false toFile: 0.
- unzipped trailer.
-
- unzipped reset.
- zipped := dir newFileNamed: (nameToUse).
- zipped binary.
- zipped := GZipWriteStream on: zipped.
- buffer := ByteArray new: 50000.
- 'Compressing ', nameToUse displayProgressFrom: 0 to: unzipped size
- during:[:bar|
- [unzipped atEnd] whileFalse:[
- bar value: unzipped position.
- zipped nextPutAll: (unzipped nextInto: buffer)].
- zipped close.
- unzipped close]]]] startingLevel: 0!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>createDirIfnotExists: (in category 'sources managment') -----
- createDirIfnotExists: aDirName
- (FileDirectory default directoryExists:aDirName)
- ifFalse: [FileDirectory default createDirectory: aDirName].
- ^FileDirectory default directoryNamed: aDirName!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>getRidOfUnwantedMorphs (in category 'cleaning') -----
- getRidOfUnwantedMorphs
- | objFl aButton partBin unwantedMorph |
- aButton := SimpleButtonMorph new label: 'Tools'.
- aButton actWhen: #buttonDown.
- objFl := Flaps globalFlapTabWithID: 'Objects'.
- objFl referent showCategory: 'Tools' fromButton: aButton.
- partBin := objFl referent submorphs at: 1.
- unwantedMorph := partBin submorphThat: [:any| (any arguments at: 2) = 'SUnit Runner'] ifNone: [].
- unwantedMorph delete.
- 2 timesRepeat: [unwantedMorph := partBin submorphThat: [:any| (any arguments at: 2) = 'Package Loader'] ifNone: []. "we have two of this "
- unwantedMorph delete].
- objFl := Flaps globalFlapTabWithID: 'Tools'.
- partBin := objFl referent.
- unwantedMorph := partBin submorphThat: [:any| (any arguments at: 2) = 'Package Loader'] ifNone: [].
- unwantedMorph delete.
- unwantedMorph := partBin submorphThat: [:any| (any arguments at: 2) = 'SUnit Runner'] ifNone: [].
- unwantedMorph delete.!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>groupingTests (in category 'unloadPackages') -----
- groupingTests
- " this is how I build Tests-edc.35 for unload "
- | classList |
-
- classList := OrderedCollection new.
- #(TestCase TestResource) do: [:cl| (Smalltalk at: cl)
- allSubclassesWithLevelDo: [:c :i | classList addFirst: c]
- startingLevel: 0].
-
- Smalltalk organization addCategory: 'Tests-Others'.
- classList select: [:ea| ((ea basicCategory asString) beginsWith: 'Tests') not] thenDo: [:any| SystemOrganization classify: any name under: 'Tests-Others']
-
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>installtrunk (in category 'updates') -----
- installtrunk
-
- " ReleaseBuilderFor3dot11 new installtrunk"
-
- MCWorkingCopy allManagers
- do: [:each | each repositoryGroup addRepository: (MCHttpRepository new location: 'http://source.squeakfoundation.org/trunk/';
- user: 'squeak';
- password: 'squeak')]!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>loadLastVersion: (in category 'updates') -----
- loadLastVersion: aListOfPackageNames
- | mcw montiNames version |
- mcw := MCWorkingCopyBrowser new
- repository: (MCHttpRepository
- location: 'http://source.squeakfoundation.org/trunk'
- user: ''
- password: '').
- mcw repository
- ifNotNil: [:repos | montiNames := repos readableFileNames].
- aListOfPackageNames
- do: [:mo | | package |
- package := montiNames
- detect: [:ea | (ea findTokens: '-' ) first = mo]
- ifNone: [].
- package
- ifNotNil: [version := mcw repository loadVersionFromFileNamed: package.
- version load]].
- ^ version!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>makeSqueakThreeTenEleven (in category 'squeakThreeEleven') -----
- makeSqueakThreeTenEleven
- "ReleaseBuilderFor3dot11 new makeSqueakThreeTenEleven"
- "World removeAllMorphs."
- Transcript open.
- self cleanupPhasePrepare;getRidOfUnwantedMorphs
- "prepareforUnloadBookMorphandFriends;"
- ;prepareforUnloadEtoys;
- prepareforUnloadNebraska
- ;groupingTests;
- unloadSomeMore;unloadSomeMore3;cleanupPhaseFinal;createBackgroundColor!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>prepareforUnloadBookMorphandFriends (in category 'cleaning') -----
- prepareforUnloadBookMorphandFriends
- SystemOrganization addCategory: #BookMorphandFriends.
-
- SystemOrganization classifyAll: #( BookMorph BookPageSorterMorph BookPageThumbnailMorph BooklikeMorph FlexMorph FloatingBookControlsMorph KedamaMorph MethodMorph MorphThumbnail StoryboardBookMorph ) under: 'BookMorphandFriends'.
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>prepareforUnloadEtoys (in category 'cleaning') -----
- prepareforUnloadEtoys
- Smalltalk removeClassNamed: #FlexibleVocabulariesInfo.
- SystemOrganization classifyAll: #(ActorState MethodMorph Player Presenter StickySketchMorph UnscriptedPlayer SlotInformation UnscriptedCardPlayer) under: 'MorphicExtras-EToys-Scripting'.
- #( actorState actorState: isPartsDonor isPartsDonor: player player:) do: [:method|
- MorphExtension organization classify: method under: '*MorphicExtras-accessing' suppressIfDefault: false].
- HaloMorph organization classify: #doMakeSiblingOrDup:with: under: 'Old Etoys-handles'.
- HaloMorph organization classify: #doDupOrMakeSibling:with: under: 'Old Etoys-handles'.
- "self loadTogether: #('Morphic-CandidatesForGo-edc.3.mcz' ) merge: false."
- SystemOrganization classifyAll: #(ScriptEditorMorph TwoWayScrollPane TabSorterMorph) under:
- 'Morphic-CandidatesForGo'.
-
- #('*eToys-queries' '*eToys-eToy vocabularies' '*eToys-color' '*eToys-customevents-custom events' '*eToys-type vocabularies') do:[:ea|
- Vocabulary class removeCategory: ea].
-
- #('*flexibleVocabularies-flexiblevocabularies-scripting' '*flexibleVocabularies-flexibleVocabularies' '*eToys-scripting' '*eToys-new-morph participation' '*eToys-customevents-user events') do:[:ea|
- Morph class removeCategory: ea].
- #(nascentUserScriptInstance userScriptForPlayer: selector: ) do:[:ea|
- Player class removeSelector: ea].
- Smalltalk removeClassNamed: #FlexibleVocabulariesInfo.
- Preferences removePreference: #allowEtoyUserCustomEvents.
- Morph organization classify: #partName:categories:documentation:sampleImageForm: under: '*MorphicExtras-new-morph participation'.
- #(possiblyReplaceEToyFlaps twiddleSuppliesButtonsIn:) do: [:ea|
- Flaps class removeSelector: ea].
- Flaps clobberFlapTabList.
- Flaps addStandardFlaps.
- SystemOrganization classifyAll: #(ComponentLikeModel) under: 'MorphicExtras-Components'
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>prepareforUnloadNebraska (in category 'cleaning') -----
- prepareforUnloadNebraska
- SystemOrganization addCategory: #'Nebraska-Refactoring'.
-
- SystemOrganization classifyAll: #(EToyGenericDialogMorph EToyProjectDetailsMorph EToyProjectHistoryMorph EToyProjectQueryMorph EToyProjectRenamerMorph EtoyUpdatingThreePhaseButtonMorph) under: 'Nebraska-Refactoring'.
- WorldState organization classify: #remoteCanvasesDo: under: '*MorphicExtras-nebraska compatible'.
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>repository (in category 'updates') -----
- repository
- repository isNil
- ifTrue: [repository := MCHttpRepository
- location: 'http://source.squeakfoundation.org/trunk/'
- user: ''
- password: ''].
- ^ repository!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>saveInTrunk: (in category 'squeakThreeEleven') -----
- saveInTrunk: packageName
-
- " ReleaseBuilderFor3dot11 new saveInTrunk: Foo"
- | monti repo |
- monti := MCWorkingCopyBrowser new.
- repo := MCHttpRepository
- location: 'http://source.squeak.org/trunk'
- user: ''
- password: ''.
-
-
- (SystemOrganization categoriesMatching: packageName , '*')
- do: [:cat |
- | workingCopy message |
- PackageInfo registerPackageName: cat asString.
- workingCopy := MCWorkingCopy
- forPackage: (MCPackage new name: cat asString).
- workingCopy repositoryGroup addRepository: repo.
- repo user
- ifEmpty: [repo
- user: (UIManager default request: 'Trunk Repository username').
- repo
- password: (UIManager default request: 'Trunk Repository password')].
- message := UIManager default
- request: 'Please type comments for this package:' translated
- initialAnswer: 'a good comment' translated.
-
- repo
- storeVersion: (workingCopy newVersionWithName: workingCopy uniqueVersionName message: message)].
-
- monti workingCopyListChanged; changed: #workingCopySelection; changed: #repositoryList !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>unloadSomeMore (in category 'unloadPackages') -----
- unloadSomeMore
- #('Tests' 'SMLoader' 'SMBase' 'SUnit' 'SUnitGUI' 'ScriptLoader' 'Universes' 'Installer' 'XML-Parser' )
- do: [:ea | (MCPackage named: ea) unload].
- self fixObsoleteReferences !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>unloadSomeMore2 (in category 'unloadPackages') -----
- unloadSomeMore2
- "ReleaseBuilderFor3dot11 new unloadSomeMore2;cleanupPhaseFinal "
- #('BookMorphandFriends' )
- do: [:ea | (MCPackage named: ea) unload].self fixObsoleteReferences!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>unloadSomeMore3 (in category 'unloadPackages') -----
- unloadSomeMore3
- "ReleaseBuilderFor3dot11 new unloadSomeMore3;cleanupPhaseFinal;cleanUnwantedCs "
- #('MorphicExtras-Demo' 'Morphic-CandidatesForGo' 'Nebraska' )
- do: [:ea | (MCPackage named: ea) unload].
- SystemOrganization removeCategoriesMatching: 'EToys*'.
- self fixObsoleteReferences!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>unloadTraits (in category 'unloadPackages') -----
- unloadTraits
- "ReleaseBuilderFor3dot11 new unloadTraits"
- " self saveInLadrillos: 'Traits'."
- self unloadTraitsClearRefs.
- (MCPackage named: 'Traits') unload.
- self unloadTraitsTraitsStubs.
- self fixObsoleteReferences!
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>unloadTraitsClearRefs (in category 'unloadPackages') -----
- unloadTraitsClearRefs
-
- | loader |
- loader := CodeLoader new.
- loader baseURL:'http://installer.pbwiki.org/f/'.
-
- "Sources and segments can be loaded in parallel"
- loader loadSourceFiles: #('UnloadTraits-ClearRefs.cs' ).
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>unloadTraitsStubOutAcessors (in category 'unloadPackages') -----
- unloadTraitsStubOutAcessors
-
- | loader |
- loader := CodeLoader new.
- loader baseURL:'http://installer.pbwiki.org/f/'.
-
- "Sources and segments can be loaded in parallel"
- loader loadSourceFiles: #('UnloadTraits-StubOutAcessors.cs' ).
- !
Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>unloadTraitsTraitsStubs (in category 'unloadPackages') -----
- unloadTraitsTraitsStubs
-
- | loader |
- loader := CodeLoader new.
- loader baseURL:'http://installer.pbwiki.org/f/'.
-
- "Sources and segments can be loaded in parallel"
- loader loadSourceFiles: #('UnloadTraits-TraitsStubs.cs' ).
- !
Item was removed:
- ReleaseBuilder subclass: #ReleaseBuilderFor4dot3
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'ReleaseBuilder'!
-
- !ReleaseBuilderFor4dot3 commentStamp: 'fbs 12/3/2012 09:47' prior: 0!
- This is the release builder for Squeak 4.3. It was formerly known as ReleaseBuilderTrunk.!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot3 class>>openWelcomeWorkspaces (in category 'private') -----
- openWelcomeWorkspaces
- TheWorldMainDockingBar instance
- showWelcomeText: #squeakUserInterface
- label: 'Squeak User Interface'
- in: (40 @ 40 extent: 500 @ 300).
- TheWorldMainDockingBar instance
- showWelcomeText: #workingWithSqueak
- label: 'Working With Squeak'
- in: (80 @ 80 extent: 500 @ 300).
- TheWorldMainDockingBar instance
- showWelcomeText: #licenseInformation
- label: 'License Information'
- in: (120 @ 120 extent: 500 @ 300).
- TheWorldMainDockingBar instance
- showWelcomeText: #welcomeFutureDirections
- label: 'Future Directions'
- in: (160 @ 160 extent: 500 @ 300).
- TheWorldMainDockingBar instance
- showWelcomeText: #welcomeToSqueak43
- label: 'Welcome to Squeak 4.3'
- in: (200 @ 200 extent: 500 @ 300)!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot3 class>>releaseRepository (in category 'private') -----
- releaseRepository
- ^ MCHttpRepository
- location: self repositoryUrl , '/squeak43'
- user: 'squeak'
- password: 'squeak'!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot3 class>>setDisplayExtent: (in category 'private') -----
- setDisplayExtent: extent
- "Uncomment next line when the primitives become available in the Squeak VM."
- " DisplayScreen hostWindowSize: extent."
- Display extent = extent ifFalse: [ Warning signal: 'Display extent not set to ', extent ]!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot3 class>>setPreferences (in category 'private') -----
- setPreferences
- Preferences
- installBrightWindowColors ;
- setPreference: #scrollBarsWithoutMenuButton toValue: true ;
- setPreference: #swapMouseButtons toValue: true ;
- setPreference: #annotationPanes toValue: true ;
- setPreference: #showSplitterHandles toValue: false ;
- setPreference: #showBoundsInHalo toValue: true ;
- setPreference: #alternateHandlesLook toValue: false ;
- setPreference: #roundedMenuCorners toValue: false ;
- setPreference: #roundedWindowCorners toValue: false.
- PluggableButtonMorph roundedButtonCorners: false.
- FillInTheBlankMorph roundedDialogCorners: false.
- Workspace shouldStyle: false!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot3 class>>switchToNewRepository (in category 'private') -----
- switchToNewRepository
- | old42Repository |
- MCMcmUpdater defaultUpdateURL: 'http://source.squeak.org/squeak43'.
- old42Repository := MCRepositoryGroup default repositories
- detect: [:each | each description includesSubString: 'squeak42'] ifNone: [nil].
- old42Repository
- ifNotNil: [MCRepositoryGroup default removeRepository: old42Repository].
- MCRepositoryGroup default addRepository: self releaseRepository!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot3 class>>versionString (in category 'as yet unclassified') -----
- versionString
- ^ 'Squeak4.3'.!
Item was removed:
- ReleaseBuilder subclass: #ReleaseBuilderFor4dot4
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'ReleaseBuilder'!
-
- !ReleaseBuilderFor4dot4 commentStamp: 'fbs 10/24/2012 09:20' prior: 0!
- The release builder for Squeak 4.4!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot4 class>>openWelcomeWorkspaces (in category 'private') -----
- openWelcomeWorkspaces
- TheWorldMainDockingBar instance
- showWelcomeText: #squeakUserInterface
- label: 'Squeak User Interface'
- in: (40 @ 40 extent: 500 @ 300).
- TheWorldMainDockingBar instance
- showWelcomeText: #workingWithSqueak
- label: 'Working With Squeak'
- in: (80 @ 80 extent: 500 @ 300).
- TheWorldMainDockingBar instance
- showWelcomeText: #licenseInformation
- label: 'License Information'
- in: (120 @ 120 extent: 500 @ 300).
- TheWorldMainDockingBar instance
- showWelcomeText: #welcomeFutureDirections
- label: 'Future Directions'
- in: (160 @ 160 extent: 500 @ 300).
- TheWorldMainDockingBar instance
- showWelcomeText: #welcomeToSqueak
- label: 'Welcome to Squeak 4.4'
- in: (200 @ 200 extent: 500 @ 300)!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot4 class>>prepareNewBuild (in category 'scripts') -----
- prepareNewBuild
- super prepareNewBuild.
- MCMockPackageInfo initialize.!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot4 class>>releaseRepository (in category 'private') -----
- releaseRepository
- ^ MCHttpRepository
- location: 'http://source.squeak.org/squeak44'
- user: 'squeak'
- password: 'squeak'!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot4 class>>setDisplayExtent: (in category 'private') -----
- setDisplayExtent: extent
- "Uncomment next line when the primitives become available in the Squeak VM."
- " DisplayScreen hostWindowSize: extent."
- Display extent = extent ifFalse: [ Warning signal: 'Display extent not set to ', extent ]!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot4 class>>setPreferences (in category 'private') -----
- setPreferences
- Preferences
- installBrightWindowColors ;
- setPreference: #scrollBarsWithoutMenuButton toValue: true ;
- setPreference: #swapMouseButtons toValue: true ;
- setPreference: #annotationPanes toValue: true ;
- setPreference: #showSplitterHandles toValue: false ;
- setPreference: #showBoundsInHalo toValue: true ;
- setPreference: #alternateHandlesLook toValue: false ;
- setPreference: #roundedMenuCorners toValue: false ;
- setPreference: #roundedWindowCorners toValue: false.
- PluggableButtonMorph roundedButtonCorners: false.
- FillInTheBlankMorph roundedDialogCorners: false.
- Workspace shouldStyle: false.
- NetNameResolver enableIPv6: false.!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot4 class>>switchToNewRepository (in category 'private') -----
- switchToNewRepository
- | old43Repository |
- MCMcmUpdater defaultUpdateURL: self releaseRepository description.
- old43Repository := MCRepositoryGroup default repositories
- detect: [:each | each description includesSubString: 'squeak43'] ifNone: [nil].
- old43Repository
- ifNotNil: [MCRepositoryGroup default removeRepository: old43Repository].
- MCRepositoryGroup default addRepository: self releaseRepository!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot4 class>>versionString (in category 'private') -----
- versionString
- ^ 'Squeak4.4'.!
Item was removed:
- ReleaseBuilder subclass: #ReleaseBuilderFor4dot5
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'ReleaseBuilder'!
-
- !ReleaseBuilderFor4dot5 commentStamp: 'fbs 1/1/2013 20:25' prior: 0!
- The release builder for Squeak 4.5!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot5 class>>loadWellKnownPackages (in category 'private') -----
- loadWellKnownPackages
- "Load into the release image those packages that have been stripped from Trunk, but still deemed necessary for a release artifact."
- #('311Deprecated'
- '39Deprecated'
- '45Deprecated'
- 'Nebraska'
- 'Universes'
- 'XML-Parser') do: [:pkgName |
- Installer squeak
- project: 'trunk';
- install: pkgName].!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot5 class>>openWelcomeWorkspaces (in category 'private') -----
- openWelcomeWorkspaces
- TheWorldMainDockingBar instance
- showWelcomeText: #squeakUserInterface
- label: 'Squeak User Interface'
- in: (40 @ 40 extent: 500 @ 300).
- TheWorldMainDockingBar instance
- showWelcomeText: #workingWithSqueak
- label: 'Working With Squeak'
- in: (80 @ 80 extent: 500 @ 300).
- TheWorldMainDockingBar instance
- showWelcomeText: #licenseInformation
- label: 'License Information'
- in: (120 @ 120 extent: 500 @ 300).
- TheWorldMainDockingBar instance
- showWelcomeText: #welcomeFutureDirections
- label: 'Future Directions'
- in: (160 @ 160 extent: 500 @ 300).
- TheWorldMainDockingBar instance
- showWelcomeText: #welcomeToSqueak
- label: 'Welcome to Squeak 4.5'
- in: (200 @ 200 extent: 500 @ 300)!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot5 class>>prepareNewBuild (in category 'scripts') -----
- prepareNewBuild
- super prepareNewBuild.
- self loadWellKnownPackages.
- TextDomainManager clearAllDomains.
- MCMockPackageInfo initialize.
- Compiler recompileAll.!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot5 class>>releaseRepository (in category 'private') -----
- releaseRepository
- "At release time, change 'trunk' to 'squeak45'."
- ^ MCHttpRepository
- location: 'http://source.squeak.org/trunk'
- user: 'squeak'
- password: 'squeak'!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot5 class>>setDisplayExtent: (in category 'private') -----
- setDisplayExtent: extent
- "Uncomment next line when the primitives become available in the Squeak VM."
- " DisplayScreen hostWindowSize: extent."
- Display extent = extent ifFalse: [ Warning signal: 'Display extent not set to ', extent ]!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot5 class>>setPreferences (in category 'private') -----
- setPreferences
- Preferences
- installBrightWindowColors ;
- setPreference: #scrollBarsWithoutMenuButton toValue: true ;
- setPreference: #swapMouseButtons toValue: true ;
- setPreference: #annotationPanes toValue: true ;
- setPreference: #showSplitterHandles toValue: false ;
- setPreference: #showBoundsInHalo toValue: true ;
- setPreference: #alternateHandlesLook toValue: false ;
- setPreference: #roundedMenuCorners toValue: false ;
- setPreference: #roundedWindowCorners toValue: false.
- PluggableButtonMorph roundedButtonCorners: false.
- FillInTheBlankMorph roundedDialogCorners: false.
- Workspace shouldStyle: false.
- NetNameResolver enableIPv6: true.!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot5 class>>switchToNewRepository (in category 'private') -----
- switchToNewRepository
- | old44Repository |
- MCMcmUpdater defaultUpdateURL: self releaseRepository description.
- old44Repository := MCRepositoryGroup default repositories
- detect: [:each | each description includesSubString: 'squeak44'] ifNone: [nil].
- old44Repository
- ifNotNil: [MCRepositoryGroup default removeRepository: old44Repository].
- MCRepositoryGroup default addRepository: self releaseRepository!
Item was removed:
- ----- Method: ReleaseBuilderFor4dot5 class>>versionString (in category 'private') -----
- versionString
- ^ 'Squeak4.5'.!
Item was removed:
- ReleaseBuilder subclass: #ReleaseBuilderNihongo
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'ReleaseBuilder'!
Item was removed:
- ----- Method: ReleaseBuilderNihongo>>release (in category 'release') -----
- release
- "self release"
-
- Utilities emptyScrapsBook.
-
- Display setExtent: 960@720 depth: 16.
- World color: (Color r: 0.935 g: 0.935 b: 0.935).
-
- "Preferences takanawa."
- Preferences setPreference: #magicHalos toValue: false.
- Preferences setPreference: #magicHalos toValue: true.
- Preferences setPreference: #mouseOverHalos toValue: false.
- Preferences setPreference: #mouseOverHalos toValue: true.
-
- Player abandonUnnecessaryUniclasses.
- Player freeUnreferencedSubclasses.
- Player removeUninstantiatedSubclassesSilently.
-
- PartsBin initialize.
- Flaps disableGlobalFlaps: false.
- Flaps addAndEnableEToyFlaps.
- ActiveWorld addGlobalFlaps.
- Flaps sharedFlapsAlongBottom.
-
- Locale currentPlatform: (Locale isoLanguage: 'ja').
- Locale switchToID: (LocaleID isoLanguage: 'ja').
- Preferences restoreDefaultFonts.
- StrikeFont setupDefaultFallbackFont.
- Project current updateLocaleDependents.
-
- "Dump all projects"
- Project allSubInstancesDo:[:prj| prj == Project current ifFalse:[Project deletingProject: prj]].
-
- ChangeSet current clear.
- ChangeSet current name: 'Unnamed1'.
- Smalltalk garbageCollect.
-
-
- !
Item was removed:
- ReleaseBuilder subclass: #ReleaseBuilderSqueakland
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'ReleaseBuilder'!
Item was removed:
- ----- Method: ReleaseBuilderSqueakland>>finalCleanup (in category 'utilities') -----
- finalCleanup
- "ReleaseBuilder new initialCleanup"
-
-
- Smalltalk abandonTempNames.
- Smalltalk zapAllOtherProjects.
-
- super finalCleanup!
Item was removed:
- ----- Method: ReleaseBuilderSqueakland>>finalStripping (in category 'utilities') -----
- finalStripping
- "ReleaseBuilderSqueakland new finalStripping"
-
- #(#Helvetica #Palatino #Courier #ComicSansMS )
- do: [:n | TextConstants
- removeKey: n
- ifAbsent: []].
- Smalltalk
- at: #Player
- ifPresent: [:superCls | superCls
- allSubclassesDo: [:cls |
- cls isSystemDefined
- ifFalse: [cls removeFromSystem]]].
- Smalltalk garbageCollect.
- Smalltalk discardFFI; discardSUnit; discardSpeech.
- "discardMVC;"
- SystemOrganization removeEmptyCategories.
- !
Item was removed:
- ----- Method: ReleaseBuilderSqueakland>>initialCleanup (in category 'utilities') -----
- initialCleanup
- "ReleaseBuilder new initialCleanup"
-
- Smalltalk at: #Browser ifPresent:[:br| br initialize].
- ChangeSet removeChangeSetsNamedSuchThat:
- [:cs| cs name ~= ChangeSet current name].
-
- super initialCleanup!
Item was removed:
- ----- Method: ReleaseBuilderSqueakland>>installPreferences (in category 'utilities') -----
- installPreferences
-
- #(
- (honorDesktopCmdKeys false)
- (warnIfNoChangesFile false)
- (warnIfNoSourcesFile false)
- (showDirectionForSketches true)
- (menuColorFromWorld false)
- (unlimitedPaintArea true)
- (useGlobalFlaps false)
- (mvcProjectsAllowed false)
- (projectViewsInWindows false)
- (automaticKeyGeneration true)
- (securityChecksEnabled true)
- (showSecurityStatus false)
- (startInUntrustedDirectory true)
- (warnAboutInsecureContent false)
- (promptForUpdateServer false)
- (fastDragWindowForMorphic false)
-
- (externalServerDefsOnly true)
- (expandedFormat false)
- (eToyFriendly true)
- (eToyLoginEnabled true)
- (magicHalos true)
- (mouseOverHalos true)
- (biggerHandles false)
- (selectiveHalos true)
- (includeSoundControlInNavigator true)
- (readDocumentAtStartup true)
- (preserveTrash true)
- (slideDismissalsToTrash true)
- (propertySheetFromHalo true)
-
- ) do:[:spec|
- Preferences setPreference: spec first toValue: spec last].
- "Workaround for bug"
- Preferences enable: #readDocumentAtStartup.
- !
Item was removed:
- ----- Method: ReleaseBuilderSqueakland>>installReleaseSpecifics (in category 'utilities') -----
- installReleaseSpecifics
- "ReleaseBuilderSqueakland new installReleaseSpecifics"
-
- | serverName serverURL serverDir updateServer |
-
- ProjectLauncher splashMorph: (FileDirectory default readOnlyFileNamed: 'scripts\SqueaklandSplash.morph') fileInObjectAndCode.
-
- "Dump all morphs so we don't hold onto anything"
- World submorphsDo:[:m| m delete].
-
- World color: (Color r: 0.9 g: 0.9 b: 1.0).
-
- "Clear all server entries"
- ServerDirectory serverNames do: [:each | ServerDirectory removeServerNamed: each].
- SystemVersion current resetHighestUpdate.
-
- "Add the squeakalpha update stream"
- serverName := 'Squeakalpha'.
- serverURL := 'squeakalpha.org'.
- serverDir := serverURL , '/'.
-
- updateServer := ServerDirectory new.
- updateServer
- server: serverURL;
- directory: 'updates/';
- altUrl: serverDir;
- user: 'sqland';
- password: nil.
- Utilities updateUrlLists addFirst: {serverName. {serverDir. }.}.
-
- "Add the squeakland update stream"
- serverName := 'Squeakland'.
- serverURL := 'squeakland.org'.
- serverDir := serverURL , '/'.
-
- updateServer := ServerDirectory new.
- updateServer
- server: serverURL;
- directory: 'public_html/updates/';
- altUrl: serverDir.
- Utilities updateUrlLists addFirst: {serverName. {serverDir. }.}.
-
- !
Item was removed:
- ----- Method: ReleaseBuilderSqueakland>>installVersionInfo (in category 'utilities') -----
- installVersionInfo
- "ReleaseBuilderSqueakland 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: 'Squeakland 3.8.' , highestUpdate printString.
- SystemVersion newVersion: newVersion.
- (self confirm: self version , '
- Is this the correct version designation?
- If not, choose no, and fix it.') ifFalse: [^ self].
- !
Item was removed:
- ----- Method: ReleaseBuilderSqueakland>>setupLanguageSpecifics (in category 'utilities') -----
- setupLanguageSpecifics
- "ReleaseBuilderSqueakland new setupLanguageSpecifics"
- Locale current languageEnvironment setupSqueaklandSpecifics!
1
0
Frank Shearar uploaded a new version of 45Deprecated to project The Trunk:
http://source.squeak.org/trunk/45Deprecated-fbs.2.mcz
==================== Summary ====================
Name: 45Deprecated-fbs.2
Author: fbs
Time: 2 May 2013, 10:48:54.126 pm
UUID: 929d7158-8a95-4cc2-a867-25158661ed87
Ancestors: 45Deprecated-fbs.1
The special purpose ReleaseBuilders here. Move all apparently unused instance-side ReleaseBuilder methods here.
=============== Diff against 45Deprecated-fbs.1 ===============
Item was added:
+ SystemOrganization addCategory: #'45Deprecated'!
Item was added:
+ ----- Method: ReleaseBuilder>>cleanUpChanges (in category '*45Deprecated-utilities') -----
+ cleanUpChanges
+ "Clean up the change sets"
+
+ "ReleaseBuilder 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 added:
+ ----- Method: ReleaseBuilder>>cleanUpEtoys (in category '*45Deprecated-utilities') -----
+ cleanUpEtoys
+ "ReleaseBuilder 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]!
Item was added:
+ ----- Method: ReleaseBuilder>>finalCleanup (in category '*45Deprecated-utilities') -----
+ finalCleanup
+ "ReleaseBuilder 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.
+ Symbol compactSymbolTable.!
Item was added:
+ ----- Method: ReleaseBuilder>>finalStripping (in category '*45Deprecated-utilities') -----
+ finalStripping
+ "ReleaseBuilder new finalStripping"
+ !
Item was added:
+ ----- Method: ReleaseBuilder>>fixObsoleteReferences (in category '*45Deprecated-utilities') -----
+ fixObsoleteReferences
+ "ReleaseBuilder 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 inspect]!
Item was added:
+ ----- Method: ReleaseBuilder>>initialCleanup (in category '*45Deprecated-utilities') -----
+ initialCleanup
+ "Perform various image cleanups in preparation for making a Squeak gamma release candidate image."
+ "ReleaseBuilder new initialCleanup"
+
+ Undeclared removeUnreferencedKeys.
+ StandardScriptingSystem initialize.
+
+ (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: 'Unnamed1'.
+ Smalltalk garbageCollect.
+
+ "Reinitialize DataStream; it may hold on to some zapped entitities"
+ DataStream initialize.
+
+ Smalltalk garbageCollect.
+ ScheduledControllers := nil.
+ Smalltalk garbageCollect.
+
+ SMSqueakMap default purge.
+
+ !
Item was added:
+ ----- Method: ReleaseBuilder>>installPreferences (in category '*45Deprecated-utilities') -----
+ installPreferences
+ Preferences initialize.
+ Preferences chooseInitialSettings.
+ !
Item was added:
+ ----- Method: ReleaseBuilder>>installReleaseSpecifics (in category '*45Deprecated-utilities') -----
+ installReleaseSpecifics
+ "ReleaseBuilder new installReleaseSpecifics"
+ !
Item was added:
+ ----- Method: ReleaseBuilder>>installVersionInfo (in category '*45Deprecated-utilities') -----
+ installVersionInfo
+ "ReleaseBuilder new installVersionInfo"
+ !
Item was added:
+ ----- Method: ReleaseBuilder>>makeSqueaklandRelease (in category '*45Deprecated-squeakland') -----
+ makeSqueaklandRelease
+ "ReleaseBuilder new makeSqueaklandRelease"
+
+ self
+ makeSqueaklandReleasePhasePrepare; makeSqueaklandReleasePhaseStripping; makeSqueaklandReleasePhaseFinalSettings; makeSqueaklandReleasePhaseCleanup!
Item was added:
+ ----- Method: ReleaseBuilder>>makeSqueaklandReleasePhaseCleanup (in category '*45Deprecated-squeakland') -----
+ makeSqueaklandReleasePhaseCleanup
+ "ReleaseBuilder new makeSqueaklandReleasePhaseCleanup"
+
+ Smalltalk at: #Browser ifPresent:[:br| br initialize].
+ ChangeSet
+ removeChangeSetsNamedSuchThat: [:cs | cs name ~= ChangeSet current name].
+ ChangeSet current clear.
+ ChangeSet current name: 'Unnamed1'.
+ Smalltalk garbageCollect.
+ "Reinitialize DataStream; it may hold on to some zapped entitities"
+ DataStream initialize.
+ "Remove existing player references"
+ References keys do: [:k | References removeKey: k].
+ Smalltalk garbageCollect.
+ ScheduledControllers := nil.
+ Behavior flushObsoleteSubclasses.
+ Smalltalk
+ garbageCollect;
+ garbageCollect.
+ SystemNavigation default obsoleteBehaviors isEmpty
+ ifFalse: [self error: 'Still have obsolete behaviors'].
+
+ "Reinitialize DataStream; it may hold on to some zapped entitities"
+ DataStream initialize.
+ Smalltalk fixObsoleteReferences.
+ Smalltalk abandonTempNames.
+ Smalltalk zapAllOtherProjects.
+ Smalltalk flushClassNameCache.
+ Symbol compactSymbolTable!
Item was added:
+ ----- Method: ReleaseBuilder>>makeSqueaklandReleasePhaseFinalSettings (in category '*45Deprecated-squeakland') -----
+ makeSqueaklandReleasePhaseFinalSettings
+ "ReleaseBuilder new makeSqueaklandReleasePhaseFinalSettings"
+
+ | serverName serverURL serverDir updateServer highestUpdate newVersion |
+
+ ProjectLauncher splashMorph: (FileDirectory default readOnlyFileNamed: 'scripts\SqueaklandSplash.morph') fileInObjectAndCode.
+
+ "Dump all morphs so we don't hold onto anything"
+ World submorphsDo:[:m| m delete].
+
+ #(
+ (honorDesktopCmdKeys false)
+ (warnIfNoChangesFile false)
+ (warnIfNoSourcesFile false)
+ (showDirectionForSketches true)
+ (menuColorFromWorld false)
+ (unlimitedPaintArea true)
+ (useGlobalFlaps false)
+ (mvcProjectsAllowed false)
+ (projectViewsInWindows false)
+ (automaticKeyGeneration true)
+ (securityChecksEnabled true)
+ (showSecurityStatus false)
+ (startInUntrustedDirectory true)
+ (warnAboutInsecureContent false)
+ (promptForUpdateServer false)
+ (fastDragWindowForMorphic false)
+
+ (externalServerDefsOnly true)
+ (expandedFormat false)
+ (eToyFriendly true)
+ (eToyLoginEnabled true)
+ (magicHalos true)
+ (mouseOverHalos true)
+ (biggerHandles false)
+ (selectiveHalos true)
+ (includeSoundControlInNavigator true)
+ (readDocumentAtStartup true)
+ (preserveTrash true)
+ (slideDismissalsToTrash true)
+
+ ) do:[:spec|
+ Preferences setPreference: spec first toValue: spec last].
+ "Workaround for bug"
+ Preferences enable: #readDocumentAtStartup.
+
+ World color: (Color r: 0.9 g: 0.9 b: 1.0).
+
+ "Clear all server entries"
+ ServerDirectory serverNames do: [:each | ServerDirectory removeServerNamed: each].
+ SystemVersion current resetHighestUpdate.
+
+ "Add the squeakalpha update stream"
+ serverName := 'Squeakalpha'.
+ serverURL := 'squeakalpha.org'.
+ serverDir := serverURL , '/'.
+
+ updateServer := ServerDirectory new.
+ updateServer
+ server: serverURL;
+ directory: 'updates/';
+ altUrl: serverDir;
+ user: 'sqland';
+ password: nil.
+ Utilities updateUrlLists addFirst: {serverName. {serverDir. }.}.
+
+ "Add the squeakland update stream"
+ serverName := 'Squeakland'.
+ serverURL := 'squeakland.org'.
+ serverDir := serverURL , '/'.
+
+ updateServer := ServerDirectory new.
+ updateServer
+ server: serverURL;
+ directory: 'public_html/updates/';
+ altUrl: serverDir.
+ Utilities updateUrlLists addFirst: {serverName. {serverDir. }.}.
+
+ highestUpdate := SystemVersion current highestUpdate.
+ (self confirm: 'Reset highest update (' , highestUpdate printString , ')?')
+ ifTrue: [SystemVersion current highestUpdate: 0].
+
+ newVersion := UIManager default request: 'New version designation:' initialAnswer: 'Squeakland 3.8.' , highestUpdate printString.
+ SystemVersion newVersion: newVersion.
+ (self confirm: self version , '
+ Is this the correct version designation?
+ If not, choose no, and fix it.') ifFalse: [^ self].
+ !
Item was added:
+ ----- Method: ReleaseBuilder>>makeSqueaklandReleasePhasePrepare (in category '*45Deprecated-squeakland') -----
+ makeSqueaklandReleasePhasePrepare
+ "ReleaseBuilder new makeSqueaklandReleasePhasePrepare"
+
+ Undeclared removeUnreferencedKeys.
+ StandardScriptingSystem initialize.
+ Preferences initialize.
+ "(Object classPool at: #DependentsFields) size > 1 ifTrue: [self error:'Still have dependents']."
+ Undeclared isEmpty ifFalse: [self error:'Please clean out Undeclared'].
+
+ "Dump all projects"
+ Project allSubInstancesDo:[:prj| prj == Project current ifFalse:[Project deletingProject: prj]].
+
+ "Set new look so we don't need older fonts later"
+ StandardScriptingSystem applyNewEToyLook.
+
+ Smalltalk at: #Browser ifPresent:[:br| br initialize].
+ ScriptingSystem deletePrivateGraphics.
+ ChangeSet removeChangeSetsNamedSuchThat:
+ [:cs| cs name ~= ChangeSet current name].
+ ChangeSet current clear.
+ ChangeSet current name: 'Unnamed1'.
+ Smalltalk garbageCollect.
+ "Reinitialize DataStream; it may hold on to some zapped entitities"
+ DataStream initialize.
+ "Remove existing player references"
+ References keys do:[:k| References removeKey: k].
+
+ Smalltalk garbageCollect.
+ ScheduledControllers := nil.
+ Smalltalk garbageCollect.
+ !
Item was added:
+ ----- Method: ReleaseBuilder>>makeSqueaklandReleasePhaseStripping (in category '*45Deprecated-squeakland') -----
+ makeSqueaklandReleasePhaseStripping
+ "ReleaseBuilder new makeSqueaklandReleasePhaseStripping"
+
+ #(#Helvetica #Palatino #Courier #ComicSansMS )
+ do: [:n | TextConstants
+ removeKey: n
+ ifAbsent: []].
+ Smalltalk
+ at: #Player
+ ifPresent: [:superCls | superCls
+ allSubclassesDo: [:cls |
+ cls isSystemDefined
+ ifFalse: [cls removeFromSystem]]].
+ Smalltalk garbageCollect.
+ Smalltalk discardFFI; discardSUnit; discardSpeech.
+ "discardMVC;"
+ SystemOrganization removeEmptyCategories.
+ Smalltalk garbageCollect.
+ ScheduledControllers := nil.
+ Behavior flushObsoleteSubclasses.
+ Smalltalk garbageCollect; garbageCollect.
+ DataStream initialize.
+ Smalltalk fixObsoleteReferences!
Item was added:
+ ----- Method: ReleaseBuilder>>prepareReleaseImage (in category '*45Deprecated-utilities') -----
+ prepareReleaseImage
+ "Perform various image cleanups in preparation for making a Squeak gamma release candidate image."
+ "ReleaseBuilder 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
+ initialCleanup;
+ installPreferences;
+ finalStripping;
+ installReleaseSpecifics;
+ finalCleanup;
+ installVersionInfo
+ !
Item was added:
+ ReleaseBuilder subclass: #ReleaseBuilderDeveloper
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: '45Deprecated'!
+
+ !ReleaseBuilderDeveloper commentStamp: 'gk 2/28/2005 13:27' prior: 0!
+ This release builder subclass is used for the official Squeak distribution Basic, which currently is the base image of Squeak.
+ Full is then built on top of Basic using a loadscript from SqueakMap. Minimal is constructed using another script from SqueakMap that removes packages that are included in Basic.!
Item was added:
+ ----- Method: ReleaseBuilderDeveloper>>cleanUpChanges (in category 'utilities') -----
+ cleanUpChanges
+ "Clean up the change sets"
+
+ "ReleaseBuilderDeveloper new cleanUpChanges"
+
+ !
Item was added:
+ ----- Method: ReleaseBuilderDeveloper>>installPreferences (in category 'utilities') -----
+ installPreferences
+ super installPreferences.
+ #(
+ (updateFromServerAtStartup true)
+
+ ) do:[:spec|
+ Preferences setPreference: spec first toValue: spec last]!
Item was added:
+ ----- Method: ReleaseBuilderDeveloper>>installReleaseSpecifics (in category 'utilities') -----
+ installReleaseSpecifics
+ "Currently just clear and add the ServerDirectories
+ and update streams we want as default."
+
+ "Clear all server entries"
+ ServerDirectory serverNames do: [:each | ServerDirectory removeServerNamed: each].
+
+ "Add default entries, added an entry for the new file area.
+ The others are the current ones that see to work
+ as of 2005-02-28 and I recreated them using source."
+ ServerDirectory addServer: (ServerDirectory new
+ type: #ftp;
+ user: '';
+ server: 'box1.squeakfoundation.org';
+ altUrl: 'http://box1.squeakfoundation.org/files';
+ directory: 'files';
+ keepAlive: false) named: 'Squeak.org Archive'.
+ ServerDirectory addServer: (ServerDirectory new
+ type: #ftp;
+ server: 'st.cs.uiuc.edu';
+ user: 'anonymous';
+ directory: '/Smalltalk/Squeak';
+ keepAlive: false) named: 'UIUC Archive'.
+ ServerDirectory addServer: (ServerDirectory new
+ type: #ftp;
+ server: 'ftp.create.ucsb.edu';
+ user: 'anonymous';
+ directory: '/pub/Smalltalk/Squeak';
+ keepAlive: false) named: 'UCSBCreate Archive'.
+ ServerDirectory addServer: SuperSwikiServer defaultSuperSwiki named: 'Bob SuperSwiki'.
+ ServerDirectory addServer: (SuperSwikiServer new
+ type: #http;
+ server: 'squeakland.org:8080';
+ altUrl: 'http://www.squeakland.org/uploads';
+ directory: '/super/SuperSwikiProj';
+ keepAlive: false;
+ acceptsUploads: true) named: 'Squeakland SuperSwiki'.
+ ServerDirectory addServer: (HTTPServerDirectory new
+ type: #ftp;
+ user: 'sqland';
+ server: 'www.squeakland.org';
+ altUrl: 'http://www.squeakland.org/projects';
+ directory: 'projects';
+ keepAlive: false) named: 'Squeakland Projects'.
+
+ "Add the update streams here just as Squeakland does?
+ serverName := 'Squeakland'.
+ serverURL := 'squeakland.org'.
+ serverDir := serverURL , '/'.
+ updateServer := ServerDirectory new.
+ updateServer
+ server: serverURL;
+ directory: 'public:=html/updates/';
+ altUrl: serverDir.
+ Utilities updateUrlLists addFirst: {serverName. {serverDir. }.}.
+ "
+ !
Item was added:
+ ReleaseBuilder subclass: #ReleaseBuilderNihongo
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: '45Deprecated'!
Item was added:
+ ----- Method: ReleaseBuilderNihongo>>release (in category 'release') -----
+ release
+ "self release"
+
+ Utilities emptyScrapsBook.
+
+ Display setExtent: 960@720 depth: 16.
+ World color: (Color r: 0.935 g: 0.935 b: 0.935).
+
+ "Preferences takanawa."
+ Preferences setPreference: #magicHalos toValue: false.
+ Preferences setPreference: #magicHalos toValue: true.
+ Preferences setPreference: #mouseOverHalos toValue: false.
+ Preferences setPreference: #mouseOverHalos toValue: true.
+
+ Player abandonUnnecessaryUniclasses.
+ Player freeUnreferencedSubclasses.
+ Player removeUninstantiatedSubclassesSilently.
+
+ PartsBin initialize.
+ Flaps disableGlobalFlaps: false.
+ Flaps addAndEnableEToyFlaps.
+ ActiveWorld addGlobalFlaps.
+ Flaps sharedFlapsAlongBottom.
+
+ Locale currentPlatform: (Locale isoLanguage: 'ja').
+ Locale switchToID: (LocaleID isoLanguage: 'ja').
+ Preferences restoreDefaultFonts.
+ StrikeFont setupDefaultFallbackFont.
+ Project current updateLocaleDependents.
+
+ "Dump all projects"
+ Project allSubInstancesDo:[:prj| prj == Project current ifFalse:[Project deletingProject: prj]].
+
+ ChangeSet current clear.
+ ChangeSet current name: 'Unnamed1'.
+ Smalltalk garbageCollect.
+
+
+ !
Item was added:
+ ReleaseBuilder subclass: #ReleaseBuilderSqueakland
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: '45Deprecated'!
Item was added:
+ ----- Method: ReleaseBuilderSqueakland>>finalCleanup (in category 'utilities') -----
+ finalCleanup
+ "ReleaseBuilder new initialCleanup"
+
+
+ Smalltalk abandonTempNames.
+ Smalltalk zapAllOtherProjects.
+
+ super finalCleanup!
Item was added:
+ ----- Method: ReleaseBuilderSqueakland>>finalStripping (in category 'utilities') -----
+ finalStripping
+ "ReleaseBuilderSqueakland new finalStripping"
+
+ #(#Helvetica #Palatino #Courier #ComicSansMS )
+ do: [:n | TextConstants
+ removeKey: n
+ ifAbsent: []].
+ Smalltalk
+ at: #Player
+ ifPresent: [:superCls | superCls
+ allSubclassesDo: [:cls |
+ cls isSystemDefined
+ ifFalse: [cls removeFromSystem]]].
+ Smalltalk garbageCollect.
+ Smalltalk discardFFI; discardSUnit; discardSpeech.
+ "discardMVC;"
+ SystemOrganization removeEmptyCategories.
+ !
Item was added:
+ ----- Method: ReleaseBuilderSqueakland>>initialCleanup (in category 'utilities') -----
+ initialCleanup
+ "ReleaseBuilder new initialCleanup"
+
+ Smalltalk at: #Browser ifPresent:[:br| br initialize].
+ ChangeSet removeChangeSetsNamedSuchThat:
+ [:cs| cs name ~= ChangeSet current name].
+
+ super initialCleanup!
Item was added:
+ ----- Method: ReleaseBuilderSqueakland>>installPreferences (in category 'utilities') -----
+ installPreferences
+
+ #(
+ (honorDesktopCmdKeys false)
+ (warnIfNoChangesFile false)
+ (warnIfNoSourcesFile false)
+ (showDirectionForSketches true)
+ (menuColorFromWorld false)
+ (unlimitedPaintArea true)
+ (useGlobalFlaps false)
+ (mvcProjectsAllowed false)
+ (projectViewsInWindows false)
+ (automaticKeyGeneration true)
+ (securityChecksEnabled true)
+ (showSecurityStatus false)
+ (startInUntrustedDirectory true)
+ (warnAboutInsecureContent false)
+ (promptForUpdateServer false)
+ (fastDragWindowForMorphic false)
+
+ (externalServerDefsOnly true)
+ (expandedFormat false)
+ (eToyFriendly true)
+ (eToyLoginEnabled true)
+ (magicHalos true)
+ (mouseOverHalos true)
+ (biggerHandles false)
+ (selectiveHalos true)
+ (includeSoundControlInNavigator true)
+ (readDocumentAtStartup true)
+ (preserveTrash true)
+ (slideDismissalsToTrash true)
+ (propertySheetFromHalo true)
+
+ ) do:[:spec|
+ Preferences setPreference: spec first toValue: spec last].
+ "Workaround for bug"
+ Preferences enable: #readDocumentAtStartup.
+ !
Item was added:
+ ----- Method: ReleaseBuilderSqueakland>>installReleaseSpecifics (in category 'utilities') -----
+ installReleaseSpecifics
+ "ReleaseBuilderSqueakland new installReleaseSpecifics"
+
+ | serverName serverURL serverDir updateServer |
+
+ ProjectLauncher splashMorph: (FileDirectory default readOnlyFileNamed: 'scripts\SqueaklandSplash.morph') fileInObjectAndCode.
+
+ "Dump all morphs so we don't hold onto anything"
+ World submorphsDo:[:m| m delete].
+
+ World color: (Color r: 0.9 g: 0.9 b: 1.0).
+
+ "Clear all server entries"
+ ServerDirectory serverNames do: [:each | ServerDirectory removeServerNamed: each].
+ SystemVersion current resetHighestUpdate.
+
+ "Add the squeakalpha update stream"
+ serverName := 'Squeakalpha'.
+ serverURL := 'squeakalpha.org'.
+ serverDir := serverURL , '/'.
+
+ updateServer := ServerDirectory new.
+ updateServer
+ server: serverURL;
+ directory: 'updates/';
+ altUrl: serverDir;
+ user: 'sqland';
+ password: nil.
+ Utilities updateUrlLists addFirst: {serverName. {serverDir. }.}.
+
+ "Add the squeakland update stream"
+ serverName := 'Squeakland'.
+ serverURL := 'squeakland.org'.
+ serverDir := serverURL , '/'.
+
+ updateServer := ServerDirectory new.
+ updateServer
+ server: serverURL;
+ directory: 'public_html/updates/';
+ altUrl: serverDir.
+ Utilities updateUrlLists addFirst: {serverName. {serverDir. }.}.
+
+ !
Item was added:
+ ----- Method: ReleaseBuilderSqueakland>>installVersionInfo (in category 'utilities') -----
+ installVersionInfo
+ "ReleaseBuilderSqueakland 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: 'Squeakland 3.8.' , highestUpdate printString.
+ SystemVersion newVersion: newVersion.
+ (self confirm: self version , '
+ Is this the correct version designation?
+ If not, choose no, and fix it.') ifFalse: [^ self].
+ !
Item was added:
+ ----- Method: ReleaseBuilderSqueakland>>setupLanguageSpecifics (in category 'utilities') -----
+ setupLanguageSpecifics
+ "ReleaseBuilderSqueakland new setupLanguageSpecifics"
+ Locale current languageEnvironment setupSqueaklandSpecifics!
1
0
Frank Shearar uploaded a new version of ScriptLoader to project The Trunk:
http://source.squeak.org/trunk/ScriptLoader-fbs.336.mcz
==================== Summary ====================
Name: ScriptLoader-fbs.336
Author: fbs
Time: 3 May 2013, 9:41:56.186 am
UUID: 0c887eeb-7749-44e9-8828-ccfab8144b57
Ancestors: ScriptLoader-eem.335
It's better to refer to one's own class through #class: it plays much nicer when someone subclasses you.
=============== Diff against ScriptLoader-eem.335 ===============
Item was changed:
----- Method: ScriptLoader>>getLatestScriptNumber (in category 'private helpers') -----
getLatestScriptNumber
| upfroms |
+ upfroms := self class selectors select: [:each | 'script*' match: each ].
- upfroms := ScriptLoader 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 changed:
----- Method: ScriptLoader>>getLatestUpdateNumber (in category 'private helpers') -----
getLatestUpdateNumber
| upfroms |
+ upfroms := self class selectors select: [:each | 'updateFrom*' match: each ].
- upfroms := ScriptLoader selectors select: [:each | 'updateFrom*' match: each ].
upfroms := upfroms collect: [:each | (each asString last: 4) asNumber].
^ upfroms asSortedCollection last!
1
0
Frank Shearar uploaded a new version of ScriptLoader to project The Trunk:
http://source.squeak.org/trunk/ScriptLoader-fbs.336.mcz
==================== Summary ====================
Name: ScriptLoader-fbs.336
Author: fbs
Time: 3 May 2013, 9:41:56.186 am
UUID: 0c887eeb-7749-44e9-8828-ccfab8144b57
Ancestors: ScriptLoader-eem.335
It's better to refer to one's own class through #class: it plays much nicer when someone subclasses you.
=============== Diff against ScriptLoader-eem.335 ===============
Item was changed:
----- Method: ScriptLoader>>getLatestScriptNumber (in category 'private helpers') -----
getLatestScriptNumber
| upfroms |
+ upfroms := self class selectors select: [:each | 'script*' match: each ].
- upfroms := ScriptLoader 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 changed:
----- Method: ScriptLoader>>getLatestUpdateNumber (in category 'private helpers') -----
getLatestUpdateNumber
| upfroms |
+ upfroms := self class selectors select: [:each | 'updateFrom*' match: each ].
- upfroms := ScriptLoader selectors select: [:each | 'updateFrom*' match: each ].
upfroms := upfroms collect: [:each | (each asString last: 4) asNumber].
^ upfroms asSortedCollection last!
1
0
Frank Shearar uploaded a new version of ScriptLoader to project The Trunk:
http://source.squeak.org/trunk/ScriptLoader-fbs.336.mcz
==================== Summary ====================
Name: ScriptLoader-fbs.336
Author: fbs
Time: 3 May 2013, 9:41:56.186 am
UUID: 0c887eeb-7749-44e9-8828-ccfab8144b57
Ancestors: ScriptLoader-eem.335
It's better to refer to one's own class through #class: it plays much nicer when someone subclasses you.
=============== Diff against ScriptLoader-eem.335 ===============
Item was changed:
----- Method: ScriptLoader>>getLatestScriptNumber (in category 'private helpers') -----
getLatestScriptNumber
| upfroms |
+ upfroms := self class selectors select: [:each | 'script*' match: each ].
- upfroms := ScriptLoader 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 changed:
----- Method: ScriptLoader>>getLatestUpdateNumber (in category 'private helpers') -----
getLatestUpdateNumber
| upfroms |
+ upfroms := self class selectors select: [:each | 'updateFrom*' match: each ].
- upfroms := ScriptLoader selectors select: [:each | 'updateFrom*' match: each ].
upfroms := upfroms collect: [:each | (each asString last: 4) asNumber].
^ upfroms asSortedCollection last!
1
0