--- a/UISpecificationTool.st	Wed Mar 07 18:18:44 2007 +0100
+++ b/UISpecificationTool.st	Wed Mar 07 18:19:17 2007 +0100
@@ -9,10 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
-
-
-
 "{ Package: 'stx:libtool2' }"
 
 ApplicationModel subclass:#UISpecificationTool
@@ -349,38 +345,48 @@
 
 !UISpecificationTool::BuildInView methodsFor:'accessing'!
 
+mapped
+    super mapped.
+
+    scrolledView notNil ifTrue:[
+        scrolledView beVisible.
+        scrolledView raise.
+    ].
+!
+
 scrolledView:aView
     "set the view to be scrolled"
     |wrapper y|
 
     scrolledView == aView ifTrue:[^ self].
 
-    scrolledView notNil ifTrue:[scrolledView beInvisible].
-
-    scrolledView := aView.
+    scrolledView notNil ifTrue:[
+        scrolledView unmap.
+    ].
+    (scrolledView := aView) notNil ifTrue:[
+        scrolledView superView ~~ frame ifTrue:[
+            scrolledView borderWidth:0; level:0.
 
-    (scrolledView notNil and:[scrolledView superView ~~ frame]) ifTrue:[
-        scrolledView borderWidth:0; level:0.
-
-        frame addSubView:scrolledView.
+            frame addSubView:scrolledView.
 
-        scrolledView subViews size == 1 ifTrue:[
-            wrapper := scrolledView subViews first.
-            wrapper isScrollWrapper ifTrue:[
-                "/ give it a full-relative size, and let it do
-                "/ the scrolling itself.
-                y := 1.0
-            ]
+            scrolledView subViews size == 1 ifTrue:[
+                wrapper := scrolledView subViews first.
+                wrapper isScrollWrapper ifTrue:[
+                    "/ give it a full-relative size, and let it do
+                    "/ the scrolling itself.
+                    y := 1.0
+                ]
+            ].
+            y isNil ifTrue:[
+                y := scrolledView preferredExtent y
+            ].
+            scrolledView origin:0@0 corner:1.0 @ y.
+            scrolledView allViewBackground:(self viewBackground).
         ].
-        y isNil ifTrue:[
-            y := scrolledView preferredExtent y
-        ].
-        scrolledView origin:0@0 corner:1.0 @ y.
-        scrolledView allViewBackground:(self viewBackground).
-    ].
-
-    realized ifTrue:[
-        scrolledView ifNotNil:[scrolledView beVisible].
+    ].    
+    shown ifTrue:[
+        scrolledView beVisible.
+        scrolledView raise.
         self sizeChanged:nil.
     ].
     model value:scrolledView.