--- a/ActiveHelpView.st	Tue Apr 30 17:38:14 1996 +0200
+++ b/ActiveHelpView.st	Thu May 02 11:57:36 1996 +0200
@@ -189,8 +189,8 @@
 
     borderForm := Form width:w height:h.
     shapeForm := Form width:w height:h.
-    borderForm fill:(Color colorId:0).
-    shapeForm fill:(Color colorId:0).
+    borderForm fill:(Color noColor).
+    shapeForm fill:(Color noColor).
 
     mirrorV ifTrue:[
         myView origin:(w // 7 + offs) @ (h//8)
@@ -253,7 +253,7 @@
     shapeForm fillPolygon:(Array with:pB1 with:pB2 with:pB3).
 
     shapeForm lineWidth:bw.
-    shapeForm paint:(Color colorId:0).
+    shapeForm paint:(Color noColor).
     shapeForm displayPolygon:(Array with:p3 with:p1 with:p2).
 
     shapeForm paint:(Color colorId:1).
@@ -267,7 +267,7 @@
     self borderShape:borderForm.
     self viewShape:shapeForm
 
-    "Modified: 27.4.1996 / 15:16:15 / cg"
+    "Modified: 2.5.1996 / 11:26:21 / cg"
 !
 
 resizeToFit
@@ -309,5 +309,5 @@
 !ActiveHelpView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.10 1996-04-30 15:38:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.11 1996-05-02 09:57:36 cg Exp $'
 ! !