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