--- a/ActiveHelpView.st	Tue Feb 18 16:06:02 2014 +0100
+++ b/ActiveHelpView.st	Tue Feb 18 17:06:52 2014 +0100
@@ -219,11 +219,11 @@
         viewBackground := bg
     ] ifFalse:[
         shapeStyle == #cartoon ifTrue:[
-            viewBackground := White
+            viewBackground := self whiteColor.
         ]
     ].
     self borderWidth:(styleSheet at:#'activeHelp.borderWidth' default:1).
-    self borderColor:(styleSheet at:#'activeHelp.borderColor' default:Color black).
+    self borderColor:(styleSheet at:#'activeHelp.borderColor' default:self blackColor).
 
     "Modified: / 26.10.1997 / 17:02:09 / cg"
 !
@@ -386,10 +386,10 @@
 !ActiveHelpView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.41 2014-02-18 14:21:54 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.42 2014-02-18 16:06:52 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.41 2014-02-18 14:21:54 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.42 2014-02-18 16:06:52 stefan Exp $'
 ! !