# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1523891050 -7200
# Node ID 8cad82182237e69491127e982e285f9f6680f33e
# Parent  90b625be9e29725efe93e2e2d6f9215682ab75b5
#DOCUMENTATION by stefan
class: ActiveHelpView
changed: #computeShape

diff -r 90b625be9e29 -r 8cad82182237 ActiveHelpView.st
--- a/ActiveHelpView.st	Wed Mar 28 14:52:22 2018 +0200
+++ b/ActiveHelpView.st	Mon Apr 16 17:04:10 2018 +0200
@@ -279,7 +279,7 @@
     |extent oldOrigin shapeForm borderForm y1 bw h w mirrorH mirrorV
      p1 p2 p3 pB1 pB2 pB3 offs hEll h2 w2 w8 w78 mousePosition graphicsDevice|
 
-    (shapeStyle == #cartoon) ifFalse:[
+    (shapeStyle ~~ #cartoon) ifTrue:[
         ^ self.
     ].
     graphicsDevice := device.
@@ -383,8 +383,8 @@
         self viewShape:shapeForm
     ].
 
-    "Modified: / 5.6.1999 / 21:41:01 / cg"
-    "Modified: / 27.10.1999 / 13:45:45 / stefan"
+    "Modified: / 05-06-1999 / 21:41:01 / cg"
+    "Modified: / 16-04-2018 / 11:43:55 / stefan"
 !
 
 resizeToFit