[squeak-dev] The Inbox: SMLoader-cmm.92.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Oct 6 20:00:16 UTC 2018


Chris Muller uploaded a new version of SMLoader to project The Inbox:
http://source.squeak.org/inbox/SMLoader-cmm.92.mcz

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

Name: SMLoader-cmm.92
Author: cmm
Time: 6 October 2018, 2:59:45.066275 pm
UUID: 7c4c92f1-6332-44d8-bd7c-e3702459df97
Ancestors: SMLoader-cmm.91

Begin to phase out 'published' flag unless we can remember what the original purpose of this level of detail in the model was for.

=============== Diff against SMLoader-cmm.91 ===============

Item was changed:
  ----- Method: SMLoader>>installPackageRelease (in category 'actions') -----
  installPackageRelease
  	"Install selected package or release.
  	The cache is used."
  	| item release |
  	item := self selectedPackageOrRelease
  				ifNil: [^ nil].
  	item isPackageRelease
  		ifTrue: [^ self installPackageRelease: item]
+ 		ifFalse: [release := item lastReleaseForCurrentSystemVersion.
- 		ifFalse: [release := item lastPublishedReleaseForCurrentSystemVersion.
  			release
  				ifNil: [(self confirm: 'The package has no published release for your Squeak version, try releases for any Squeak version?')
  						ifTrue: [release := item lastPublishedRelease.
  							release
  								ifNil: [(self confirm: 'The package has no published release at all, take the latest of the unpublished releases?')
  										ifTrue: [release := item lastRelease]]]].
  			release
  				ifNotNil: [^ self installPackageRelease: release]]!

Item was changed:
  ----- Method: SMLoaderPlus>>installPackageRelease (in category 'actions') -----
  installPackageRelease
  	"Install selected package or release.
  	The cache is used."
  	| item release |
  	item := self selectedPackageOrRelease
  				ifNil: [^ nil].
  	item isPackageRelease
  		ifTrue: [^ self installPackageRelease: item]
+ 		ifFalse: [release := item lastReleaseForCurrentSystemVersion.
- 		ifFalse: [release := item lastPublishedReleaseForCurrentSystemVersion.
  			release
  				ifNil: [(self confirm: 'The package has no published release for your Squeak version, try releases for any Squeak version?')
  						ifTrue: [release := item lastPublishedRelease.
  							release
  								ifNil: [(self confirm: 'The package has no published release at all, take the latest of the unpublished releases?')
  										ifTrue: [release := item lastRelease]]]].
  			release
  				ifNotNil: [^ self installPackageRelease: release]]!



More information about the Squeak-dev mailing list