Chris Muller uploaded a new version of SMLoader to project The Trunk:
http://source.squeak.org/trunk/SMLoader-cmm.63.mcz

==================== Summary ====================

Name: SMLoader-cmm.63
Author: cmm
Time: 24 January 2011, 8:28:27.714 pm
UUID: b5f4f218-e8f3-4d0c-91ce-5b30f73a0744
Ancestors: SMLoader-cmm.62

Initial sketch of SMReleaseBrowser.

=============== Diff against SMLoader-cmm.62 ===============

Item was changed:
  SystemOrganization addCategory: #SMLoader!
+ SystemOrganization addCategory: #'SMLoader-Models'!

Item was added:
+ StringHolder subclass: #SMReleaseBrowser
+ 	instanceVariableNames: 'release licenses squeakVersions compatibilities maturities loadScript'
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'SMLoader-Models'!
+ 
+ !SMReleaseBrowser commentStamp: 'cmm 1/23/2011 17:44' prior: 0!
+ A browser for specific SqueakMap packages.
+ 
+ - Across the top:
+ 	- version name text input (across the top)
+ 	- parent release (uneditable text)
+ 
+ - Four lists across the width:
+ 	- license single-select.
+ 	- versions multi-select.
+ 	- compatibility single-select.
+ 	- maturity single-select.
+ 
+ X File to upload | elipsis.
+ 
+ - Load-script paragraph | Release notes paragraph.
+ 
+ - Buttons:
+ 	- Save.
+ 	- Cancel.
+ 
+ !

Item was added:
+ ----- Method: SMReleaseBrowser classSide>>open (in category 'open') -----
+ open
+ 	^ ToolBuilder open: self!

Item was added:
+ ----- Method: SMReleaseBrowser classSide>>openOn: (in category 'open') -----
+ openOn: aSMPackageRelease
+ 	^ ToolBuilder open: (self release: aSMPackageRelease)!

Item was added:
+ ----- Method: SMReleaseBrowser classSide>>release: (in category 'instance creation') -----
+ release: aSMPackageRelease 
+ 	^ self new
+ 		 setRelease: aSMPackageRelease ;
+ 		 yourself!

Item was added:
+ ----- Method: SMReleaseBrowser>>buildWith: (in category 'toolbuilder') -----
+ buildWith: aToolBuilder 
+ 	| windowSpec row2Top row3Top |
+ 	row2Top := 0.1.
+ 	row3Top := 0.5.
+ 	windowSpec := self
+ 		buildWindowWith: aToolBuilder
+ 		specs: {(0 @ 0 corner: 0.5 @ row2Top) -> (self newVersionSpec: aToolBuilder). 
+ 			(0.5 @ 0 corner: 1.0 @ row2Top) -> (self newParentVersionSpec: aToolBuilder).
+ 			(0 at row2Top corner: 0.25 at row3Top) -> (self newLicenseListSpec: aToolBuilder).
+ 			(0.25 at row2Top corner: 0.50 at row3Top) -> (self newSqueakVersionSpec: aToolBuilder).
+ 		(0.50 at row2Top corner: 0.75 at row3Top) -> (self newCompatibilitySpec: aToolBuilder).
+ 		(0.75 at row2Top corner: 1.00 at row3Top) -> (self newMaturitySpec: aToolBuilder).
+ 		(0.0 at row3Top corner: 0.5 at 1.00) -> (self newLoadScriptPaneSpec: aToolBuilder).
+ 		(0.50 at row3Top corner: 1.00 at 1.00) -> (self newReleaseNotesPaneSpec: aToolBuilder) }.
+ 	^ aToolBuilder build: windowSpec!

Item was added:
+ ----- Method: SMReleaseBrowser>>compatibilities (in category 'model access') -----
+ compatibilities
+ 	^ SMSqueakMap default compatibilityLevels subCategories!

