# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1258464613 -3600
# Node ID dc8cd7d0f0fdb71fb88c0c2fa4abe0742076a4d5
# Parent  8a9366e45bf3af451b9fa930bc8af4a909fe8779
changed: #computeShape

diff -r 8a9366e45bf3 -r dc8cd7d0f0fd ActiveHelpView.st
--- a/ActiveHelpView.st	Tue Nov 17 12:22:46 2009 +0100
+++ b/ActiveHelpView.st	Tue Nov 17 14:30:13 2009 +0100
@@ -231,14 +231,14 @@
             bw := 4.
             offs := 0.
 
-            self corner x > device usableExtent x ifTrue:[
+            self corner x > device usableWidth ifTrue:[
                 mirrorH := true.
                 self origin:((self origin x - w) @ (self origin y)).
                 offs := bw * 2.
             ] ifFalse:[
                 mirrorH := false
             ].
-            self corner y > device usableExtent y ifTrue:[
+            self corner y > device usableHeight ifTrue:[
                 mirrorV := true.
                 self origin:(self origin x @ (self origin y - h)).
             ] ifFalse:[
@@ -358,9 +358,9 @@
 !ActiveHelpView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.31 2009-10-24 14:34:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.32 2009-11-17 13:30:13 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.31 2009-10-24 14:34:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.32 2009-11-17 13:30:13 cg Exp $'
 ! !