equal
deleted
inserted
replaced
1328 "/ but behaved ugly if clicking in a scrollbar ... |
1328 "/ but behaved ugly if clicking in a scrollbar ... |
1329 |
1329 |
1330 "/ XXX: move to dispatchEvent |
1330 "/ XXX: move to dispatchEvent |
1331 event isButtonPressEvent ifTrue:[ |
1331 event isButtonPressEvent ifTrue:[ |
1332 (evView wantsFocusWithButtonPress) ifTrue:[ |
1332 (evView wantsFocusWithButtonPress) ifTrue:[ |
1333 evView requestFocus. |
1333 "/ cannot use 'evView requestFocus' here, |
1334 "/ self focusView:evView. |
1334 "/ since we want to enforce it without giving the |
|
1335 "/ view a chance to circumvent this. |
|
1336 |
|
1337 "/ evView requestFocus. |
|
1338 self focusView:evView. |
1335 ]. |
1339 ]. |
1336 ]. |
1340 ]. |
1337 |
1341 |
1338 LastActiveGroup := self. |
1342 LastActiveGroup := self. |
1339 LastActiveProcess := Processor activeProcess. |
1343 LastActiveProcess := Processor activeProcess. |
2111 ! ! |
2115 ! ! |
2112 |
2116 |
2113 !WindowGroup class methodsFor:'documentation'! |
2117 !WindowGroup class methodsFor:'documentation'! |
2114 |
2118 |
2115 version |
2119 version |
2116 ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.194 1999-12-08 20:52:07 ca Exp $' |
2120 ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.195 1999-12-09 12:44:48 ca Exp $' |
2117 ! ! |
2121 ! ! |
2118 WindowGroup initialize! |
2122 WindowGroup initialize! |