--- a/ActiveHelp.st	Sun May 26 18:50:39 1996 +0200
+++ b/ActiveHelp.st	Tue May 28 20:20:50 1996 +0200
@@ -403,7 +403,7 @@
 "/        p terminate.
 "/    ].
 
-    whereOnScreen := aView device pointerPosition.
+    whereOnScreen := aView graphicsDevice pointerPosition.
 
     (currentFrame notNil
     and:[(currentFrame insetBy:1@1) containsPoint:whereOnScreen]) ifFalse:[
@@ -411,7 +411,7 @@
         currentView := nil
     ].
 
-    "Modified: 27.4.1996 / 15:11:35 / cg"
+    "Modified: 28.5.1996 / 20:18:28 / cg"
 !
 
 initiateHelpFor:aView atX:x y:y
@@ -470,7 +470,7 @@
 showHelp:aHelpText for:view
     "show the help text for aView"
 
-    |org p v|
+    |org p v dev|
 
     view == currentView ifTrue:[^ self].
 
@@ -488,12 +488,13 @@
 
     v := ActiveHelpView for:aHelpText withCRs.
 
-    org := view device pointerPosition.
+    dev := view graphicsDevice.
+    org := dev pointerPosition.
     org := org + (10@10).
-    (org x + v width) > view device width ifTrue:[
+    (org x + v width) > dev width ifTrue:[
         org := (org x - v width) @ org y
     ].
-    (org y + v height) > view device height ifTrue:[
+    (org y + v height) > dev height ifTrue:[
         org := org x @ (org y - v height).
     ].
 
@@ -520,12 +521,12 @@
     ] forkAt:(Processor userSchedulingPriority + 1).
 
     "Modified: 31.8.1995 / 19:20:45 / claus"
-    "Modified: 27.4.1996 / 15:12:25 / cg"
+    "Modified: 28.5.1996 / 20:19:28 / cg"
 ! !
 
 !ActiveHelp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.12 1996-04-29 08:13:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.13 1996-05-28 18:20:50 cg Exp $'
 ! !
 ActiveHelp initialize!