--- a/AbstractLauncherApplication.st	Wed Jan 15 15:43:12 2014 +0100
+++ b/AbstractLauncherApplication.st	Thu Jan 16 15:31:22 2014 +0100
@@ -2072,7 +2072,7 @@
 
     aWindow topView 
         origin:(aWindow origin max:(10@10));
-        extent:(aWindow extent min:(Display usableExtent - (100@100))).
+        extent:(aWindow extent min:(aWindow device usableExtent - (100@100))).
 !
 
 deIconifyAllWindows
@@ -4257,7 +4257,7 @@
     returnFocus := StandardSystemView returnFocusWhenClosingModalBoxes asValue.
     takeFocus := StandardSystemView takeFocusWhenMapped asValue.
     focusFollowsMouse := currentUserPrefs focusFollowsMouse asValue.
-    activateOnClick := (Display activateOnClick:nil) asValue.
+    activateOnClick := (Screen current activateOnClick:nil) asValue.
     opaqueVariablePanelResize := currentUserPrefs opaqueVariablePanelResizing asValue.
     opaqueTableColumnResize := currentUserPrefs opaqueTableColumnResizing asValue.
 
@@ -6943,14 +6943,14 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.444 2014-01-05 13:15:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.445 2014-01-16 14:31:22 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.444 2014-01-05 13:15:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.445 2014-01-16 14:31:22 stefan Exp $'
 !
 
 version_SVN
-    ^ '$Id: AbstractLauncherApplication.st,v 1.444 2014-01-05 13:15:58 cg Exp $'
+    ^ '$Id: AbstractLauncherApplication.st,v 1.445 2014-01-16 14:31:22 stefan Exp $'
 ! !