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

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

Name: SMLoader-cmm.71
Author: cmm
Time: 9 February 2011, 2:32:44.932 pm
UUID: 4c7c8a8e-ee43-47ea-870a-1481d53effa0
Ancestors: SMLoader-cmm.70

Stop requiring user-confirmation for "are you sure you want to install" just because a package isn't published when the parenthesis already indicate that anyway.

=============== Diff against SMLoader-cmm.70 ===============

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 := self selectedPackageOrRelease ifNil: [^ nil].
  	item isPackageRelease
+ 		ifTrue: [^ self installPackageRelease: item]
+ 		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]]!
- 		ifTrue: [
- 			(item isPublished or: [self confirm: 'Selected release is not published yet, install anyway?'])
- 				ifTrue: [^self installPackageRelease: item]]
- 		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 := self selectedPackageOrRelease ifNil: [^ nil].
  	item isPackageRelease
+ 		ifTrue: [^ self installPackageRelease: item]
+ 		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]]!
- 		ifTrue: [
- 			(item isPublished or: [self confirm: 'Selected release is not published yet, install anyway?'])
- 				ifTrue: [^self installPackageRelease: item]]
- 		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]]!