--- a/UISelectionPanel.st	Mon Jan 05 17:47:02 1998 +0100
+++ b/UISelectionPanel.st	Mon Jan 05 17:48:53 1998 +0100
@@ -911,11 +911,12 @@
           #'window:' 
            #(#WindowSpec
               #'name:' 'Sliders'
-              #'layout:' #(#LayoutFrame 314 0 99 0 758 0 260 0)
+              #'layout:' #(#LayoutFrame 197 0 175 0 641 0 336 0)
               #'label:' 'Sliders'
               #'min:' #(#Point 10 10)
               #'max:' #(#Point 1280 1024)
-              #'bounds:' #(#Rectangle 314 99 759 261)
+              #'bounds:' #(#Rectangle 197 175 642 337)
+              #'usePreferredExtent:' false
           )
           #'component:' 
            #(#SpecCollection
@@ -958,17 +959,24 @@
                     #'layout:' #(#LayoutFrame 102 0 90 0 191 0 108 0)
                     #'showPercentage:' true
                 )
-                 #(#'ProgressIndicatorSpec'
+                 #(#ProgressIndicatorSpec
                     #'name:' 'Progress Indicator 2'
                     #'layout:' #(#LayoutFrame 102 0 116 0 191 0 126 0)
                     #'showPercentage:' false
                     #'foregroundColor:' #(#Color 100.0 0.0 0.0)
                 )
+                 #(#UpDownButtonSpec
+                    #'name:' 'UpDownButton'
+                    #'layout:' #(#Point 221 15)
+                )
+                 #(#UpDownButtonSpec
+                    #'name:' 'upDownButton1'
+                    #'layout:' #(#Point 245 15)
+                    #'orientation:' #horizontal
+                )
               )
           )
       )
-
-    "Modified: / 24.10.1997 / 03:27:42 / cg"
 !
 
 standardText
@@ -1654,7 +1662,8 @@
         self galleryList value:lbl.
         self minorKeys   value:sel.
     ] ifFalse:[
-        builder := UIBuilder new.
+        builder := UIBuilder new isEditing:true.
+
         builder application:self.
         (self builder componentAt:#gallery) builder:builder. 
         self galleryList value:#( '???' ).