*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Mon, 18 May 2009 12:11:38 +0200
changeset 2533 460098ee1f39
parent 2532 24564406f7e5
child 2534 b717cb2e0cb8
*** empty log message ***
UILayoutTool.st
--- a/UILayoutTool.st	Mon May 18 12:11:12 2009 +0200
+++ b/UILayoutTool.st	Mon May 18 12:11:38 2009 +0200
@@ -544,13 +544,15 @@
 
     aTypeOrNil notNil ifTrue:[ 
         self class slices findFirst:[:e|
-            e last == aTypeOrNil ifTrue:[name := e first. true]
+            e last == aTypeOrNil 
+                ifTrue:[name := e first. true] 
+                ifFalse:[false].
         ].
         list := Array with:name with: 'Frame'.
     ] ifFalse:[
         (type := UIPainterView layoutType:layoutView) notNil ifTrue:[
             self class slices findFirst:[:e|
-                e last == type ifTrue:[name := e first. true]
+                e last == type ifTrue:[name := e first. true] ifFalse:[false]
             ].
             list := tabList.
             type == #Extent ifTrue:[