changeset 16235 | 3ba8f4de3a87 |
parent 16225 | ce1e52b48698 |
child 16237 | bc32adffa408 |
child 16297 | 52295067aa1a |
--- a/AbstractLauncherApplication.st Fri Apr 01 13:54:40 2016 +0200 +++ b/AbstractLauncherApplication.st Fri Apr 01 15:10:57 2016 +0200 @@ -1,3 +1,5 @@ +"{ Encoding: utf8 }" + " COPYRIGHT (c) 1997 by eXept Software AG All Rights Reserved @@ -2220,7 +2222,7 @@ |allBounds bounds| - allBounds :=self device monitorBounds. + allBounds := self device monitorBoundsAt:aWindow center. allBounds size > 0 ifTrue:[ bounds := allBounds detect:[:bounds | bounds containsPoint:self window center] ifNone:nil. ].