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

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

Name: Monticello-ct.716
Author: ct
Time: 17 February 2020, 1:04:25.4 am
UUID: 5524340c-418f-f64c-9788-982834460df7
Ancestors: Monticello-cmm.708

Refines OperationsBrowser menu commands: Allows to revert all/install all when selection is empty. Also fixes a bug that destroyed the selection if a single operation was reinstalled.

=============== Diff against Monticello-cmm.708 ===============

Item was changed:
  ----- Method: MCOperationsBrowser>>advanceSelection (in category 'selecting') -----
  advanceSelection
  
+ 	selection ifNil: [^ self].
  	self selection < items size
  		ifTrue: [self selection: self selection + 1]!

Item was added:
+ ----- Method: MCOperationsBrowser>>installOperations: (in category 'actions') -----
+ installOperations: operations
+ 
+ 	| loader |
+ 	loader := MCPackageLoader new.
+ 	operations do: [:operation |
+ 		operation applyTo: loader].
+ 	loader loadWithName: self changeSetNameForInstall.
+ 	self reverts removeAllFoundIn: operations.
+ 	self changed: #list; changed: #selection.!

Item was changed:
  ----- Method: MCOperationsBrowser>>installSelection (in category 'actions') -----
  installSelection
+ 
+ 	self installOperations: (selection
+ 		ifNotNil: [{selection}]
+ 		ifNil: [items]).!
- 	| loader |
- 	selection ifNotNil:
- 		[loader := MCPackageLoader new.
- 		selection applyTo: loader.
- 		loader loadWithName: self changeSetNameForInstall.
- 		self reverts remove: selection ifAbsent: [].
- 		self changed: #list ]!

Item was changed:
  ----- Method: MCOperationsBrowser>>methodListMenu: (in category 'menus') -----
  methodListMenu: aMenu
+ 	aMenu addList: #(
+ 		('install'	 installSelection)
+ 		('revert (x)'	 revertSelection)).
  	selection ifNotNil:
  		[aMenu addList: #(
+ 			('browse origin' browseSelectionOrigin))].
+ 	aMenu addLine.
- 			('install'	 installSelection)
- 			('revert (x)'	 revertSelection)
- 			('browse origin' browseSelectionOrigin) 
- 			-)].
  	self unchangedMethods ifNotEmpty:
  		[aMenu addList: #(
  			('revert unchanged methods...'	revertUnchangedMethods) 
  			-)].
  	super methodListMenu: aMenu.
  	^ aMenu!

Item was added:
+ ----- Method: MCOperationsBrowser>>revertOperations: (in category 'actions') -----
+ revertOperations: operations
+ 	
+ 	| loader |
+ 	loader := MCPackageLoader new.
+ 	operations do: [:operation |
+ 		operation inverse applyTo: loader].
+ 	self environmentInDisplayingImage beCurrentDuring: [loader loadWithName: self changeSetNameForInstall].
+ 	self reverts addAll: operations.
+ 	self changed: #list; changed: #selection.!

Item was changed:
  ----- Method: MCOperationsBrowser>>revertSelection (in category 'actions') -----
  revertSelection
+ 	
+ 	selection
+ 		ifNotNil: [
+ 			self revertOperations: {selection}.
+ 			self advanceSelection ]
+ 		ifNil: [
+ 			self revertOperations: items ].!
- 	| loader |
- 	selection ifNotNil:
- 		[loader := MCPackageLoader new.
- 		selection inverse applyTo: loader.
- 		self environmentInDisplayingImage beCurrentDuring: [loader loadWithName: self changeSetNameForInstall].
- 		self reverts add: selection.
- 		self
- 			advanceSelection;
- 			changed: #list ]!