--- 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:#( '???' ).