--- a/StandardSystemView.st	Fri May 02 15:05:40 1997 +0200
+++ b/StandardSystemView.st	Fri May 02 16:07:08 1997 +0200
@@ -870,7 +870,7 @@
 
     borderWidth := 2.         "- notice: many window managers ignore this"
     minExtent := 10 @ 10.
-    maxExtent := (device width) @ (device height).
+    maxExtent := device usableExtent.
     label isNil ifTrue:[label := self class defaultLabel].
     icon isNil ifTrue:[icon := self class defaultIcon].
 
@@ -887,8 +887,8 @@
     dX := (device horizontalPixelPerMillimeter * 20) rounded.
     dY := (device verticalPixelPerMillimeter * 20) rounded.
 
-    limitRight := device width - dX.
-    limitBottom := device height - dY.
+    limitRight := device usableWidth - dX.
+    limitBottom := device usableHeight - dY.
     ((self left > limitRight) or:[
       self top > limitBottom]) ifTrue:[
 	'StandardSystemView [info]: moving view into visible area' infoPrintCR.
@@ -1336,5 +1336,5 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.76 1997-05-01 16:21:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.77 1997-05-02 14:07:08 cg Exp $'
 ! !