--- a/ActiveHelpView.st	Wed Oct 27 12:37:25 1999 +0200
+++ b/ActiveHelpView.st	Wed Oct 27 13:45:12 1999 +0200
@@ -199,7 +199,7 @@
     |extent shapeForm borderForm y1 bw h w mirrorH mirrorV
      p1 p2 p3 pB1 pB2 pB3 offs hEll h2 w2 w8 w78|
 
-    Display supportsArbitraryShapedViews ifTrue:[
+    device supportsArbitraryShapedViews ifTrue:[
         (shapeStyle == #cartoon) ifTrue:[
             extent := self extent.
             h := extent y.
@@ -298,6 +298,7 @@
     ]
 
     "Modified: / 5.6.1999 / 21:41:01 / cg"
+    "Modified: / 27.10.1999 / 13:45:45 / stefan"
 !
 
 resizeToFit
@@ -332,5 +333,5 @@
 !ActiveHelpView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.22 1999-08-18 15:14:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.23 1999-10-27 11:45:12 cg Exp $'
 ! !