adapted to new action system

Iceberg-Plugin-GitHub/IceGitHubTipPullRequestBrowser.class.st

@@ -87,6 +87,7 @@ IceGitHubTipPullRequestBrowser >> commits [
 IceGitHubTipPullRequestBrowser >> connectPresenters [
 
 	super connectPresenters.
+
 	self commits whenSelectionChangedDo: [ :selection | 
 		self diff selectedModel: selection selectedItem ].
 

Iceberg-Plugin-GitHub/IceTipGitHubPullRequestListBrowser.class.st

@@ -59,6 +59,7 @@ IceTipGitHubPullRequestListBrowser class >> taskbarIconName [
 IceTipGitHubPullRequestListBrowser >> connectPresenters [
 
 	super connectPresenters.
+
 	self pullRequests
 		activateOnDoubleClick;
 		whenActivatedDo: [ :selection | self strongSelection: selection ];

Iceberg-TipUI/IceCheckoutStrategy.extension.st

@@ -1,12 +1,12 @@
 Extension { #name : 'IceCheckoutStrategy' }
 
 { #category : '*Iceberg-TipUI' }
-IceCheckoutStrategy >> description [
-
-	^ self class description
+IceCheckoutStrategy class >> description [
+	^ self subclassResponsibility
 ]
 
 { #category : '*Iceberg-TipUI' }
-IceCheckoutStrategy class >> description [
-	^ self subclassResponsibility
+IceCheckoutStrategy >> description [
+
+	^ self class description
 ]

Iceberg-TipUI/IceTipAddNewPackagesDialogPresenter.class.st

@@ -87,9 +87,9 @@ IceTipAddNewPackagesDialogPresenter >> initializePackagesList [
 				beNotExpandable;
 				yourself);
 			addColumn: (SpStringTableColumn new
-				evaluated: [:e | e name];
+				evaluated: [ :each | each name ];
 				yourself));
-		contextMenu: [ (self rootCommandsGroup / 'package list commands') beRoot asMenuPresenter ]
+		actions: self rootCommandsGroup / 'package list commands'
 ]
 
 { #category : 'initialization' }

Iceberg-TipUI/IceTipBrowser.class.st

@@ -66,7 +66,7 @@ IceTipBrowser class >> buildSelectionExtraCommandGroupWith: presenter for: aComm
 { #category : 'commands' }
 IceTipBrowser class >> generalCommandGroupName [
 
-	^ 'General'
+	^ 'Actions'
 ]
 
 { #category : 'commands' }
@@ -81,10 +81,24 @@ IceTipBrowser class >> selectionExtraCommandGroupName [
 	^ 'Extra'
 ]
 
+{ #category : 'initialization' }
+IceTipBrowser >> cleanRootsCommandGroup [
+	| rootGroup |
+
+	rootGroup := self rootCommandsGroup.
+	IceTipCleanCommandGroupVisitor new visit: rootGroup.
+	^ rootGroup
+
+]
+
 { #category : 'initialization' }
 IceTipBrowser >> connectPresenters [
+	| rootGroup |
 
-	self mainList whenSelectionChangedDo: [ self refreshCommands ]
+	rootGroup := self cleanRootsCommandGroup.
+	self
+		refreshShortcutsWith: rootGroup;
+		refreshMainListContextMenuWith: rootGroup
 ]
 
 { #category : 'initialization' }
@@ -134,6 +148,21 @@ IceTipBrowser >> mainList [
 	^ self subclassResponsibility
 ]
 
+{ #category : 'accessing - ui' }
+IceTipBrowser >> mainListActions: anActionGroup [
+
+	self mainListDefaultActions 
+		ifNotNil: [ :defaultActionsGroup | anActionGroup add: defaultActionsGroup ].
+
+	self mainList actions: anActionGroup
+]
+
+{ #category : 'private' }
+IceTipBrowser >> mainListDefaultActions [
+
+	^ nil
+]
+
 { #category : 'accessing' }
 IceTipBrowser >> model [
 
@@ -153,26 +182,26 @@ IceTipBrowser >> refresh [
 
 { #category : 'commands' }
 IceTipBrowser >> refreshCommands [
-	| rootGroup |
-
-	rootGroup := self rootCommandsGroup.
-	IceTipCleanCommandGroupVisitor new visit: rootGroup.
-
-	self
-		refreshShortcutsWith: rootGroup;
-		refreshMainListContextMenuWith: rootGroup;
-		refreshToolbarWith: rootGroup.
 
+	self refreshToolbarWith: self cleanRootsCommandGroup
 ]
 
 { #category : 'commands' }
 IceTipBrowser >> refreshMainListContextMenuWith: rootGroup [
 	"Update context menu (for mainList)."
+	| actionGroup |
 
+	actionGroup := SpActionGroup new.
 	rootGroup
 		commandOrGroupNamed: self class selectionCommandGroupName
 		ifFound: [ :subgroup |
-			self mainList contextMenuFromCommandsGroup: subgroup ].
+			actionGroup add: subgroup beDisplayedAsGroup ].
+	rootGroup
+		commandOrGroupNamed: self class generalCommandGroupName
+		ifFound: [ :subgroup |
+			actionGroup add: subgroup beDisplayedAsSubMenu ].
+
+	self mainListActions: actionGroup
 ]
 
 { #category : 'commands' }

Iceberg-TipUI/IceTipCherrypickPreviewBrowser.class.st

@@ -69,8 +69,7 @@ IceTipCherrypickPreviewBrowser >> initialExtentForWindow [
 { #category : 'initialization' }
 IceTipCherrypickPreviewBrowser >> initializePresenters [
 
-	diffPanel := self
-		instantiate: (IceTipMergeSelectingPanel onDiff: self model diff).
+	diffPanel := self instantiate: (IceTipMergeSelectingPanel onDiff: self model diff).
 	buttonBar := self newButtonBar.
 	buttonBar add: self newActionButton.
 
@@ -85,6 +84,13 @@ IceTipCherrypickPreviewBrowser >> mainList [
 	^ diffPanel iceNodesTree
 ]
 
+{ #category : 'accessing - ui' }
+IceTipCherrypickPreviewBrowser >> mainListActions: anActionGroup [
+	"Answer the presenter that is the main list of items of this browser."
+
+	^ diffPanel mainListActions: anActionGroup
+]
+
 { #category : 'accessing' }
 IceTipCherrypickPreviewBrowser >> mergeType: anObject [
 

Iceberg-TipUI/IceTipCommitBrowser.class.st

@@ -160,13 +160,14 @@ IceTipCommitBrowser >> initialize [
 IceTipCommitBrowser >> initializeAcceptShortcut [
 
 	self
-		bindKeyCombination: $s meta
-		toAction: [ self accept ].
+		addShortcutWith: [ :action | action 
+			shortcutKey: $s actionModifier;
+			action: [ self accept ] ].
 
 	commentPanel commentText
-		bindKeyCombination: $s meta
-		toAction: [ self accept ].
-
+		addShortcutWith: [ :action | action 
+			shortcutKey: $s actionModifier;
+			action: [ self accept ] ]
 ]
 
 { #category : 'initialization' }
@@ -185,8 +186,11 @@ IceTipCommitBrowser >> initializePresenters [
 { #category : 'initialization' }
 IceTipCommitBrowser >> initializeWindow: aWindow [
 
-	super initializeWindow: aWindow.
-	aWindow bindKeyCombination: $s meta toAction: [ self accept ]
+	super initializeWindow: aWindow.	
+	aWindow addShortcutWith: [ :action | action 
+		shortcutKey: $s actionModifier;
+		action: [ self accept ] ].
+
 ]
 
 { #category : 'accessing - ui' }
@@ -196,6 +200,13 @@ IceTipCommitBrowser >> mainList [
 	^ diffPanel iceNodesTree
 ]
 
+{ #category : 'accessing - ui' }
+IceTipCommitBrowser >> mainListActions: anActionGroup [
+	"Answer the presenter that is the main list of items of this browser."
+
+	^ diffPanel treeActions: anActionGroup
+]
+
 { #category : 'accessing' }
 IceTipCommitBrowser >> refresh [
 

Iceberg-TipUI/IceTipCritiquesBeforeCommitBrowser.class.st

@@ -181,8 +181,9 @@ IceTipCritiquesBeforeCommitBrowser >> initializeDialogWindow: aWindow [
 	aWindow buttons third label: 'Commit'.
 
 	aWindow 
-		bindKeyCombination: Character cr asShortcut toAction: [ self accept].
-
+		addShortcutWith: [ :action | action 
+			shortcutKey: KeyboardKey enter asKeyCombination;
+			action: [ self accept ] ]
 ]
 
 { #category : 'initialization' }

Iceberg-TipUI/IceTipDialogPresenter.class.st

@@ -30,5 +30,7 @@ IceTipDialogPresenter >> initializeDialogWindow: aWindow [
 	aWindow 
 		okAction: [ self accept ];
 		cancelAction: [ self cancel ]; 
-		bindKeyCombination: Character escape asShortcut toAction: [ self cancel ]
+		addShortcutWith: [ :action | action 
+			shortcutKey: KeyboardKey escape asKeyCombination;
+			action: [ self cancel ] ]
 ]

Iceberg-TipUI/IceTipDiffPanel.class.st

@@ -25,6 +25,19 @@ IceTipDiffPanel class >> onDiff: aDiff [
 	^ self on: (IceTipCommitDiffModel on: aDiff)
 ]
 
+{ #category : 'initialization' }
+IceTipDiffPanel >> baseTreeActions [
+
+	^ SpActionGroup new 
+		addShortcutWith: [ :action | action 
+			shortcutKey: KeyboardKey left asKeyCombination;
+			action: [ self handleArrowLeft ] ];
+		addShortcutWith: [ :action | action 
+			shortcutKey: KeyboardKey right asKeyCombination;
+			action: [ self handleArrowRight ] ];
+		yourself
+]
+
 { #category : 'accessing' }
 IceTipDiffPanel >> basicRefresh [
 
@@ -97,7 +110,7 @@ IceTipDiffPanel >> diffEntryRemoved: announcement [
 	no parent, but it's fine to just leave it there empty--though perhaps we should
 	close the browser instead in that case?"
 	[
-	parent parent notNil and: [
+	parent parent isNotNil and: [
 		parent isEmpty and: [
 			parent value isNoModification or: [
 				parent value definition isExtensionDefinition ] ] ] ] whileTrue: [
@@ -182,10 +195,7 @@ IceTipDiffPanel >> initializeTree [
 		addColumn: self changeListColumn;
 		children: [ :each | each children ];
 		whenSelectionChangedDo: [ self selectionChanged ];
-		bindKeyCombination: Character arrowLeft asKeyCombination 
-			toAction: [ self handleArrowLeft ];
-		bindKeyCombination: Character arrowRight asKeyCombination 
-			toAction: [ self handleArrowRight ].
+		actions: self baseTreeActions
 ]
 
 { #category : 'accessing' }
@@ -258,6 +268,15 @@ IceTipDiffPanel >> titleForWindow [
 	^ 'Diff'
 ]
 
+{ #category : 'accessing - ui' }
+IceTipDiffPanel >> treeActions: anActionGroup [ 
+
+	iceNodesTree actions: (SpActionGroup new 
+		add: anActionGroup beDisplayedAsGroup beRoot;
+		add: self baseTreeActions beRoot;
+		yourself)
+]
+
 { #category : 'initialization' }
 IceTipDiffPanel >> updatePresenter [
 

Iceberg-TipUI/IceTipDiffSelectingPanel.class.st

@@ -33,6 +33,16 @@ IceTipDiffSelectingPanel >> activateItem: iceNode [
 
 ]
 
+{ #category : 'initialization' }
+IceTipDiffSelectingPanel >> baseTreeActions [ 
+
+	^ super baseTreeActions
+		addShortcutWith: [ :action | action 
+			shortcutKey: Character space asKeyCombination;
+			action: [ self toggleActivationItem: iceNodesTree selectedItem ] ];
+		yourself
+]
+
 { #category : 'initialization' }
 IceTipDiffSelectingPanel >> changeListColumn [
 
@@ -74,15 +84,6 @@ IceTipDiffSelectingPanel >> initialize [
 
 ]
 
-{ #category : 'initialization' }
-IceTipDiffSelectingPanel >> initializeTree [
-
-	super initializeTree.
-	iceNodesTree 
-		bindKeyCombination: Character space asKeyCombination 
-		toAction: [ self toggleActivationItem: iceNodesTree selectedItem ]
-]
-
 { #category : 'accessing' }
 IceTipDiffSelectingPanel >> refresh [
 

Iceberg-TipUI/IceTipHiedraAltComponentHistoryBrowser.class.st

@@ -11,11 +11,8 @@ Class {
 
 { #category : 'commands' }
 IceTipHiedraAltComponentHistoryBrowser >> availableCommands [ 
-	| rootGroup |
-
-	rootGroup := self rootCommandsGroup.
-	IceTipCleanCommandGroupVisitor new visit: rootGroup.
-	^ rootGroup
+
+	^ self cleanRootsCommandGroup
 ]
 
 { #category : 'commands' }

Iceberg-TipUI/IceTipHiedraAltHistoryBrowser.class.st

@@ -11,11 +11,8 @@ Class {
 
 { #category : 'commands' }
 IceTipHiedraAltHistoryBrowser >> availableCommands [ 
-	| rootGroup |
-
-	rootGroup := self rootCommandsGroup.
-	IceTipCleanCommandGroupVisitor new visit: rootGroup.
-	^ rootGroup
+
+	^ self cleanRootsCommandGroup
 ]
 
 { #category : 'commands' }

Iceberg-TipUI/IceTipRemoteActionBrowser.class.st

@@ -58,7 +58,10 @@ IceTipRemoteActionBrowser >> initializeWindow: aWindow [
 
 	super initializeWindow: aWindow.
 
-	aWindow bindKeyCombination: $s meta toAction: [ self accept ]
+	aWindow
+		addShortcutWith: [ :action | action 
+			shortcutKey: $s actionModifier;
+			action: [ self accept ] ]
 ]
 
 { #category : 'initialization' }

Iceberg-TipUI/IceTipRepairRepositoryDialogPresenter.class.st

@@ -66,10 +66,9 @@ IceTipRepairRepositoryDialogPresenter >> initializeDialogWindow: aWindow [
 	self refreshDialogButtons.	
 
 	aWindow 
-		bindKeyCombination: Character cr asShortcut toAction: [ 
-			selectedOption ifNotNil: [self accept] ]
-
-
+		addShortcutWith: [ :action | action 
+			shortcutKey: KeyboardKey enter asKeyCombination;
+			action: [ self accept ] ]
 ]
 
 { #category : 'initialization' }