--- a/ActiveHelpView.st	Thu Jul 25 18:01:13 2002 +0200
+++ b/ActiveHelpView.st	Thu Jul 25 18:11:48 2002 +0200
@@ -164,13 +164,13 @@
 
     super initStyle.
 
-    shapeStyle := styleSheet at:'activeHelp.style' default:nil.
-    font := styleSheet colorAt:'activeHelp.font' default:nil.
+    shapeStyle := styleSheet at:#'activeHelp.style' default:nil.
+    font := styleSheet fontAt:#'activeHelp.font' default:nil.
     font notNil ifTrue:[
         self font:font
     ].
 
-    bg := styleSheet colorAt:'activeHelp.backgroundColor' default:nil.
+    bg := styleSheet colorAt:#'activeHelp.backgroundColor' default:nil.
     bg notNil ifTrue:[
         viewBackground := bg
     ] ifFalse:[
@@ -179,7 +179,7 @@
         ]
     ].
 
-    borderWidth := styleSheet at:'activeHelp.borderWidth' default:1.
+    borderWidth := styleSheet at:#'activeHelp.borderWidth' default:1.
 
     "Modified: / 26.10.1997 / 17:02:09 / cg"
 !
@@ -334,5 +334,5 @@
 !ActiveHelpView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.25 2001-12-08 00:36:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.26 2002-07-25 16:11:48 stefan Exp $'
 ! !