Squeak-dev May 2013

squeak-dev@lists.squeakfoundation.org

59 participants
334 discussions

The Trunk: NetworkTests-fbs.36.mcz
by commits＠source.squeak.org 03 May '13

03 May '13

Frank Shearar uploaded a new version of NetworkTests to project The Trunk: http://source.squeak.org/trunk/NetworkTests-fbs.36.mcz ==================== Summary ==================== Name: NetworkTests-fbs.36 Author: fbs Time: 3 May 2013, 9:40:46.384 am UUID: 4ae3eef3-36be-4f65-9b78-b2edf732b7e6 Ancestors: NetworkTests-dtl.35 Verify that we accept an email address with a '+' in it. =============== Diff against NetworkTests-dtl.35 =============== Item was changed: SystemOrganization addCategory: #'NetworkTests-Kernel'! SystemOrganization addCategory: #'NetworkTests-Protocols'! SystemOrganization addCategory: #'NetworkTests-RFC822'! + SystemOrganization addCategory: #'NetworkTests-URI'! SystemOrganization addCategory: #'NetworkTests-UUID'! SystemOrganization addCategory: #'NetworkTests-Url'! - SystemOrganization addCategory: #'NetworkTests-URI'! Item was changed: ----- Method: MailAddressParserTest>>testAddressesIn (in category 'tests') ----- testAddressesIn | testString correctAnswer | + testString := 'joe(a)lama.com, joe2(a)lama.com joe3(a)lama.com joe4 , Not an Address <joe5@address>, joe.(annoying (nested) comment)literal(a)[1.2.3.4], "an annoying" group : joe1@groupie, joe2@groupie, "Joey" joe3@groupy, "joe6"."joe8"@group.com;, Lex''s email account <lex>, foo+bar(a)baz.com'. - testString := 'joe(a)lama.com, joe2(a)lama.com joe3(a)lama.com joe4 , Not an Address <joe5@address>, joe.(annoying (nested) comment)literal(a)[1.2.3.4], "an annoying" group : joe1@groupie, joe2@groupie, "Joey" joe3@groupy, "joe6"."joe8"@group.com;, Lex''s email account <lex>'. + correctAnswer := #('joe(a)lama.com' 'joe2(a)lama.com' 'joe3(a)lama.com' 'joe4' 'joe5@address' 'joe.literal(a)[1.2.3.4]' 'joe1@groupie' 'joe2@groupie' '"Joey"' 'joe3@groupy' '"joe6"."joe8"@group.com' 'lex' 'foo+bar(a)baz.com') asOrderedCollection. - correctAnswer := #('joe(a)lama.com' 'joe2(a)lama.com' 'joe3(a)lama.com' 'joe4' 'joe5@address' 'joe.literal(a)[1.2.3.4]' 'joe1@groupie' 'joe2@groupie' '"Joey"' 'joe3@groupy' '"joe6"."joe8"@group.com' 'lex') asOrderedCollection. self assert: ((MailAddressParser addressesIn: testString) = correctAnswer).!

1 0

Daily Commit Log
by commits＠source.squeak.org 03 May '13

03 May '13

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2013-May/005892.html Name: Protocols-fbs.40 Ancestors: Protocols-ael.39 "a the list" -> "the list". ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-May/005893.html Name: SmallLand-ColorTheme-fbs.2 Ancestors: SmallLand-ColorTheme-fbs.1 Move the SmallLand themes/preferences to the SmallLand-ColorTheme package. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-May/005894.html Name: System-fbs.527 Ancestors: System-cwp.526 Move the SmallLand themes/preferences to the SmallLand-ColorTheme package. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-May/005895.html Name: Collections-fbs.516 Ancestors: Collections-ul.515 Surrounding the -> in an Assocation in printed form allows the left side to be a binary selector without things breaking: #* -> #+ otherwise prints as '#*->#+', which is the Symbol #*-> followed by garbage. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-May/005896.html Name: CollectionsTests-fbs.203 Ancestors: CollectionsTests-fbs.202 Tests for Collections-fbs.516, showing that an Association can round-trip through #storeString. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-May/005897.html Name: TraitsTests-fbs.11 Ancestors: TraitsTests-ul.10 #assert:equals: is much better than #assert: ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-May/005898.html Name: Collections-fbs.517 Ancestors: Collections-fbs.516 Separating with whitespace will _always_ work, but at the cost of increased ugliness when not needed. We know that having a binary selector as a key breaks printing, so let's special-case that. At some later stage we might need to revisit these two methods and add further special cases (or just use whitespace). =============================================

