The Inbox: SMLoader-cmm.93.mcz

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

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

Name: SMLoader-cmm.93
Author: cmm
Time: 12 November 2018, 9:32:37.990598 pm
UUID: f8100409-b6fa-45f5-ad2a-acc81a6f614a
Ancestors: SMLoader-cmm.91

- Allow releases which are not necessarily published to be selected when the UI selection was at the package level.
- Fix the problem of Release scripts seemingly not updating, due to not refreshing the local cache after uploading the script to the server.

=============== 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]]!

Item was changed:
  ----- Method: SMReleaseBrowser>>save (in category 'initialize-release') -----
  save
  "Save the release to SqueakMap."
  Cursor wait showWhile:
  [ self dependents do:
  [ : eachWidget | #(#username #password #note #version #content ) do:
  [ : eachName | eachWidget knownName = eachName ifTrue:
  [ eachWidget hasUnacceptedEdits ifTrue: [ eachWidget accept ] ] ] ].
  self validateCanSave.
  [ self
  writeInstallFile ;
  login.
  "Save without a downloadUrl so that SM will update its cache and we can also verify success before uploading the file."
  self savePackageRelease: nil.
  self loadScript isEmptyOrNil ifFalse:
  [ self uploadInstallFile.
  release package addRelease: release.
  "Now save with the correct downloadUrl."
  self
  savePackageRelease: self downloadUrl ;
+ deleteInstallFile ] ] ensure: [ self logout ].
+ release refreshInCache ].
- deleteInstallFile ] ] ensure: [ self logout ] ].
  self closeWindow!