--- a/TopView.st Fri Jun 06 11:05:55 2014 +0200
+++ b/TopView.st Tue Jun 10 12:23:46 2014 +0200
@@ -185,7 +185,7 @@
!TopView class methodsFor:'accessing'!
currentWindowBeingMoved
- "the current window move operation
+ "the current window move operation
(only used with modeless popup windows; i.e. windows without decoration,
which want to be moved by click-motion on the background)"
@@ -630,27 +630,27 @@
!TopView methodsFor:'event handling-window move'!
doWindowMove
- "a window move operation
+ "a window move operation
(only used with modeless popup windows; i.e. windows without decoration,
which want to be moved by click-motion on the background)"
|delta|
CurrentWindowBeingMoved == self ifTrue:[
- delta := self graphicsDevice pointerPosition - CurrentWindowMoveStart.
- (CurrentWindowMoveState notNil
- or:[ delta r > 5 ]) ifTrue:[
- CurrentWindowMoveState := #inMove.
- CurrentWindowMoveStart := self graphicsDevice pointerPosition.
- self origin:(self origin + delta).
- ].
+ delta := self graphicsDevice pointerPosition - CurrentWindowMoveStart.
+ (CurrentWindowMoveState notNil
+ or:[ delta r > 5 ]) ifTrue:[
+ CurrentWindowMoveState := #inMove.
+ CurrentWindowMoveStart := self graphicsDevice pointerPosition.
+ self origin:(self origin + delta).
+ ].
].
"Created: / 03-03-2011 / 19:13:08 / cg"
!
endWindowMove
- "a window move operation
+ "a window move operation
(only used with modeless popup windows; i.e. windows without decoration,
which want to be moved by click-motion on the background)"
@@ -660,7 +660,7 @@
!
startWindowMove
- "a window move operation
+ "a window move operation
(only used with modeless popup windows; i.e. windows without decoration,
which want to be moved by click-motion on the background)"
@@ -673,7 +673,7 @@
startWindowMoveOnButtonPress
"this allows undecorated windows (i.e. modeless popups) to be moved by
- drag-moving in their window area
+ drag-moving in their window area
(similar to how mac windows and realplayer are moved).
Return true here, if a window move should be initiated"
@@ -789,7 +789,7 @@
super postRealize.
keyboardProcessor isNil ifTrue:[
- keyboardProcessor := KeyboardProcessor new.
+ keyboardProcessor := KeyboardProcessor new.
].
self graphicsDevice realizedTopViewHookFor:self
@@ -838,7 +838,7 @@
when invoking commands with the rDoit mechanism"
[self drawableId isNil] whileFalse:[
- Delay waitForSeconds:0.1.
+ Delay waitForSeconds:0.1.
].
"asynchronous:
@@ -939,7 +939,7 @@
(i.e. I want to come up without any decoration and popUp to top immediately)"
type isInteger ifTrue:[
- ^ (type bitAnd:WindowTypeMask) == TypePopUp
+ ^ (type bitAnd:WindowTypeMask) == TypePopUp
].
"/ the nonInteger handling code is for backward compatibility only.
^ type == #popup
@@ -953,7 +953,7 @@
(i.e. I want to come up above all other windows)"
type isInteger ifTrue:[
- ^ (type bitAnd:WindowTypeMask) == TypeScreenDialog
+ ^ (type bitAnd:WindowTypeMask) == TypeScreenDialog
].
"/ the nonInteger handling code is for backward compatibility only.
^ false
@@ -976,7 +976,7 @@
(i.e. I want to come up with a smaller window-title area, without minimize and maximize buttons)"
type isInteger ifTrue:[
- ^ (type bitAnd:WindowTypeMask) == TypeToolDialog
+ ^ (type bitAnd:WindowTypeMask) == TypeToolDialog
].
"/ the nonInteger handling code is for backward compatibility only.
^ false
@@ -989,7 +989,7 @@
(i.e. I want to come up with a smaller window-title area, without minimize and maximize buttons)"
type isInteger ifTrue:[
- ^ (type bitAnd:WindowTypeMask) == TypeToolWindow
+ ^ (type bitAnd:WindowTypeMask) == TypeToolWindow
].
"/ the nonInteger handling code is for backward compatibility only.
^ false
@@ -1009,7 +1009,7 @@
"return true if I am an undecorated view (no minimize, maximize and close buttons)."
type isInteger ifTrue:[
- ^ (type bitAnd:WindowTypeMask) == TypeUndecorated
+ ^ (type bitAnd:WindowTypeMask) == TypeUndecorated
].
"/ the nonInteger handling code is for backward compatibility only.
^ false
@@ -1132,7 +1132,7 @@
(myApplication notNil
and:[ masterGroup isNil or:[myApplication ~= masterGroup application]]) ifTrue:[
AbortOperationRequest handle:[:ex |
- "/ in case the close is cought by the application
+ "/ in case the close is caught by the application
^ self.
] do:[
myApplication closeRequest.
@@ -1165,14 +1165,14 @@
In contrast to map, which does it non-iconified"
realized ifFalse:[
- "
- now, make the view visible
- "
- realized := true.
- self graphicsDevice
- mapView:self id:self drawableId iconified:true
- atX:left y:top width:width height:height
- minExtent:(self minExtent) maxExtent:(self maxExtent)
+ "
+ now, make the view visible
+ "
+ realized := true.
+ self graphicsDevice
+ mapView:self id:self drawableId iconified:true
+ atX:left y:top width:width height:height
+ minExtent:(self minExtent) maxExtent:(self maxExtent)
]
"Modified: 25.2.1997 / 22:44:33 / cg"
@@ -1229,10 +1229,10 @@
self drawableId isNil ifTrue:[self create].
anotherView isNil ifTrue:[
- otherId := self drawableId.
+ otherId := self drawableId.
] ifFalse:[
- anotherView create.
- otherId := anotherView id.
+ anotherView create.
+ otherId := anotherView id.
].
self graphicsDevice setTransient:self drawableId for:otherId.
self origin:aPosition.
@@ -1361,34 +1361,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.
+ ]
].
self graphicsDevice isWindowsPlatform ifTrue:[
- self raise
+ self raise
].
false "self isScreenDialog" ifTrue:[
- self setForegroundWindow.
- self activate.
+ self setForegroundWindow.
+ self activate.
].
subViews notNil ifTrue:[
- subViews do:[:eachSubView | eachSubView topViewWasMapped ].
+ subViews do:[:eachSubView | eachSubView topViewWasMapped ].
]
"Modified: / 09-12-2010 / 18:13:20 / cg"
@@ -1443,11 +1443,11 @@
!TopView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.149 2014-04-03 14:35:54 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.150 2014-06-10 10:23:46 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.149 2014-04-03 14:35:54 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.150 2014-06-10 10:23:46 cg Exp $'
! !