Merge jv
authorMerge Script
Thu, 21 Jan 2016 06:48:09 +0100
branchjv
changeset 5564 3c9ef3181a09
parent 5562 0219152fb99f (current diff)
parent 5563 e6f461679c7d (diff)
child 5568 de26457e317d
Merge
--- a/VariablePanel.st	Tue Jan 19 07:05:36 2016 +0000
+++ b/VariablePanel.st	Thu Jan 21 06:48:09 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