[Pkg] The Trunk: SMLoader-cmm.71.mcz
commits at source.squeak.org
commits at source.squeak.org
Sat Feb 12 22:50:30 UTC 2011
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]]!
More information about the Packages
mailing list