--- a/TopView.st Wed Dec 01 12:16:06 2010 +0100
+++ b/TopView.st Wed Dec 01 12:18:31 2010 +0100
@@ -1304,35 +1304,34 @@
self masterSlaveMessage:#remap inGroup:windowGroup.
self isModal ifTrue:[
- "take it away from any popup menu possibly still active"
+ "take it away from any popup menu possibly still active"
- self forceUngrabKeyboard.
- self forceUngrabPointer.
- "
- get the focus
- "
- self getKeyboardFocus.
- self enableEnterLeaveEvents
+ self forceUngrabKeyboard.
+ self forceUngrabPointer.
+ "
+ get the focus
+ "
+ self getKeyboardFocus.
+ self enableEnterLeaveEvents
] ifFalse:[
- "
- ask for the focus - this avoids having to click on the
- view with WM's which need an explicit click.
- Q: is this a good idea ?
- "
- TakeFocusWhenMapped == true ifTrue:[
- self getKeyboardFocus.
- ]
+ "
+ ask for the focus - this avoids having to click on the
+ view with WM's which need an explicit click.
+ Q: is this a good idea ?
+ "
+ TakeFocusWhenMapped == true ifTrue:[
+ self getKeyboardFocus.
+ ]
].
device platformName = 'WIN32' ifTrue:[
- self raise
+ self raise
].
- self isScreenDialog ifTrue:[
- self setForegroundWindow.
- self activate.
+ true "self isScreenDialog" ifTrue:[
+ self setForegroundWindow.
+ self activate.
].
- "Modified: / 10.9.1998 / 22:02:52 / cg"
- "Modified: 30.5.1996 / 09:37:22 / cg"
+ "Modified: / 01-12-2010 / 12:16:58 / cg"
!
masterSlaveMessage:aSelector inGroup:aWindowGroup
@@ -1384,11 +1383,11 @@
!TopView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.131 2010-12-01 11:16:06 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.132 2010-12-01 11:18:31 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.131 2010-12-01 11:16:06 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.132 2010-12-01 11:18:31 cg Exp $'
! !
TopView initialize!