--- a/ActiveHelpView.st	Fri May 03 13:46:53 1996 +0200
+++ b/ActiveHelpView.st	Wed May 08 13:53:17 1996 +0200
@@ -204,17 +204,11 @@
 
     borderForm fillArcX:0 
                       y:y1 
-                      w:w
-                      h:(h // 3 * 2)
+                  width:w
+                 height:(h // 3 * 2)
                    from:0
                   angle:360.
 
-"/    shapeForm fillArcX:bw y:(h // 4) + bw 
-"/                      w:(w - (bw * 2))
-"/                      h:(h // 3 * 2 - (bw * 2))
-"/                   from:0
-"/                  angle:360.
-
     mirrorH ifTrue:[
         mirrorV ifTrue:[
             p1 := w @ h. 
@@ -259,15 +253,15 @@
     shapeForm paint:(Color colorId:1).
     shapeForm fillArcX:bw 
                      y:y1 + bw 
-                     w:(w - (bw * 2))
-                     h:(h // 3 * 2 - (bw * 2))
+                 width:(w - (bw * 2))
+                height:(h // 3 * 2 - (bw * 2))
                   from:0
                  angle:360.
 
     self borderShape:borderForm.
     self viewShape:shapeForm
 
-    "Modified: 2.5.1996 / 11:26:21 / cg"
+    "Modified: 8.5.1996 / 08:39:22 / cg"
 !
 
 resizeToFit
@@ -309,5 +303,5 @@
 !ActiveHelpView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.11 1996-05-02 09:57:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.12 1996-05-08 11:53:17 cg Exp $'
 ! !