1 0

Re: [squeak-dev] The Inbox: 45Deprecated-fbs.2.mcz
by Frank Shearar 02 May '13

02 May '13

On 2 May 2013 22:48, <commits(a)source.squeak.org> wrote: > Frank Shearar uploaded a new version of 45Deprecated to project The Inbox: > http://source.squeak.org/inbox/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 =============== Several of the instance-side ReleaseBuilder methods are plain broken - no senders of #discardFFI for instance - or are duplicated (like #fixObsoleteReferences, which is implemented nearly identically in BOTH ScriptLoader AND SmalltalkImage). frank

1 0

The Inbox: 45Deprecated-fbs.2.mcz
by commits＠source.squeak.org 02 May '13

02 May '13

Frank Shearar uploaded a new version of 45Deprecated to project The Inbox: http://source.squeak.org/inbox/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

The Inbox: ReleaseBuilder-fbs.96.mcz
by commits＠source.squeak.org 02 May '13

02 May '13

Frank Shearar uploaded a new version of ReleaseBuilder to project The Inbox: http://source.squeak.org/inbox/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

Re: [squeak-dev] The Inbox: Collections-fbs.516.mcz
by Frank Shearar 02 May '13

02 May '13

On 1 May 2013 22:14, <commits(a)source.squeak.org> wrote: > Frank Shearar uploaded a new version of Collections to project The Inbox: > http://source.squeak.org/inbox/Collections-fbs.516.mcz > > ==================== Summary ==================== > > Name: Collections-fbs.516 > Author: fbs > Time: 1 May 2013, 10:14:23.588 pm > UUID: e787006a-d096-47f3-93da-c4681285fae2 > Ancestors: Collections-ul.515 > > Surrounding the -> in an Assocation in printed form allows the left side to be a binary selector without things breaking: #* -> #+ otherwise prints as '#*->#+', which is the Symbol #*-> followed by garbage. > > =============== Diff against Collections-ul.515 =============== Just to be clear, you're +1'ing this change, Nicolas? (I didn't add tests for the Association >> #printString; I'll understand if you demand these!) frank

3 8

Re: [squeak-dev] The Trunk: Collections-fbs.517.mcz
by Chris Muller 02 May '13

02 May '13

http://www.youtube.com/watch?v=DDZBzvTDhGU

2 1

The Trunk: Collections-fbs.517.mcz
by commits＠source.squeak.org 02 May '13

02 May '13

Frank Shearar uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-fbs.517.mcz ==================== Summary ==================== Name: Collections-fbs.517 Author: fbs Time: 2 May 2013, 9:05:50.998 pm UUID: f915b900-af5c-491f-a700-0f9899f72044 Ancestors: Collections-fbs.516 Separating with whitespace will _always_ work, but at the cost of increased ugliness when not needed. We know that having a binary selector as a key breaks printing, so let's special-case that. At some later stage we might need to revisit these two methods and add further special cases (or just use whitespace). =============== Diff against Collections-fbs.516 =============== Item was changed: ----- Method: Association>>printOn: (in category 'printing') ----- printOn: aStream + | arrow | - super printOn: aStream. "If the key is a binary selector and we don't use whitespace, we will stream (key, '->') asSymbol." + arrow := (key isSymbol and: [key isBinary]) ifTrue: [' -> '] ifFalse: ['->']. + aStream nextPutAll: arrow. - aStream nextPutAll: ' -> '. value printOn: aStream! Item was changed: ----- Method: Association>>storeOn: (in category 'printing') ----- storeOn: aStream + | arrow | "Store in the format (key->value)" aStream nextPut: $(. key storeOn: aStream. + "If the key is a binary selector and we don't use whitespace, we will stream (key, '->') asSymbol." + arrow := (key isSymbol and: [key isBinary]) ifTrue: [' -> '] ifFalse: ['->']. + aStream nextPutAll: arrow. - "If key is a binary selector and we don't use whitespace, we will stream (key, '->') asSymbol." - aStream nextPutAll: ' -> '. value storeOn: aStream. aStream nextPut: $)!

1 0

