# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1377971305 -7200
# Node ID ce24ea76ae05adfe071d0f9235c17d6a695abd11
# Parent  2f47681f1d62af1f24b0509f56a83e316fffdbb5
class: ActiveHelpView
changed: #computeShape

diff -r 2f47681f1d62 -r ce24ea76ae05 ActiveHelpView.st
--- a/ActiveHelpView.st	Sat Aug 31 19:42:49 2013 +0200
+++ b/ActiveHelpView.st	Sat Aug 31 19:48:25 2013 +0200
@@ -228,12 +228,13 @@
 computeShape
     "compute the shape, based upon the size of my component view"
 
-    |extent shapeForm borderForm y1 bw h w mirrorH mirrorV
+    |extent oldOrigin shapeForm borderForm y1 bw h w mirrorH mirrorV
      p1 p2 p3 pB1 pB2 pB3 offs hEll h2 w2 w8 w78 mousePosition|
 
     device supportsArbitraryShapedViews ifTrue:[
         (shapeStyle == #cartoon) ifTrue:[
             extent := self extent.
+            oldOrigin := self origin.
             h := extent y.
             w := extent x.
             bw := 4.
@@ -243,7 +244,7 @@
             ((mousePosition > (device width * (2/3)))
             or:[ self corner x > device usableWidth ]) ifTrue:[
                 mirrorH := true.
-                self origin:((self origin x - w) @ (self origin y)).
+                self origin:((oldOrigin x - w) @ (self origin y)).
                 offs := bw * 2.
             ] ifFalse:[
                 mirrorH := false
@@ -251,7 +252,7 @@
             ((mousePosition > (device height * (2/3)))
             or:[ self corner y > device usableHeight ]) ifTrue:[
                 mirrorV := true.
-                self origin:(self origin x @ (self origin y - h)).
+                self origin:(oldOrigin x @ (self origin y - h)).
             ] ifFalse:[
                 mirrorV := false
             ].
@@ -270,8 +271,8 @@
             ].
 
             borderForm fillArcX:0 y:y1 
-                          width:w height:hEll
-                           from:0 angle:360.
+                       width:w height:hEll
+                       from:0 angle:360.
 
             myView origin:(width - myView width // 2) @ (y1 + ((hEll - myView height) // 2)).
 
@@ -323,8 +324,8 @@
 
             shapeForm paint:(Color colorId:1).
             shapeForm fillArcX:bw y:y1 + bw 
-                         width:(w - (bw * 2)) height:(h // 3 * 2 - (bw * 2))
-                          from:0 angle:360.
+                      width:(w - (bw * 2)) height:(h // 3 * 2 - (bw * 2))
+                      from:0 angle:360.
         ].
         borderForm notNil ifTrue:[
             self borderShape:borderForm.
@@ -368,10 +369,10 @@
 !ActiveHelpView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.35 2013-08-31 17:42:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.36 2013-08-31 17:48:25 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.35 2013-08-31 17:42:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.36 2013-08-31 17:48:25 cg Exp $'
 ! !