--- a/ActiveHelpView.st	Tue May 25 18:02:25 1999 +0200
+++ b/ActiveHelpView.st	Thu May 27 14:23:04 1999 +0200
@@ -199,7 +199,7 @@
     |extent shapeForm borderForm y1 bw h w mirrorH mirrorV
      p1 p2 p3 pB1 pB2 pB3 offs hEll|
 
-    Display hasShape ifTrue:[
+    Display supportsArbitraryShapedViews ifTrue:[
         (shapeStyle == #cartoon) ifTrue:[
             extent := self extent.
             h := extent y.
@@ -327,5 +327,5 @@
 !ActiveHelpView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.19 1997-10-28 20:00:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.20 1999-05-27 12:23:04 cg Exp $'
 ! !