class: Label
authorClaus Gittinger <cg@exept.de>
Sat, 24 Aug 2013 08:29:14 +0200
changeset 4672 8178bf083831
parent 4671 c59883574da1
child 4673 575d2d398823
class: Label changed: #middleButtonMenu
Label.st
--- a/Label.st	Fri Aug 23 20:38:40 2013 +0200
+++ b/Label.st	Sat Aug 24 08:29:14 2013 +0200
@@ -1460,9 +1460,12 @@
 
     m := super middleButtonMenu.
     m isNil ifTrue:[
-        "/ not a customized menu
-        self class == Label ifTrue:[
-            m := self class middleButtonMenu
+        m := self yellowButtonMenu.
+        m isNil ifTrue:[
+            "/ not a customized menu
+            self class == Label ifTrue:[
+                m := self class middleButtonMenu
+            ]
         ].
     ].
     ^ m
@@ -1953,10 +1956,10 @@
 !Label class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.149 2013-08-22 17:23:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.150 2013-08-24 06:29:14 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.149 2013-08-22 17:23:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.150 2013-08-24 06:29:14 cg Exp $'
 ! !