--- 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