--- a/ActiveHelpView.st	Fri Jul 05 18:00:35 1996 +0200
+++ b/ActiveHelpView.st	Fri Jul 05 18:10:36 1996 +0200
@@ -19,7 +19,7 @@
 	category:'Interface-Help'
 !
 
-!ActiveHelpView class methodsFor:'documentation'!
+!ActiveHelpView  class methodsFor:'documentation'!
 
 copyright
 "
@@ -57,7 +57,7 @@
 "
 ! !
 
-!ActiveHelpView class methodsFor:'instance creation'!
+!ActiveHelpView  class methodsFor:'instance creation'!
 
 for:someText
     "create a talking-view for some text"
@@ -67,7 +67,7 @@
     helpView := self new.
 
     textView := Label new.
-    textView font:(helpView font on:textView device).
+    textView font:(helpView font on:textView graphicsDevice).
     ^ (helpView withView:textView) contents:someText
 
     "
@@ -78,7 +78,7 @@
         shapeStyle:#cartoon; realize
     "
 
-    "Modified: 29.5.1996 / 15:34:23 / cg"
+    "Modified: 5.7.1996 / 17:59:23 / cg"
 !
 
 with:aView
@@ -194,14 +194,14 @@
     bw := 4.
     offs := 0.
 
-    self corner x > self device width ifTrue:[
+    self corner x > device width ifTrue:[
         mirrorH := true.
         self origin:((self origin x - w) @ (self origin y)).
         offs := bw * 2.
     ] ifFalse:[
         mirrorH := false
     ].
-    self corner y > self device height ifTrue:[
+    self corner y > device height ifTrue:[
         mirrorV := true.
         self origin:(self origin x @ (self origin y - h)).
     ] ifFalse:[
@@ -282,7 +282,7 @@
     self borderShape:borderForm.
     self viewShape:shapeForm
 
-    "Modified: 29.5.1996 / 16:07:43 / cg"
+    "Modified: 5.7.1996 / 17:59:05 / cg"
 !
 
 resizeToFit
@@ -314,8 +314,8 @@
     "Modified: 12.5.1996 / 21:58:12 / cg"
 ! !
 
-!ActiveHelpView class methodsFor:'documentation'!
+!ActiveHelpView  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.14 1996-05-29 14:08:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.15 1996-07-05 16:10:36 cg Exp $'
 ! !