[Pkg] Tasks: Tasks-Squeak310-kph.34.mcz
squeak-dev-noreply at lists.squeakfoundation.org
squeak-dev-noreply at lists.squeakfoundation.org
Fri Dec 12 04:51:31 UTC 2008
A new version of Tasks-Squeak310 was added to project Tasks:
http://www.squeaksource.com/Tasks/Tasks-Squeak310-kph.34.mcz
==================== Summary ====================
Name: Tasks-Squeak310-kph.34
Author: kph
Time: 12 December 2008, 4:51:29 am
UUID: fbf73a43-f39d-4fa0-b27d-150fae90a865
Ancestors: Tasks-Squeak310-kph.33
Moved latest code to Squeak310MakeBuildCandidate
=============== Diff against Tasks-Squeak310-kph.33 ===============
Item was added:
+ ----- Method: Squeak310MakeBuildCandidate class>>taskBUILD (in category 'as yet unclassified') -----
+ taskBUILD
+
+ "starting with 3.10 or 3.10.2 get the image into a known state for fixes to be applied"
+
+ ^ self action: {
+
+ self taskResetFixesAutoDocumentation.
+
+ [World removeAllMorphs.
+ Transcript open ].
+
+ self taskTidyMorphs.
+
+ self taskSetPreferences.
+ self taskUpgradePackages.
+
+ self taskEssentialFixes.
+ self taskDocumentFixes. "so far"
+
+ self taskFinalize asTask run.
+
+ self taskTidyPackageOrganizer.
+ self taskSaveRehoming: self kernelPackages in: self repositoryInputBC.
+
+ self taskCleanUpAndSaveAs: SystemVersion current version
+ }
+
+ !
Item was added:
+ ----- Method: Squeak310MakeBuildCandidate class>>taskBuild (in category 'as yet unclassified') -----
+ taskBuild
+
+ "protected from being repeated by a waypoint"
+
+ ^ self waypoint: self taskBUILD.
+
+ !
Item was added:
+ TasksRelease subclass: #Squeak310MakeBuildCandidate
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Tasks-Squeak310'!
Item was added:
+ ----- Method: ReleaseAfterSqueak310 class>>suffixStatus (in category 'as yet unclassified') -----
+ suffixStatus
+
+ ^ '-prealpha'!
Item was added:
+ ----- Method: Squeak310MakeBuildCandidate class>>suffix (in category 'as yet unclassified') -----
+ suffix
+
+ ^ 'bc'!
Item was added:
+ ----- Method: Squeak310MakeBuildCandidate class>>versionString (in category 'as yet unclassified') -----
+ versionString
+
+ ^ 'Squeak3.10.2'!
Item was changed:
----- Method: ReleaseAfterSqueak310 class>>versionStatus (in category 'as yet unclassified') -----
versionStatus
+ ^ '-epsilon'!
- ^ 'prealpha'!
Item was added:
+ ----- Method: Squeak310MakeBuildCandidate class>>taskTidyPackageOrganizer (in category 'as yet unclassified') -----
+ taskTidyPackageOrganizer
+
+ ^ [
+ PackageOrganizer default unregisterPackageNamed: 'Morphic-CandidatesForGo'.
+ PackageOrganizer default unregisterPackageNamed: 'ToolBuilder'.
+ PackageOrganizer default unregisterPackageNamed: 'MonticelloConfigurations'.
+ ].!
Item was added:
+ ----- Method: ReleaseAfterSqueak310 class>>taskMakeRelease (in category 'as yet unclassified') -----
+ taskMakeRelease
+
+ | w |
+
+ self action: [
+ World removeAllMorphs.
+ Installer mc project: '311'; install: 'Documentation'.
+
+ w := Workspace openFile: 'Documentation/Welcome-' , self suffix, '.text'.
+
+ w label: ('Welcome to... ', SystemVersion current asString).
+ w containingWindow
+ position: (20 at 20);
+ extent: (200 at 300);
+ yourself.
+ ]!
Item was added:
+ ----- Method: Squeak310MakeBuildCandidate class>>taskSetPreferences (in category 'as yet unclassified') -----
+ taskSetPreferences
+
+ ^ self define: [ :task |
+ task action: [
+ #(
+ (mvcProjectsAllowed false)
+ (annotationPanes true)
+ (scrollBarsNarrow false)
+ (dismissAllOnOptionClose true)
+ (readDocumentAtStartup true)
+
+ ) do: [:spec|
+ Preferences setPreference: spec first toValue: spec last].
+ "Workaround for bug"
+ Preferences enable: #readDocumentAtStartup.
+ Display newDepth: 32.
+ ]
+ ].!
Item was added:
+ ----- Method: Squeak310MakeBuildCandidate class>>suffixStatus (in category 'as yet unclassified') -----
+ suffixStatus
+
+ ^ '-beta'!
Item was added:
+ ----- Method: Squeak310MakeBuildCandidate class>>taskTidyMorphs (in category 'as yet unclassified') -----
+ taskTidyMorphs
+
+ "thanks edgar"
+
+ ^ [
+
+ | 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 ifNotNilDo: [ :m | m delete ].
+ unwantedMorph := partBin submorphThat: [:any| (any arguments at: 2) = 'SUnit Runner'] ifNone: [].
+ unwantedMorph ifNotNilDo: [ :m | m delete ].
+ ].!
Item was added:
+ ----- Method: Squeak310MakeBuildCandidate class>>taskEssentialFixes (in category 'as yet unclassified') -----
+ taskEssentialFixes
+
+ "there are some fixes loaded with LPF, here are some more"
+
+ ^ self dependingOn: {
+
+ "proposer: keith"
+ "needed for SUnit to discover whether tests use the network"
+ " http://bugs.squeak.org/view.php?id=7199 "
+ self fixEssential: '7199: Expose Socket timeout to ProtocolClients'.
+
+ "building and removing things will trip on this"
+ " http://bugs.squeak.org/view.php?id=6868 "
+ self fixEssential: '6868: System Navigation-#obsoleteBehaviours chokes on ProtoObjects'.
+
+ "heres one I have been asking for for 2 years!!"
+ self fixEssential: '6466 LazyListMorph-listChanged'.
+
+ self fixEssential: '5669 Workspace openFile: convenience method'.
+
+ self fixEssential: '7244 Image cleanUp methods'.
+ }!
Item was added:
+ ----- Method: Squeak310MakeBuildCandidate class>>kernelPackages (in category 'as yet unclassified') -----
+ kernelPackages
+
+ ^ #('Sound' 'Files' 'Graphics' 'SystemChangeNotification' 'EToys' 'SystemChangeNotification-Tests' 'FlexibleVocabularies' 'Tests' 'VersionNumber' 'Compiler' 'NetworkTests' 'Traits' 'ST80' 'PreferenceBrowser' 'System' 'MorphicTests' '39Deprecated' 'Multilingual' 'Balloon' 'Network' 'Compression' 'Services-Base' 'TrueType' 'MorphicExtras' 'Morphic' 'Kernel' 'Exceptions' 'KernelTests' 'Nebraska' 'ToolBuilder-SUnit' 'ToolBuilder-Morphic' 'Protocols' 'Collections' 'ToolBuilder-MVC' 'ToolBuilder-Kernel' 'GraphicsTests' 'CollectionsTests' 'ScriptLoader' 'Tools')!
Item was added:
+ ----- Method: Squeak310MakeBuildCandidate class>>taskUpgradePackages (in category 'as yet unclassified') -----
+ taskUpgradePackages
+
+ ^ {
+ [
+ (Packages current named: 'Monticello15') addToPackageInfo.
+ (Packages current named: 'Sake') addToPackageInfo.
+ (Packages current named: 'Packages') addToPackageInfo.
+ ].
+
+ Packages current named: 'SUnitGUI-improved'.
+ Packages current named: 'Universes'.
+ Packages current named: 'SMLoader'.
+ Packages current named: 'SystemEditor'.
+
+ } asTask
+ !
Item was removed:
- ----- Method: ReleaseAfterSqueak310 class>>taskResetFixesAutoDocumentation (in category 'as yet unclassified') -----
- taskResetFixesAutoDocumentation
- ^ self define: [ :task |
-
- task action: ((SakeTask class: self) removeSelectorsMatching: '*')
-
- ].!
Item was removed:
- ----- Method: ReleaseAfterSqueak310 class>>taskSavePackagesIn: (in category 'as yet unclassified') -----
- taskSavePackagesIn: repo
-
- "starting with 3.10 or 3.10.2 get the image into a known state for fixes to be applied"
-
- ^ self define: [ :task |
-
- task if: [ self isSaving ].
-
- task action: {
- PackageOrganizer taskSaveAllPackagesIn: repo withComment: 'Saved from ', SystemVersion asString, '-', self suffix, '.', (self buildNumber ifNil: ['']) asString.
- }
- ].
- !
Item was removed:
- ----- Method: ReleaseAfterSqueak310 class>>taskBUILDCANDIDATE (in category 'as yet unclassified') -----
- taskBUILDCANDIDATE
-
- "starting with 3.10 or 3.10.2 get the image into a known state for fixes to be applied"
-
- ^ self define: [ :task |
-
- task action: {
-
- [ self suffix: 'bc' ].
-
- self taskResetFixesAutoDocumentation.
-
- self taskTidyWorld.
- self taskTidyMorphs.
-
- self taskSetPreferences.
- self taskUpgradePackages.
-
- self taskEssentialFixes.
- self taskDocumentFixes. "so far"
-
- self taskFinalize.
-
- self taskSavePackagesIn: self repositoryInputBC.
-
- }
- ].
- !
Item was removed:
- ----- Method: ReleaseAfterSqueak310 class>>taskBuildCandidate (in category 'as yet unclassified') -----
- taskBuildCandidate
-
- "protected from being repeated by a waypoint"
-
- ^ self define: [ :task |
-
- task if: [ self isWaypointMissing: #buildCandidate ].
-
- task action: {
-
- self taskBUILDCANDIDATE.
-
- [ self markWaypoint: #buildCandidate ].
- }.
-
- ].
- !
Item was removed:
- ----- Method: ReleaseAfterSqueak310 class>>taskSetPreferences (in category 'as yet unclassified') -----
- taskSetPreferences
-
- ^ self define: [ :task |
- task action: [
- #(
- (mvcProjectsAllowed false)
- (annotationPanes true)
- (scrollBarsNarrow false)
- (dismissAllOnOptionClose true)
- (readDocumentAtStartup true)
-
- ) do: [:spec|
- Preferences setPreference: spec first toValue: spec last].
- "Workaround for bug"
- Preferences enable: #readDocumentAtStartup.
- Display newDepth: 32.
- ]
- ].!
Item was removed:
- ----- Method: ReleaseAfterSqueak310 class>>taskTidyMorphs (in category 'as yet unclassified') -----
- taskTidyMorphs
-
- "thanks edgar"
-
- ^ [
-
- | 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 ifNotNilDo: [ :m | m delete ].
- unwantedMorph := partBin submorphThat: [:any| (any arguments at: 2) = 'SUnit Runner'] ifNone: [].
- unwantedMorph ifNotNilDo: [ :m | m delete ].
- ].!
Item was removed:
- ----- Method: ReleaseAfterSqueak310 class>>taskEssentialFixes (in category 'as yet unclassified') -----
- taskEssentialFixes
-
- ^ self dependingOn: {
-
- "proposer: keith"
- "needed for SUnit to discover whether tests use the network"
- " http://bugs.squeak.org/view.php?id=7199 "
- self fixEssential: '7199: Expose Socket timeout to ProtocolClients'.
-
- "proposer: keith"
- "building and removing things will trip on this"
- " http://bugs.squeak.org/view.php?id=6868 "
- self fixEssential: '6868: System Navigation-#obsoleteBehaviours chokes on ProtoObjects'.
-
- "heres one I have been asking for for 2 years!!"
- self fixEssential: '6466 LazyListMorph-listChanged'.
- }!
Item was removed:
- ReleaseAfterSqueak310 subclass: #ReleaseSqueak310
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Tasks-Squeak310'!
-
- !ReleaseSqueak310 commentStamp: 'kph 12/8/2008 18:31' prior: 0!
- This isStable and isUpdate!
Item was removed:
- ----- Method: ReleaseAfterSqueak310 class>>taskUpgradePackages (in category 'as yet unclassified') -----
- taskUpgradePackages
-
- ^ self action: [
-
- "external"
- Installer ss project: 'Testing'; installQuietly: 'SUnit' ; install: 'SUnitGUI'.
- Installer ss project: 'XMLSupport'; install: 'XML-Parser-mir.9'.
- Installer ss project: 'universes'; install: 'Universes'.
- Installer sf project: 'SqueakMap'; installQuietly: 'SMBase'; installQuietly: 'SMLoader'.
- ]
- !
More information about the Packages
mailing list