--- a/InspectorView.st	Thu Jan 16 15:32:44 2014 +0100
+++ b/InspectorView.st	Thu Jan 16 15:32:49 2014 +0100
@@ -293,7 +293,14 @@
 !InspectorView class methodsFor:'defaults'!
 
 defaultExtent
-    ^ (Screen current usableExtent // 3)
+    "return the default extent of my instances.
+     The value returned here is usually ignored, and
+     the value from preferredExtent taken instead."
+
+     |display|
+
+    display := Screen current.
+    ^ (display monitorBoundsAt:display pointerPosition) extent // 3.
 
     "Created: / 7.9.1998 / 13:47:45 / cg"
     "Modified: / 7.9.1998 / 14:15:38 / cg"
@@ -3689,10 +3696,10 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.323 2013-12-03 15:13:35 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.324 2014-01-16 14:32:49 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.323 2013-12-03 15:13:35 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.324 2014-01-16 14:32:49 stefan Exp $'
 ! !