The Trunk: TraitsTests-fbs.11.mcz
by commits＠source.squeak.org 02 May '13

02 May '13

Frank Shearar uploaded a new version of TraitsTests to project The Trunk: http://source.squeak.org/trunk/TraitsTests-fbs.11.mcz ==================== Summary ==================== Name: TraitsTests-fbs.11 Author: fbs Time: 2 May 2013, 8:59:12.516 pm UUID: 9a7215e9-a6c8-4844-8e4c-a7387e03f5a7 Ancestors: TraitsTests-ul.10 #assert:equals: is much better than #assert: =============== Diff against TraitsTests-ul.10 =============== Item was changed: ----- Method: TraitFileOutTest>>testFileOutCategory (in category 'testing') ----- testFileOutCategory "File out whole system category, delete all classes and traits and then file them in again." "self run: #testFileOutCategory" - | | SystemOrganization fileOutCategory: self categoryName. SystemOrganization removeSystemCategory: self categoryName. self deny: (Smalltalk globals keys includesAnyOf: #(CA CB TA TB TC TD)). self fileIn: self categoryName , '.st'.. self assert: (Smalltalk globals keys includesAllOf: #(CA CB TA TB TC TD)). ta := Smalltalk at: #TA. self assert: (ta isKindOf: Trait). + self assert: 'TB + TC @ {#cc->#c} - {#c}' equals: ta traitComposition asString. - self assert: ta traitComposition asString = 'TB + TC @ {#cc->#c} - {#c}'. self assert: (ta methodDict keys includesAllOf: #(a b cc)). cb := Smalltalk at: #CB. self assert: (cb isKindOf: Class). + self assert: 'TA' equals: cb traitComposition asString. - self assert: cb traitComposition asString = 'TA'. self assert: (cb methodDict keys includesAllOf: #(cb a b cc)). "test classSide traitComposition of CB" + self assert: 'TA classTrait + TC' equals: cb classSide traitComposition asString. - self assert: cb classSide traitComposition asString = 'TA classTrait + TC'. self assert: (cb classSide methodDict keys includesAllOf: #(d c)) ! Item was changed: ----- Method: TraitFileOutTest>>testFileOutTrait (in category 'testing') ----- testFileOutTrait "fileOut trait T6, remove it from system and then file it in again" "self run: #testFileOutTrait" | fileName | self t6 compile: 'localMethod: argument ^argument'. self t6 classSide compile: 'localClassSideMethod: argument ^argument'. self t6 fileOut. fileName := self t6 asString , '.st'. self resourceClassesAndTraits remove: self t6. self t6 removeFromSystem. self fileIn: fileName. self assert: (Smalltalk includesKey: #T6). TraitsResource current t6: (Smalltalk at: #T6). self resourceClassesAndTraits add: self t6. self assert: (self t6 isKindOf: Trait). + self assert: 'T1 + T2 @ {#m22Alias->#m22}' equals: self t6 traitComposition asString. - self assert: self t6 traitComposition asString = 'T1 + T2 @ {#m22Alias->#m22}'. self assert: (self t6 methodDict keys includesAllOf: #( #localMethod: #m11 #m12 #m13 #m21 #m22 #m22Alias )). + self assert: 2 equals: self t6 classSide methodDict size. + self assert: (self t6 classSide methodDict keys includes: #localClassSideMethod:) description: 'Missing selector #localClassSideMethod:'. + self assert: (self t6 classSide methodDict keys includes: #m2ClassSide:) description: 'Missing selector #m2ClassSide:'.! - self assert: self t6 classSide methodDict size = 2. - self assert: (self t6 classSide methodDict keys includesAllOf: #(#localClassSideMethod: #m2ClassSide: ))!

1 0

Unix socket plugin patch for systemd
by Max Leske 02 May '13

02 May '13

We've created a patch for the unix socket plugin that allows for socket activation via systemd. This is how it works: 1. tell systemd to link a socket to the vm (e.g. 8080) 2. send a request to the socket 3. systemd will launch the vm and hold the request until the image is connected to the port 4. (here's where the patch comes in) connect to the socket in the image (e.g. by starting WAKom - WAKom startOn: 8080) The patch is necessary because the primitive would fail when connecting to the socket (the plugin thinks that the socket is already in use). So here's my question: who is responsible for the plugin or would like to integrate the patch? Cheers, Max

3 3

Jump to page: