From commits@source.squeak.org Wed Oct 11 00:35:07 2023
From: commits@source.squeak.org
To: vm-dev@lists.squeakfoundation.org
Subject: [Vm-dev] VM Maker: VMMakerUI-eem.60.mcz
Date: Wed, 11 Oct 2023 00:35:01 +0000
Message-ID: <20231011003503.CA5C558261C@mail.squeak.org>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===============7371960713569618433=="

--===============7371960713569618433==
Content-Type: text/plain; charset="utf-8"
Content-Transfer-Encoding: quoted-printable

Eliot Miranda uploaded a new version of VMMakerUI to project VM Maker:
http://source.squeak.org/VMMaker/VMMakerUI-eem.60.mcz

=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D Summary =3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D

Name: VMMakerUI-eem.60
Author: eem
Time: 10 October 2023, 5:34:59.96815 pm
UUID: af5ad4ea-b3fb-45ba-aae2-416b5f11cdfd
Ancestors: VMMakerUI-eem.59

Avoid updateVMMaker from promting to save a VMMaker if the package is modifie=
d. i.e. avoid using currentVersionInfo

=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D Diff against VMMakerUI-eem.59 =
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D

Item was changed:
  ----- Method: TheWorldMainDockingBar>>updateVMMaker (in category '*VMMakerU=
I-updater') -----
  updateVMMaker
  	<updater: 'Update VMMaker'>
 =20
  	| branch updateMap updater history message |
+ 	branch :=3D (PackageInfo named: #VMMaker) workingCopy ancestry ancestorStr=
ingWithout: ''.
- 	branch :=3D (PackageInfo named: #VMMaker) workingCopy currentVersionInfo n=
ame.
  	updateMap :=3D branch first: (branch indexOf: $- ifAbsent: [branch size + =
1]) - 1.
  	updateMap :=3D 'update', (updateMap allButFirst: #VMMaker size).
  	updater :=3D MCMcmUpdater
  					updateMapNamed: updateMap
  					repository: 'http://source.squeak.org/VMMaker'.
  	updater lastUpdateMap ifEmpty: [
  		"If this is the first time that you use the updater, start at 5.mcm to av=
oid loading old code."
  		updater lastUpdateMap at: updater repository put: 5].
 =20
  	history :=3D updater dependentPackages
  		collect: [:package | package name -> (package workingCopy ancestors
  			"N.B. the first version in a package's history will have empty ancestors=
."
  			ifEmpty: [nil] ifNotEmpty: [:ancestors| ancestors first])]
  		as: OrderedDictionary.
 =20
  	updater doUpdate: false.
  =09
  	"Set update history to the packages that actually changed."
  	updater dependentPackages do: [:package | | oldVersionInfo newVersionInfo |
  		oldVersionInfo :=3D history at: package name ifAbsent: [].
  		newVersionInfo :=3D package workingCopy ancestors first.
  		(oldVersionInfo ifNil: [0] ifNotNil: [oldVersionInfo versionNumber]) < ne=
wVersionInfo versionNumber
  			ifTrue: [history at: package name put: {oldVersionInfo. newVersionInfo}]
  			ifFalse: [history removeKey: package name]].
  =09
  	"Prepare message, including the update history and OSVM ci badges."
  	message :=3D String streamContents: [:s |
  		s nextPutAll: 'VMMaker update succesful.<br><br>'.
  		history
  			ifEmpty: [s nextPutAll: 'All packages were already up-to-date.']
  			ifNotEmpty: [s nextPutAll: 'Updated packages:'].
  		history keysAndValuesDo: [:packageName :updateInfo |
  			s nextPutAll: '<br> - '.
  			s nextPutAll: packageName; space.
  			updateInfo isArray
  				ifFalse: [s nextPutAll: '*removed*' translated]
  				ifTrue: [
  					updateInfo first
  						ifNil: [s nextPutAll: '*added*' translated]
  						ifNotNil: [s print: updateInfo first versionNumber].
  					s nextPutAll: ' -> <b>'.
  					s print: updateInfo second versionNumber.
  					s nextPutAll: '</b>']].
  		s nextPutAll: ('<br><br>Url: <a href=3D"{1}">{1}</a>' format: {updater re=
pository}).
  		s nextPutAll: '<br>Map: '; print: updater updateMapName.
 =20
  		s nextPutAll: '<br>'.
  		#('macOS (x86)' macos
  		'macOS (ARM)' 'macos-arm'
  		'Windows' win
  		'Linux (x86)' linux
  		'Linux (ARM)' 'linux-arm')
  			groupsDo: [:label :workflow |
  				s nextPutAll: ('<br><a href=3D"{2}"><img src=3D"{3}" /> {4}</a> {1}'
  					format: {
  						label.
  						self osvm_GitHubActions_statusPageUrl: workflow.
  						self osvm_GitHubActions_statusBadgeUrl: workflow.
  						self osvm_GitHubActions_statusTimestamp: workflow})].
  	=09
  		s nextPutAll: ('<br><br>Note that updated platform sources might be avail=
able, too: <a href=3D"{1}">{1}</a>' format: {'https://github.com/OpenSmalltal=
k/opensmalltalk-vm'}).
  		=09
  			].
  	self inform: message asTextFromHtml.!


--===============7371960713569618433==--