--- a/ActiveHelpView.st	Sat Oct 24 16:00:59 2009 +0200
+++ b/ActiveHelpView.st	Sat Oct 24 16:34:43 2009 +0200
@@ -183,14 +183,14 @@
                        #'activeHelp.font'
                        #'activeHelp.style')>
 
-    |bg font|
+    |bg defaultFont|
 
     super initStyle.
 
     shapeStyle := styleSheet at:#'activeHelp.style' default:nil.
-    font := styleSheet fontAt:#'activeHelp.font' default:nil.
-    font notNil ifTrue:[
-        self font:font
+    defaultFont := styleSheet fontAt:#'activeHelp.font' default:nil.
+    defaultFont notNil ifTrue:[
+        self font:defaultFont
     ].
 
     bg := styleSheet colorAt:#'activeHelp.backgroundColor' default:nil.
@@ -201,8 +201,8 @@
             viewBackground := White
         ]
     ].
-
     self borderWidth:(styleSheet at:#'activeHelp.borderWidth' default:1).
+    self borderColor:(styleSheet at:#'activeHelp.borderColor' default:Color black).
 
     "Modified: / 26.10.1997 / 17:02:09 / cg"
 !
@@ -338,7 +338,8 @@
                      @ 
                     ((h * 4) rounded asInteger)
     ] ifFalse:[
-        self extent:pref
+        self extent:(pref + (self borderWidth * 2)).
+        myView origin:(self borderWidth asPoint).
     ]
 
     "Modified: 28.6.1997 / 14:23:49 / cg"
@@ -357,9 +358,9 @@
 !ActiveHelpView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.30 2009-10-23 15:23:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.31 2009-10-24 14:34:43 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.30 2009-10-23 15:23:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.31 2009-10-24 14:34:43 cg Exp $'
 ! !