--- a/UIPainter.st	Mon May 11 09:40:12 2009 +0200
+++ b/UIPainter.st	Mon May 11 10:33:37 2009 +0200
@@ -4209,6 +4209,8 @@
 !
 
 updateSlicesForSpec:spec andView:view
+    "fetch slices-info from the spec; add help and geometry slices manually"
+
     |slices "size" list tabComponent|
 
     tabComponent := self componentAt:#noteBook.
@@ -4222,7 +4224,10 @@
             list := list copyWith:(UIHelpTool label)
         ].
         view notNil ifTrue:[
-            spec hasLayout ifTrue:[
+            "/ for now, keep it as an empty slice;
+            "/ better when toggling as we do not loos the 'geometry' selection.
+            "/ slices notebook should remember the last 'explicit' selected tab.
+            true "spec hasLayout" ifTrue:[
                 list := list copyWith:UILayoutTool label.
             ]
         ].