ButtonController.st
changeset 5075 b6044bfa44f9
parent 5074 b7858d0751f0
child 5323 5ea789dec86f
--- 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 $'
 ! !