... and fix context menus for text

pharo-spec · Sep 20, 2024 · 05f049e · 05f049e
1 parent 65d14e7
commit 05f049e
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/Spec2-Adapters-Morphic/SpMorphicTextAdapter.class.st b/src/Spec2-Adapters-Morphic/SpMorphicTextAdapter.class.st
@@ -98,6 +98,12 @@ SpMorphicTextAdapter >> codePaneMenu: aMenu shifted: shifted [
 
 	menuPresenter := self presenter newMenu.
 	menuPresenter fillWith: actionGroup.
+
+	"apply context menu if there is one"
+	self presenter contextMenu ifNotNil: [ :aContextMenu | 
+		self presenter actions ifNotNil: [ 
+			Error signal: 'You are using contextMenu: and actions: at the same time. Both mechanisms are mutually exclusive.' ].
+		menuPresenter := aContextMenu ].
 
 	^ SpBindings
 		  value: self model application adapterBindings