--- a/ActiveHelpView.st	Wed Aug 18 16:45:37 1999 +0200
+++ b/ActiveHelpView.st	Wed Aug 18 17:14:38 1999 +0200
@@ -68,7 +68,7 @@
     helpView := self new.
 
     textView := Label new.
-    textView font:(helpView font on:textView graphicsDevice).
+    textView font:(helpView font onDevice:textView graphicsDevice).
     ^ (helpView withView:textView) contents:someText
 
     "
@@ -332,5 +332,5 @@
 !ActiveHelpView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.21 1999-06-05 19:43:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.22 1999-08-18 15:14:38 cg Exp $'
 ! !