--- a/ActiveHelpView.st	Sun Mar 02 21:42:37 2003 +0100
+++ b/ActiveHelpView.st	Wed Mar 12 12:33:45 2003 +0100
@@ -93,9 +93,9 @@
 
     |helpView textView|
 
-    helpView := self on:aDevice.
+    helpView := self onDevice:aDevice.
 
-    textView := Label new.
+    textView := Label onDevice:aDevice.
     textView font:(helpView font onDevice:textView graphicsDevice).
     ^ (helpView withView:textView) contents:someText
 
@@ -360,5 +360,5 @@
 !ActiveHelpView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.27 2002-12-09 17:49:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.28 2003-03-12 11:33:45 stefan Exp $'
 ! !