Mercurial Mercurial > hg > stx-libwidg / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Mon, 26 Oct 1998 21:13:15 +0100
changeset 1710 6afc1887a2a3
parent 1709 0b30d58a5484
child 1711 b9d07088fe74
checkin from browser
ButtonC.st file | annotate | diff | comparison | revisions
ButtonController.st file | annotate | diff | comparison | revisions 
--- a/ButtonC.st	Thu Oct 22 20:10:37 1998 +0200
+++ b/ButtonC.st	Mon Oct 26 21:13:15 1998 +0100
@@ -395,12 +395,17 @@
 !
 
 buttonPress:button x:x y:y
+    |wg|
+
     (button == 1 or:[button == #select]) ifFalse:[
         ^ super buttonPress:button x:x y:y
     ].
 
     (view styleSheet at:#'focus.takeOnClick' default:false) ifTrue:[
-        view windowGroup focusToView:view
+        "/ mhmh - how can this ever be nil ?
+        (wg := view windowGroup) notNil ifTrue:[
+            wg focusToView:view
+        ]
     ].
 
     buttonDown := true.
@@ -437,7 +442,7 @@
         ]
     ]
 
-    "Modified: / 18.9.1998 / 17:18:53 / cg"
+    "Modified: / 26.10.1998 / 20:23:07 / cg"
 !
 
 buttonRelease:button x:x y:y
@@ -691,5 +696,5 @@
 !ButtonController class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ButtonC.st,v 1.52 1998-09-18 16:02:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ButtonC.st,v 1.53 1998-10-26 20:13:15 cg Exp $'
 ! !
--- a/ButtonController.st	Thu Oct 22 20:10:37 1998 +0200
+++ b/ButtonController.st	Mon Oct 26 21:13:15 1998 +0100
@@ -395,12 +395,17 @@
 !
 
 buttonPress:button x:x y:y
+    |wg|
+
     (button == 1 or:[button == #select]) ifFalse:[
         ^ super buttonPress:button x:x y:y
     ].
 
     (view styleSheet at:#'focus.takeOnClick' default:false) ifTrue:[
-        view windowGroup focusToView:view
+        "/ mhmh - how can this ever be nil ?
+        (wg := view windowGroup) notNil ifTrue:[
+            wg focusToView:view
+        ]
     ].
 
     buttonDown := true.
@@ -437,7 +442,7 @@
         ]
     ]
 
-    "Modified: / 18.9.1998 / 17:18:53 / cg"
+    "Modified: / 26.10.1998 / 20:23:07 / cg"
 !
 
 buttonRelease:button x:x y:y
@@ -691,5 +696,5 @@
 !ButtonController class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.52 1998-09-18 16:02:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.53 1998-10-26 20:13:15 cg Exp $'
 ! !
hg/stx-libwidg