MenuPanel.st
changeset 4342 6c5506e02fbc
parent 4316 d3bab8fca92e
child 4343 0007f9cdd7a1
--- a/MenuPanel.st	Mon Aug 26 15:43:40 2013 +0200
+++ b/MenuPanel.st	Tue Aug 27 16:31:29 2013 +0200
@@ -2184,7 +2184,7 @@
     "answer the seconds a submenu will be delayed before
     open; an already open submenu than will be closed"
 
-    ^ styleSheet at:#'menu.delayInSecondsBeforeOpeningSubmenu'  default:0.2
+    ^ styleSheet at:#'menu.delayInSecondsBeforeOpeningSubmenu'  default:0.3
 !
 
 drawMenuIndicatorSeparatorLine
@@ -4134,9 +4134,15 @@
 "/ old:
 "/    ^ self isPopUpView not
 
-    "/ no longer - it turned out to be counter-productive
-    self isPopUpView ifTrue:[^ false].
-    ^ UserPreferences current menuPanelTakesFocusOnClick.
+    "/ I am not sure how this really should be -
+    "/ I guess, it needs a more intelligent and dynamic decision.
+    "/ for now, the menuPanelTakesFocusOnClick returns true, otherwise,
+    "/ we cannot control menus with the keyboard.
+    self isPopUpView ifTrue:[
+        ^ false
+    ] ifFalse:[
+        ^ UserPreferences current menuPanelTakesFocusOnClick.
+    ]
 ! !
 
 !MenuPanel methodsFor:'grabbing'!
@@ -8684,11 +8690,11 @@
 !MenuPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.565 2013-08-02 14:45:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.566 2013-08-27 14:31:29 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.565 2013-08-02 14:45:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.566 2013-08-27 14:31:29 cg Exp $'
 ! !