--- a/Label.st	Thu Feb 21 14:45:15 2019 +0100
+++ b/Label.st	Thu Feb 21 17:32:09 2019 +0100
@@ -1659,6 +1659,10 @@
 
 !Label methodsFor:'menu'!
 
+canCopyLabelText
+    ^ self isTextLabel
+!
+
 copyLabelText
     "copy the label's text to the clipboard"
     
@@ -1677,11 +1681,17 @@
         m isNil ifTrue:[
             "/ not a customized menu
             self class == Label ifTrue:[
-                m := self class middleButtonMenu
+                "/ not here - done in FlyByHelp
+                "/ self sensor ctrlDown ifTrue:[
+                "/    ^ self class debugMenu
+                "/ ].    
+                ^ self class middleButtonMenu
             ]
         ].
     ].
     ^ m
+
+    "Modified: / 21-02-2019 / 17:29:34 / Claus Gittinger"
 ! !
 
 !Label methodsFor:'native widget support'!
@@ -1887,10 +1897,6 @@
 
 !Label methodsFor:'queries'!
 
-canCopyLabelText
-    ^ self isTextLabel
-!
-
 computePreferredExtent
     "compute my preferred extent - this is the minimum size I would like to have"