--- 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 $'
! !