--- a/ButtonController.st Mon Jun 23 15:03:29 2014 +0200
+++ b/ButtonController.st Tue Jun 24 12:39:21 2014 +0200
@@ -439,15 +439,14 @@
buttonPress:button x:x y:y
|wg|
- (button == 1) ifFalse:[
- ^ super buttonPress:button x:x y:y
+ "/ simulate momentary loss of focus to force accept into models in other components
+ wg := view windowGroup.
+ wg notNil ifTrue:[
+ wg focusMomentaryRelease.
].
- (view styleSheet at:#'button.takeFocusOnClick' default:false) ifTrue:[
- "/ mhmh - how can this ever be nil ?
- (wg := view windowGroup) notNil ifTrue:[
- wg focusToView:view
- ]
+ (button == 1) ifFalse:[
+ ^ super buttonPress:button x:x y:y
].
buttonDown := true.
@@ -789,6 +788,6 @@
!ButtonController class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.79 2014-06-23 13:03:29 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.80 2014-06-24 10:39:21 stefan Exp $'
! !