Fix #1018

src/MooseIDE-Dependency/MiArchitecturalMapBuilder.class.st

@@ -346,15 +346,22 @@ MiArchitecturalMapBuilder >> nodeAnnouncer [
 	baseNode ifNotNil: [ ^ baseNode announcer ].
 	baseNode := RSComposite new
 		            @ self popup;
-		            @ (HGhostDraggable new color: Smalltalk ui theme caretColor);
+		            @
+			            (HGhostDraggable new color:
+					             Smalltalk ui theme caretColor);
 		            @ self menuInteraction;
 		            @ self highlightable;
 		            @ self highlightableLinkedShapes;
 		            @ RSNodeOnTopWhenPositionChanged new;
 		            @ HResizeParentWhenChildMoves new;
 		            yourself.
 
-	baseNode when: RSMouseDoubleLeftClick do: [ :event | event shape model expandCollapse ] for: self.
+	baseNode
+		when: RSMouseDoubleLeftClick
+		do: [ :event |
+			mapModel perform: mapModel doubleClickSetting with: event shape ]
+		for: self.
+
 	^ baseNode announcer
 ]
 

src/MooseIDE-Dependency/MiArchitecturalMapModel.class.st

@@ -86,6 +86,13 @@ MiArchitecturalMapModel >> associationTypes [
 	^ settings getItemValue: #associationTypes
 ]
 
+{ #category : #settings }
+MiArchitecturalMapModel >> availableDoubleClickActions [
+
+	^ #( doubleClickExpandeCollapse: doubleClickInspect:
+	     doubleClickPropagate: )
+]
+
 { #category : #accessing }
 MiArchitecturalMapModel >> availableLayouts [
 	"all available layouts: 
@@ -192,6 +199,31 @@ MiArchitecturalMapModel >> directoriesVirtualNodes [
 	^ settings getItemValue: #directoriesVirtualNodes
 ]
 
+{ #category : #accessing }
+MiArchitecturalMapModel >> doubleClickExpandeCollapse: aShape [
+
+	aShape model expandCollapse
+]
+
+{ #category : #accessing }
+MiArchitecturalMapModel >> doubleClickInspect: aShape [
+
+	MiInspectorBrowser inspect: aShape model rawModel
+]
+
+{ #category : #accessing }
+MiArchitecturalMapModel >> doubleClickPropagate: aShape [
+
+	self browser buses do: [ :bus |
+		bus globallySelect: aShape model rawModel mooseInterestingEntity ]
+]
+
+{ #category : #'as yet unclassified' }
+MiArchitecturalMapModel >> doubleClickSetting [
+
+	^ settings getItemValue: #doubleClickAction
+]
+
 { #category : #accessing }
 MiArchitecturalMapModel >> entities [
 
@@ -227,6 +259,7 @@ MiArchitecturalMapModel >> initializeSettings [
 						addItem: self itemMegaMorphicSize named: #megaMorphicSize;
 						addItem: self itemTimeoutDuration named: #timeoutDuration;
 						addItem: self itemDirectoriesVirtualNodes named: #directoriesVirtualNodes;
+						addItem: self itemDoubleClickAction named: #doubleClickAction;
 						yourself
 ]
 
@@ -263,6 +296,17 @@ They are root nodes in the map';
 		  yourself
 ]
 
+{ #category : #settings }
+MiArchitecturalMapModel >> itemDoubleClickAction [
+
+	^ MiAbstractSettingItem droplistSetting
+		  possibleValues: self availableDoubleClickActions;
+		  setValue: #doubleClickExpandeCollapse:;
+		  label: 'Action on double click';
+		  help: 'You can define an action for double click on a node.';
+		  yourself
+]
+
 { #category : #settings }
 MiArchitecturalMapModel >> itemLayout [