diff --git a/src/GToolkit4Magritte-Core/GtMagritteBuilderUtility.class.st b/src/GToolkit4Magritte-Core/GtMagritteBuilderUtility.class.st
index 02b1cd6..e29ea58 100644
--- 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' }