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!