Item was added:
+ ----- Method: SMReleaseBrowser>>compatibility (in category 'model access') -----
+ compatibility
+ 	^ release compatibility!

Item was added:
+ ----- Method: SMReleaseBrowser>>compatibility: (in category 'model access') -----
+ compatibility: aSMCategory 
+ 	release compatibility: aSMCategory!

Item was added:
+ ----- Method: SMReleaseBrowser>>labelString (in category 'toolbuilder') -----
+ labelString
+ 	^ release name, ' ', release version !

Item was added:
+ ----- Method: SMReleaseBrowser>>license (in category 'model access') -----
+ license
+ 	^ release license!

Item was added:
+ ----- Method: SMReleaseBrowser>>license: (in category 'model access') -----
+ license: aSMCategory
+ 	^ release license: aSMCategory!

Item was added:
+ ----- Method: SMReleaseBrowser>>licenses (in category 'model access') -----
+ licenses
+ 	^ SMSqueakMap default licenses subCategories!

Item was added:
+ ----- Method: SMReleaseBrowser>>loadScript (in category 'model access') -----
+ loadScript
+ 	^ loadScript!

Item was added:
+ ----- Method: SMReleaseBrowser>>loadScript: (in category 'model access') -----
+ loadScript: aString 
+ 	loadScript := aString!

Item was added:
+ ----- Method: SMReleaseBrowser>>maturities (in category 'model access') -----
+ maturities
+ 	^ SMSqueakMap default maturityLevels subCategories!

Item was added:
+ ----- Method: SMReleaseBrowser>>maturity (in category 'model access') -----
+ maturity
+ 	^ release maturity!

Item was added:
+ ----- Method: SMReleaseBrowser>>maturity: (in category 'model access') -----
+ maturity: aSMCategory 
+ 	release maturity: aSMCategory!

Item was added:
+ ----- Method: SMReleaseBrowser>>newCompatibilitySpec: (in category 'toolbuilder') -----
+ newCompatibilitySpec: aToolBuilder
+ 	^ aToolBuilder pluggableListSpec new
+ 		 model: self ;
+ 		 name: #compatibilities ;
+ 		 help: 'Select the type of changes this release makes to the image.' ;
+ 		 autoDeselect: false ;
+ 		 list: #compatibilities ;
+ 		 getSelected: #compatibility ;
+ 		 setSelected: #compatibility: ;
+ 		 yourself!

Item was added:
+ ----- Method: SMReleaseBrowser>>newLicenseListSpec: (in category 'toolbuilder') -----
+ newLicenseListSpec: aToolBuilder 
+ 	^ aToolBuilder pluggableListSpec new
+ 		 model: self ;
+ 		 name: #licenses ;
+ 		 help: 'Select the license for this release.' ;
+ 		 autoDeselect: false ;
+ 		 list: #licenses ;
+ 		 getSelected: #license ;
+ 		 setSelected: #license: ;
+ 		 yourself!

Item was added:
+ ----- Method: SMReleaseBrowser>>newLoadScriptPaneSpec: (in category 'toolbuilder') -----
+ newLoadScriptPaneSpec: aToolBuilder
+ 	^ aToolBuilder pluggableCodePaneSpec new
+ 		model: self ;
+ 		help: 'Smalltalk code which will load this package.' ;
+ 		askBeforeDiscardingEdits: true ;
+ 		getText: #loadScript ;
+ 		setText: #loadScript: ;
+ 		yourself!

Item was added:
+ ----- Method: SMReleaseBrowser>>newMaturitySpec: (in category 'toolbuilder') -----
+ newMaturitySpec: aToolBuilder
+ 	^ aToolBuilder pluggableListSpec new
+ 		 model: self ;
+ 		 name: #maturities ;
+ 		 help: 'Select the type of changes this release makes to the image.' ;
+ 		 autoDeselect: false ;
+ 		 list: #maturities ;
+ 		 getSelected: #maturity ;
+ 		 setSelected: #maturity: ;
+ 		 yourself!

