The Inbox: Monticello-ct.818.mcz

Christoph Thiede uploaded a new version of Monticello to project The Inbox:
http://source.squeak.org/inbox/Monticello-ct.818.mcz

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

Name: Monticello-ct.818
Author: ct
Time: 30 May 2026, 11:52:05.248522 pm
UUID: aab75c51-72f0-499c-8a51-79a6e93c10d7
Ancestors: Monticello-mt.817

Offer "check all packages for changes" menu in working copy list even when no package is selected. Sort all packages before checking for reproducibility and smoother progress bar.

=============== Diff against Monticello-mt.817 ===============

Item was changed:
  ----- Method: MCWorkingCopy class>>checkModified: (in category 'operations') -----
  checkModified: thorough
  	"Verify that all working copies with a modified flag are really modified, by comparing them to their stored snapshot. If the 'thorough' argument is true, check all packages, even unmodified ones."
  	"MCWorkingCopy checkModified: true"
  	| workingCopies |
  	workingCopies := self allManagers.
  	thorough ifFalse: [
  		workingCopies := workingCopies select: [:wc | wc modified]].
+ 	(workingCopies sorted: #packageName ascending) do: [:wc | wc checkModified]
- 	workingCopies do: [:wc | wc checkModified]
  		displayingProgress: [:wc | 'Checking package {1} for changes ...' translated format: {wc packageName}]!

Item was changed:
  ----- Method: MCWorkingCopyBrowser>>workingCopyListMenu: (in category 'morphic ui') -----
  workingCopyListMenu: aMenu
+ 	workingCopy ifNotNil:
+ 		[self fillMenu: aMenu fromSpecs:
+ 			#(('add required package' #addRequiredPackage)
+ 				('clear required packages' #clearRequiredPackages)
+ 				('add repository...' #addPackageRepository)
+ 				('browse package' #browseWorkingCopy)
+ 				('view changes' #viewChanges)
+ 				('view history' #viewHistory)
+ 				('search history' #searchHistory)
+ 				('recompile package' #recompilePackage)
+ 				('revert package...' #revertPackage)
+ 				('unload package' #unloadPackage)
+ 				('delete working copy' #deleteWorkingCopy)
+ 				('inspect working copy' #inspectWorkingCopy)
+ 				('rename package...' #renamePackage)
+ 				('change environment...' #changeEnvironment)).
+ 		(Smalltalk includesKey: #SARMCPackageDumper) ifTrue: [
+ 			aMenu add: 'make SAR' target: self selector: #fileOutAsSAR
+ 		].
+ 		aMenu addLine].
- 	workingCopy ifNil: [^ aMenu].
  	self fillMenu: aMenu fromSpecs:
+ 		#(('check all packages for changes' #checkAllPackages)).
+ 	workingCopy ifNotNil:
+ 		[self insertExternalMenuEntries: aMenu].
- 		#(('add required package' #addRequiredPackage)
- 			('clear required packages' #clearRequiredPackages)
- 			('add repository...' #addPackageRepository)
- 			('browse package' #browseWorkingCopy)
- 			('view changes' #viewChanges)
- 			('view history' #viewHistory)
- 			('search history' #searchHistory)
- 			('recompile package' #recompilePackage)
- 			('revert package...' #revertPackage)
- 			('unload package' #unloadPackage)
- 			('delete working copy' #deleteWorkingCopy)
- 			('inspect working copy' #inspectWorkingCopy)
- 			('rename package...' #renamePackage)
- 			('change environment...' #changeEnvironment)).
- 	(Smalltalk includesKey: #SARMCPackageDumper) ifTrue: [
- 		aMenu add: 'make SAR' target: self selector: #fileOutAsSAR
- 	].
- 	self fillMenu: aMenu fromSpecs:
- 		#(	addLine
- 			('check all packages for changes' #checkAllPackages)).
- 	self insertExternalMenuEntries: aMenu.
  	^aMenu!

Squeak-dev mailing list -- [email protected]
To unsubscribe send an email to [email protected]