--- a/TopView.st Sat Apr 02 17:07:48 2016 +0200
+++ b/TopView.st Sat Apr 02 17:07:49 2016 +0200
@@ -552,10 +552,10 @@
"WIN32 only: add a tray icon for myself;
may then receive tray*-events in the future."
- self device
- addTrayIconFor:self
- icon:anImageOrForm iconMask:nil
- toolTipMessage:toolTipMessage
+ device
+ addTrayIconFor:self
+ icon:anImageOrForm iconMask:nil
+ toolTipMessage:toolTipMessage
"
|v icon|
@@ -665,13 +665,13 @@
|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 := device pointerPosition - CurrentWindowMoveStart.
+ (CurrentWindowMoveState notNil
+ or:[ delta r > 5 ]) ifTrue:[
+ CurrentWindowMoveState := #inMove.
+ CurrentWindowMoveStart := device pointerPosition.
+ self origin:(self origin + delta).
+ ].
].
"Created: / 03-03-2011 / 19:13:08 / cg"
@@ -693,7 +693,7 @@
which want to be moved by click-motion on the background)"
CurrentWindowBeingMoved := self.
- CurrentWindowMoveStart := self graphicsDevice pointerPosition.
+ CurrentWindowMoveStart := device pointerPosition.
CurrentWindowMoveState := nil.
"Created: / 03-03-2011 / 19:09:39 / cg"
@@ -780,7 +780,7 @@
|wg dev|
wg := windowGroup. "/ have to fetch windowGroup before;
- dev := self graphicsDevice. "/ and device ...
+ dev := device. "/ and device ...
super destroy. "/ ... since destroy nils em
"/ dev notNil ifTrue:[
@@ -801,10 +801,10 @@
|screenCenter|
super initialize.
- self graphicsDevice initializeTopViewHookFor:self.
+ device initializeTopViewHookFor:self.
"/ MULTI SCREEN
- screenCenter := self graphicsDevice centerOfMonitorHavingPointer.
+ screenCenter := device centerOfMonitorHavingPointer.
left := screenCenter x - (width // 2).
top := screenCenter y - (height // 2).
@@ -817,10 +817,10 @@
super postRealize.
keyboardProcessor isNil ifTrue:[
- keyboardProcessor := KeyboardProcessor new.
+ keyboardProcessor := KeyboardProcessor new.
].
- self graphicsDevice realizedTopViewHookFor:self
+ device realizedTopViewHookFor:self
!
realize
@@ -1129,7 +1129,7 @@
self create.
id := self drawableId
].
- self graphicsDevice
+ device
activateWindow:id;
focusView:self
@@ -1202,14 +1202,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.
+ device
+ 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"
@@ -1237,7 +1237,7 @@
Mark a TopView as #beScreenDialog, to send this on open."
self drawableId isNil ifTrue:[self create].
- self graphicsDevice setForegroundWindow:self drawableId
+ device setForegroundWindow:self drawableId
"
Transcript topView raise
@@ -1266,12 +1266,12 @@
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.
+ device setTransient:self drawableId for:otherId.
self origin:aPosition.
self open
@@ -1417,7 +1417,7 @@
self getKeyboardFocus.
]
].
- self graphicsDevice isWindowsPlatform ifTrue:[
+ device isWindowsPlatform ifTrue:[
self raise
].
false "self isScreenDialog" ifTrue:[