#BUGFIX by cg
authorClaus Gittinger <cg@exept.de>
Thu, 05 Jul 2018 08:31:08 +0200
changeset 8423 61d98ad2abf7
parent 8421 187ce2842f8c
child 8424 9e10ec98e48a
#BUGFIX by cg class: SimpleView changed: #relativeCorner
SimpleView.st
--- a/SimpleView.st	Thu Jun 28 15:17:11 2018 +0200
+++ b/SimpleView.st	Thu Jul 05 08:31:08 2018 +0200
@@ -3466,14 +3466,18 @@
 
     "MB:added  {" "needed if layout is used e.g. POUEditor"
     layout notNil ifTrue:[
-	layout isRectangle ifTrue:[
-	    ^ 0@0
-	].
-	^(layout rightFraction) @ (layout bottomFraction)
+        layout isRectangle ifTrue:[
+            ^ 0@0
+        ].
+        layout isLayoutFrame ifTrue:[  
+            ^(layout rightFraction) @ (layout bottomFraction)
+        ].
     ].
     "MB:added  }"
 
     ^relativeCorner
+
+    "Modified: / 05-07-2018 / 07:24:32 / Claus Gittinger"
 !
 
 relativeCorner:aPoint