--- a/ActiveHelpView.st Fri May 28 15:26:35 1999 +0200
+++ b/ActiveHelpView.st Sat Jun 05 21:43:17 1999 +0200
@@ -197,7 +197,7 @@
"compute the shape, based upon the size of my component view"
|extent shapeForm borderForm y1 bw h w mirrorH mirrorV
- p1 p2 p3 pB1 pB2 pB3 offs hEll|
+ p1 p2 p3 pB1 pB2 pB3 offs hEll h2 w2 w8 w78|
Display supportsArbitraryShapedViews ifTrue:[
(shapeStyle == #cartoon) ifTrue:[
@@ -240,37 +240,42 @@
myView origin:(width - myView width // 2) @ (y1 + ((hEll - myView height) // 2)).
+ h2 := h // 2.
+ w2 := w // 2.
+ w8 := w // 8.
+ w78 := w * 7 // 8.
+
mirrorH ifTrue:[
mirrorV ifTrue:[
p1 := w @ h.
- p2 := ((w * 7 // 8) @ (h // 2)).
- p3 := ((w // 2) @ (h // 2)).
+ p2 := (w78 @ h2).
+ p3 := (w2 @ h2).
pB1 := (w-bw) @ (h-bw).
- pB2 := ((w * 7 // 8 - bw) @ (h // 2 - bw)).
- pB3 := ((w // 2 + bw) @ (h // 2 - bw))
+ pB2 := ((w78 - bw) @ (h2 - bw)).
+ pB3 := ((w2 + bw) @ (h2 - bw))
] ifFalse:[
p1 := w @ 0.
- p2 := ((w * 7 // 8) @ (h // 2)).
- p3 := ((w // 2) @ (h // 2)).
+ p2 := (w78 @ h2).
+ p3 := (w2 @ h2).
pB1 := (w-bw) @ bw.
- pB2 := ((w * 7 // 8 - bw) @ (h // 2 + bw)).
- pB3 := ((w // 2 + bw) @ (h // 2 + bw))
+ pB2 := ((w78 - bw) @ (h2 + bw)).
+ pB3 := ((w2 + bw) @ (h2 + bw))
]
] ifFalse:[
mirrorV ifTrue:[
p1 := 0@h.
- p2 := ((w // 8) @ (h // 2)).
- p3 := ((w // 2) @ (h // 2)).
+ p2 := (w8 @ h2).
+ p3 := (w2 @ h2).
pB1 := bw@(h-bw).
- pB2 := ((w // 8 + bw) @ (h // 2 - bw)).
- pB3 := ((w // 2 - bw) @ (h // 2 - bw)).
+ pB2 := ((w8 + bw) @ (h2 - bw)).
+ pB3 := ((w2 - bw) @ (h2 - bw)).
] ifFalse:[
p1 := 0@0.
- p2 := ((w // 8) @ (h // 2)).
- p3 := ((w // 2) @ (h // 2)).
+ p2 := (w8 @ h2).
+ p3 := (w2 @ h2).
pB1 := bw@bw.
- pB2 := ((w // 8 + bw) @ (h // 2 + bw)).
- pB3 := ((w // 2 - bw) @ (h // 2 + bw)).
+ pB2 := ((w8 + bw) @ (h2 + bw)).
+ pB3 := ((w2 - bw) @ (h2 + bw)).
]
].
@@ -292,7 +297,7 @@
].
]
- "Modified: 28.6.1997 / 14:23:39 / cg"
+ "Modified: / 5.6.1999 / 21:41:01 / cg"
!
resizeToFit
@@ -327,5 +332,5 @@
!ActiveHelpView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.20 1999-05-27 12:23:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.21 1999-06-05 19:43:17 cg Exp $'
! !