[squeak-dev] The Inbox: SMLoader-fbs.78.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Jan 9 12:55:32 UTC 2013
Frank Shearar uploaded a new version of SMLoader to project The Inbox:
http://source.squeak.org/inbox/SMLoader-fbs.78.mcz
==================== Summary ====================
Name: SMLoader-fbs.78
Author: fbs
Time: 9 January 2013, 12:55:26.488 pm
UUID: affd02cf-4ff4-4bd1-a33f-89ce0d974bf5
Ancestors: SMLoader-cmm.77
The UI part of supporting multiple Squeak versions in an SM release.
Todo: POSTing the multiple versions.
=============== Diff against SMLoader-cmm.77 ===============
Item was changed:
SystemOrganization addCategory: #SMLoader!
- SystemOrganization addCategory: #'SMLoader-Models'!
Item was changed:
----- Method: SMPackageRelease>>squeakVersion (in category '*smloader') -----
squeakVersion
+ ^ self squeakVersions last.!
- ^ self categories
- detect:
- [ : each | each parent = self map squeakVersions ]
- ifNone: [ ]!
Item was changed:
----- Method: SMPackageRelease>>squeakVersion: (in category '*smloader') -----
squeakVersion: aSMCategory
+ self squeakVersions: {aSMCategory}.!
- | vers |
- aSMCategory parent = self map squeakVersions ifFalse: [ self error: 'Not a squeakVersion category.' ].
- "Remove all squeakVersion-categories."
- [ vers := self squeakVersion.
- vers notNil ] whileTrue: [ self removeCategory: vers ].
- self addCategory: aSMCategory!
Item was added:
+ ----- Method: SMPackageRelease>>squeakVersions (in category '*smloader') -----
+ squeakVersions
+ ^ self categories
+ select:
+ [ : each | each parent = self map squeakVersions ].!
Item was added:
+ ----- Method: SMPackageRelease>>squeakVersions: (in category '*smloader') -----
+ squeakVersions: someSMCategories
+ someSMCategories do: [:aSMCategory |
+ aSMCategory parent = self map squeakVersions ifFalse: [ self error: 'Not a squeakVersion category.' ]].
+
+ "Remove all squeakVersion-categories."
+ self squeakVersions do: [:ver | self removeCategory: ver ].
+
+ someSMCategories do: [:aSMCategory |
+ self addCategory: aSMCategory].!
Item was added:
+ ----- Method: SMReleaseBrowser>>allSqueakVersions (in category 'private') -----
+ allSqueakVersions
+ "Answer the squeak-versions subcategories."
+ ^ SMSqueakMap default squeakVersions subCategories!
Item was changed:
----- Method: SMReleaseBrowser>>newSqueakVersionSpec: (in category 'toolbuilder') -----
newSqueakVersionSpec: aToolBuilder
+ ^ aToolBuilder pluggableMultiSelectionListSpec new
- ^ aToolBuilder pluggableListSpec new
model: self ;
name: #licenses ;
help: 'Select the image version for this release.' ;
autoDeselect: false ;
+ getSelectionList: #squeakVersionAt: ;
+ setSelectionList: #squeakVersionAt:put: ;
+ list: #squeakVersionList ;
- list: #squeakVersions ;
- getSelected: #squeakVersion ;
- setSelected: #squeakVersion: ;
yourself!
Item was changed:
----- Method: SMReleaseBrowser>>squeakVersion: (in category 'model access') -----
squeakVersion: aSMCategory
release squeakVersion: aSMCategory.
+ self changed: #squeakVersionList!
- self changed: #squeakVersion!
Item was added:
+ ----- Method: SMReleaseBrowser>>squeakVersionAt: (in category 'private') -----
+ squeakVersionAt: aNumber
+ | version |
+ version := self squeakVersionList at: aNumber.
+ ^ self squeakVersions contains: [:cat | cat name = version].!
Item was added:
+ ----- Method: SMReleaseBrowser>>squeakVersionAt:put: (in category 'private') -----
+ squeakVersionAt: aNumber put: aBoolean
+ | version |
+ version := self allSqueakVersions at: aNumber.
+ aBoolean
+ ifTrue: [self squeakVersions: (self squeakVersions add: version; yourself)]
+ ifFalse: [self squeakVersions: (self squeakVersions remove: version; yourself)].
+ self changed: #squeakVersionList!
Item was added:
+ ----- Method: SMReleaseBrowser>>squeakVersionList (in category 'private') -----
+ squeakVersionList
+ ^ self allSqueakVersions collect: [:category | category name].!
Item was changed:
----- Method: SMReleaseBrowser>>squeakVersions (in category 'model access') -----
squeakVersions
+ ^ release squeakVersions.!
- "Answer the squeak-versions subcategories."
- ^ SMSqueakMap default squeakVersions subCategories!
Item was added:
+ ----- Method: SMReleaseBrowser>>squeakVersions: (in category 'model access') -----
+ squeakVersions: someSMCategories
+ release squeakVersions: someSMCategories.
+ self changed: #squeakVersionList!
More information about the Squeak-dev
mailing list
|