--- 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 $'
! !