#OTHER
authorClaus Gittinger <cg@exept.de>
Wed, 20 Jan 2016 10:58:48 +0100
changeset 5563 e6f461679c7d
parent 5561 ee6a77852e84
child 5564 3c9ef3181a09
child 5565 e26cfc2a8ae8
#OTHER class: VariablePanel changed: #relativeCorners: give a warning, when ignoring relative positions
VariablePanel.st
--- a/VariablePanel.st	Mon Jan 18 09:18:14 2016 +0100
+++ b/VariablePanel.st	Wed Jan 20 10:58:48 2016 +0100
@@ -1153,7 +1153,10 @@
 
     |pos|
 
-    aCollectionOfRelativeCornerPositions size == self subViews size ifFalse:[^ self ].
+    aCollectionOfRelativeCornerPositions size == self subViews size ifFalse:[
+        'VariablePanel [info]: size mismatch in relativeCorners' infoPrintCR.
+        ^ self 
+    ].
 
     pos := 0.0.
     self subViews with:aCollectionOfRelativeCornerPositions