add GTCoderAction>>#priority: [feenkcom/gtoolkit#4725]

Author: JurajKubelka

src/GToolkit-Coder-AddOns/GtTextualCoder.extension.st

@@ -2,6 +2,7 @@ Extension { #name : #GtTextualCoder }
 
 { #category : #'*GToolkit-Coder-AddOns' }
 GtTextualCoder >> addContextMenuItemFrom: shortcut group: menuGroup withId: menuId to: coderAddOns [
+	<return: #GtCoderContextMenuAction>
 	^ coderAddOns
 		addContextMenuItem: shortcut name
 		group: menuGroup
@@ -16,6 +17,7 @@ GtTextualCoder >> addContextMenuItemFrom: shortcut group: menuGroup withId: menu
 
 { #category : #'*GToolkit-Coder-AddOns' }
 GtTextualCoder >> addContextMenuItemFrom: shortcut withId: menuId to: coderAddOns [
+	<return: #GtCoderContextMenuAction>
 	^ coderAddOns
 		addContextMenuItem: shortcut name
 		action: [ :aCoderViewModel :anEditorElement | 
@@ -55,20 +57,23 @@ GtTextualCoder >> addContextMenuItemWithNoShortcutFrom: shortcut withId: menuId
 { #category : #'*GToolkit-Coder-AddOns' }
 GtTextualCoder >> addCopyCutPasteContextMenuAddOnsAst: anAst to: coderAddOns [
 	<gtCoderContextMenuAddOns: 1000>
-	self
+	(self
 		addContextMenuItemFrom: BrEditorShortcut cut
-			withId: GtTextualCoderCutContextMenuItemId
-			to: coderAddOns;
+		withId: GtTextualCoderCutContextMenuItemId
+		to: coderAddOns) ifNotNil: [ :anAction | anAction priority: 1000 ].
+	(self
 		addContextMenuItemFrom: BrEditorShortcut copy
-			withId: GtTextualCoderCopyContextMenuItemId
-			to: coderAddOns;
+		withId: GtTextualCoderCopyContextMenuItemId
+		to: coderAddOns) ifNotNil: [ :anAction | anAction priority: 1000 ].
+	(self
 		addContextMenuItemFrom: BrEditorShortcut paste
-			withId: GtTextualCoderPasteContextMenuItemId
-			to: coderAddOns
+		withId: GtTextualCoderPasteContextMenuItemId
+		to: coderAddOns) ifNotNil: [ :anAction | anAction priority: 1000 ]
 ]
 
 { #category : #'*GToolkit-Coder-AddOns' }
 GtTextualCoder >> addExplicitContextMenu: aString block: aBlock to: coderAddOns [
+	<return: #GtCoderExplicitContextMenuItemAction>
 	^ coderAddOns addExplicitContextMenu: aString block: aBlock
 ]
 

src/GToolkit-Coder/GtCoderAction.class.st

@@ -11,7 +11,8 @@ Class {
 		'allowAltClick',
 		'actionDefinition',
 		'isEnabled',
-		'properties'
+		'properties',
+		'priority'
 	],
 	#category : #'GToolkit-Coder-Coders - Addons'
 }
@@ -163,6 +164,16 @@ GtCoderAction >> printOn: aStream [
 		nextPut: $)
 ]
 
+{ #category : #accessing }
+GtCoderAction >> priority [
+	^ priority ifNil: [ priority := 50 ]
+]
+
+{ #category : #accessing }
+GtCoderAction >> priority: aNumber [
+	priority := aNumber
+]
+
 { #category : #'accessing properties' }
 GtCoderAction >> properties [
 	^ properties ifNil: [

src/GToolkit-Coder/GtCoderAddOns.class.st

@@ -92,6 +92,7 @@ GtCoderAddOns >> addContextMenuActions: aCollectionOfContextMenuActions [
 
 { #category : #'api - context menu' }
 GtCoderAddOns >> addContextMenuItem: aString action: aBlock [
+	<return: #GtCoderContextMenuAction>
 	^ self
 		addContextMenuItem: aString
 		hover: nil
@@ -111,6 +112,7 @@ GtCoderAddOns >> addContextMenuItem: aString action: aBlock id: aSymbol [
 
 { #category : #'api - context menu' }
 GtCoderAddOns >> addContextMenuItem: aString action: aBlock id: aSymbol shortcutKey: shortcutString [
+	<return: #GtCoderContextMenuAction>
 	^ self
 		addContextMenuItem: aString
 		hover: nil
@@ -143,6 +145,7 @@ GtCoderAddOns >> addContextMenuItem: aString group: menuGroup action: aBlock id:
 
 { #category : #'api - context menu' }
 GtCoderAddOns >> addContextMenuItem: aString group: menuGroup action: aBlock id: aSymbol shortcutKey: shortcutString [
+	<return: #GtCoderContextMenuAction>
 	^ self
 		addContextMenuItem: aString
 		group: menuGroup
@@ -167,20 +170,22 @@ GtCoderAddOns >> addContextMenuItem: aString group: menuGroup hover: hoverBlock
 
 { #category : #'api - context menu' }
 GtCoderAddOns >> addContextMenuItem: aString group: menuGroup hover: hoverBlock leave: leaveBlock action: aBlock id: aSymbol [
+	<return: #GtCoderContextMenuAction>
 	| newAction |
 	newAction := GtCoderContextMenuAction new
-		title: aString;
-		group: menuGroup;
-		action: aBlock;
-		hoverAction: hoverBlock;
-		leaveAction: leaveBlock;
-		id: aSymbol.
+			title: aString;
+			group: menuGroup;
+			action: aBlock;
+			hoverAction: hoverBlock;
+			leaveAction: leaveBlock;
+			id: aSymbol.
 	self addContextMenuAction: newAction.
 	^ newAction
 ]
 
 { #category : #'api - context menu' }
 GtCoderAddOns >> addContextMenuItem: aString group: menuGroup hover: hoverBlock leave: leaveBlock action: aBlock id: aSymbol shortcutKey: shortcutString [
+	<return: #GtCoderContextMenuAction>
 	| newAction |
 	newAction := GtCoderContextMenuAction new
 		title: aString;
@@ -196,7 +201,8 @@ GtCoderAddOns >> addContextMenuItem: aString group: menuGroup hover: hoverBlock
 
 { #category : #'api - context menu' }
 GtCoderAddOns >> addContextMenuItem: aString group: menuGroup hover: hoverBlock leave: leaveBlock action: aBlock shortcutKey: shortcutString [
-	self
+	<return: #GtCoderContextMenuAction>
+	^ self
 		addContextMenuItem: aString
 		group: menuGroup
 		hover: hoverBlock
@@ -232,6 +238,7 @@ GtCoderAddOns >> addContextMenuItem: aString hover: hoverBlock leave: leaveBlock
 
 { #category : #'api - context menu' }
 GtCoderAddOns >> addContextMenuItem: aString hover: hoverBlock leave: leaveBlock action: aBlock id: aSymbol shortcutKey: shortcutString [
+	<return: #GtCoderContextMenuAction>
 	| newAction |
 	newAction := GtCoderContextMenuAction new
 		title: aString;
@@ -328,6 +335,7 @@ GtCoderAddOns >> addDropDownWithPreviewAction: aString icon: anIcon action: acti
 
 { #category : #'api - context menu' }
 GtCoderAddOns >> addExplicitContextMenu: aString block: aBlock [
+	<return: #GtCoderExplicitContextMenuItemAction>
 	| newAction |
 	newAction := GtCoderExplicitContextMenuItemAction new
 		title: aString;