[feenkcom/gtoolkit#4124] spawn a magritte definition on alt+click on …

…a label
feenkcom · Oct 25, 2024 · a35c5e4 · a35c5e4
1 parent 353d78b
commit a35c5e4
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/src/GToolkit4Magritte-Core/GtMagritteBuilderUtility.class.st b/src/GToolkit4Magritte-Core/GtMagritteBuilderUtility.class.st
@@ -307,7 +307,13 @@ GtMagritteBuilderUtility class >> newFieldLabelWithSpace: aSpaceNumber using: aD
 				right: (aSpaceNumber ifNil: [ self defaultSpaceNumber ])
 				bottom: (aSpaceNumber ifNil: [ self defaultSpaceNumber ])
 				left: 0);
-		constraintsDo: [ :c | c grid vertical alignTop ]
+		constraintsDo: [ :c | c grid vertical alignTop ];
+		when: BlClickEvent
+		do: [ :anEvent | 
+			anEvent modifiers isAlt
+				ifTrue: [
+					anEvent consumed: true.
+					anEvent target phlow spawnObject: aDescription ] ]
 ]
 
 { #category : #'api - ui' }