Item was added:
+ ----- Method: SMReleaseBrowser>>newParentVersionSpec: (in category 'toolbuilder') -----
+ newParentVersionSpec: aToolBuilder 
+ 	^ aToolBuilder pluggableInputFieldSpec new
+ 		 model: release ;
+ 		 name: #parentVersion ;
+ 		 help: 'The parent version from which this release is based.' ;
+ 		 getText: #parentVersion ;
+ 		 askBeforeDiscardingEdits: false!

Item was added:
+ ----- Method: SMReleaseBrowser>>newReleaseNotesPaneSpec: (in category 'toolbuilder') -----
+ newReleaseNotesPaneSpec: aToolBuilder
+ 	^ aToolBuilder pluggableTextSpec new
+ 		model: self ;
+ 		help: 'Notes about this release.' ;
+ 		askBeforeDiscardingEdits: true ;
+ 		getText: #note ;
+ 		setText: #note: ;
+ 		yourself!

Item was added:
+ ----- Method: SMReleaseBrowser>>newSqueakVersionSpec: (in category 'toolbuilder') -----
+ newSqueakVersionSpec: aToolBuilder
+ 	^ aToolBuilder pluggableListSpec new
+ 		 model: self ;
+ 		 name: #licenses ;
+ 		 help: 'Select the image version for this release.' ;
+ 		 autoDeselect: false ;
+ 		 list: #squeakVersions ;
+ 		 getSelected: #squeakVersion ;
+ 		 setSelected: #squeakVersion: ;
+ 		 yourself!

Item was added:
+ ----- Method: SMReleaseBrowser>>newVersionSpec: (in category 'toolbuilder') -----
+ newVersionSpec: aToolBuilder 
+ 	^ aToolBuilder pluggableInputFieldSpec new
+ 		 model: self ;
+ 		 name: #version ;
+ 		 help: 'Specify the version name of this release.' ;
+ 		 getText: #version ;
+ 		 setText: #version:!

Item was added:
+ ----- Method: SMReleaseBrowser>>note (in category 'model access') -----
+ note
+ 	^ release note!

Item was added:
+ ----- Method: SMReleaseBrowser>>note: (in category 'model access') -----
+ note: aString 
+ 	release note: aString!

Item was added:
+ ----- Method: SMReleaseBrowser>>parentRelease (in category 'model access') -----
+ parentRelease
+ 	^ release ifNotNil: [ release parentRelease ]!

Item was added:
+ ----- Method: SMReleaseBrowser>>parentVersion (in category 'model access') -----
+ parentVersion
+ 	^ self parentRelease ifNotNilDo:
+ 		[ : pr | pr version ]!

Item was added:
+ ----- Method: SMReleaseBrowser>>setRelease: (in category 'initialize-release') -----
+ setRelease: aSMPackageRelease
+ 	release := aSMPackageRelease!

Item was added:
+ ----- Method: SMReleaseBrowser>>squeakVersion (in category 'model access') -----
+ squeakVersion
+ 	^ release squeakVersion!

Item was added:
+ ----- Method: SMReleaseBrowser>>squeakVersion: (in category 'model access') -----
+ squeakVersion: aSMCategory 
+ 	release squeakVersion: aSMCategory!

Item was added:
+ ----- Method: SMReleaseBrowser>>squeakVersions (in category 'model access') -----
+ squeakVersions
+ 	^ SMSqueakMap default squeakVersions subCategories!

Item was added:
+ ----- Method: SMReleaseBrowser>>version (in category 'model access') -----
+ version
+ 	^ release ifNotNil: [ release version ]!

Item was added:
+ ----- Method: SMReleaseBrowser>>version: (in category 'model access') -----
+ version: aString 
+ 	release ifNotNil: [ release version: aString asString ].
+ 	self changed: #version!