tim Rowledge uploaded a new version of SMLoader to project The Trunk: http://source.squeak.org/trunk/SMLoader-tpr.87.mcz
==================== Summary ====================
Name: SMLoader-tpr.87 Author: tpr Time: 21 June 2016, 1:29:19.632444 pm UUID: e1857350-474a-4c4d-a5af-f8d6226c3f79 Ancestors: SMLoader-mt.86
Improve (hopefully) the SM release browser so that a) when hitting the save button it automatically accepts changed text in the name/version/script etc views, thus avoiding the need to accept each one individually. b) instead of a blank script view we provide some examples to offer a clue to the user
=============== Diff against SMLoader-mt.86 ===============
Item was added: + ----- Method: SMReleaseBrowser>>exampleLoadScript (in category 'private') ----- + exampleLoadScript + "this is an example load script to offer the user rather than a blank view" + + ^'"This is where you need to provide an install script; you may need to handle prerequisites first and then load the actual package(s) Take a look at http://wiki.squeak.org/squeak/6182 for more info, especially about creating a ''load latest version'' script" + "Example to load a prerequisite package - " + SMSqueakMap default + installPackageNamed: ''myPackage'' + version: ''release name''. + "Example to load myPackage if a certain class is not already in the image -" + (Smalltalk hasClassNamed: #MyPackage) + ifFalse:[SMSqueakMap default + installPackageNamed: ''myPackage'' + version: ''release name'']. + "Or load several specifc mcz files -" + #( ''MyPackagePartA-abc.1.mcz'' ''MyPackagePartB-abc.42.mcz'' ) do: + [:each| (Installer repository: ''http://www.squeaksource.com/MyPackages'') install: each]'!
Item was changed: ----- Method: SMReleaseBrowser>>loadScript (in category 'model access') ----- loadScript "The Smalltalk code needed to install this release of this package." + ^ loadScript + ifNil: [| scriptName | + scriptName := release downloadFileName. + loadScript := scriptName isEmptyOrNil + ifFalse: [(scriptName asLowercase endsWith: '.st') + ifTrue: [release contents]] + ifTrue: [self exampleLoadScript]]! - ^ loadScript ifNil: - [ | scriptName | - scriptName := release downloadFileName. - loadScript := scriptName isEmptyOrNil ifFalse: - [ (scriptName asLowercase endsWith: '.st') ifTrue: [ release contents ] ] ]!
Item was changed: ----- Method: SMReleaseBrowser>>validateCanSave (in category 'private') ----- validateCanSave + "accept any changes in the text field morphs etc, then validate the input as best we can" + self changed: #acceptChanges. self username isEmptyOrNil ifTrue: [ self userError: 'username required' ]. self note isEmptyOrNil ifTrue: [ self userError: 'note required' ]. self version isEmptyOrNil ifTrue: [ self userError: 'version required' ] ifFalse: [ (self version includes: $+) ifTrue: [ self userError: 'Plus sign not allowed in version name because it is reserved by HTTP.' ] ]!
packages@lists.squeakfoundation.org