--- a/ActiveHelpView.st	Sat Dec 08 01:36:21 2001 +0100
+++ b/ActiveHelpView.st	Sat Dec 08 01:36:32 2001 +0100
@@ -157,13 +157,19 @@
 
     <resource: #style (#'activeHelp.backgroundColor'
                        #'activeHelp.borderWidth'
+                       #'activeHelp.font'
                        #'activeHelp.style')>
 
-    |bg|
+    |bg font|
 
     super initStyle.
 
     shapeStyle := styleSheet at:'activeHelp.style' default:nil.
+    font := styleSheet colorAt:'activeHelp.font' default:nil.
+    font notNil ifTrue:[
+        self font:font
+    ].
+
     bg := styleSheet colorAt:'activeHelp.backgroundColor' default:nil.
     bg notNil ifTrue:[
         viewBackground := bg
@@ -178,13 +184,6 @@
     "Modified: / 26.10.1997 / 17:02:09 / cg"
 !
 
-initialize
-    super initialize.
-    font := Font family:'helvetica' size:12.
-
-    "Modified: 29.5.1996 / 15:37:40 / cg"
-!
-
 realize
     self create.
     self computeShape.
@@ -335,5 +334,5 @@
 !ActiveHelpView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.24 2001-07-20 17:17:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.25 2001-12-08 00:36:32 cg Exp $'
 ! !