#OTHER
class: VariablePanel
changed: #relativeCorners:
give a warning, when ignoring relative positions
--- 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