added a scrollBar
authorClaus Gittinger <cg@exept.de>
Mon, 05 Jul 1999 22:25:19 +0200
changeset 1160 9e6aff354459
parent 1159 1c5bac0c62c0
child 1161 1b141606c286
added a scrollBar
UISelectionPanel.st
--- a/UISelectionPanel.st	Mon Jul 05 13:15:54 1999 +0200
+++ b/UISelectionPanel.st	Mon Jul 05 22:25:19 1999 +0200
@@ -992,11 +992,11 @@
        #(#WindowSpec
           #label: 'Misc'
           #name: 'Misc'
-          #layout: #(#LayoutFrame 172 0 325 0 613 0 547 0)
+          #layout: #(#LayoutFrame 220 0 200 0 661 0 422 0)
           #level: 0
           #min: #(#Point 10 10)
           #max: #(#Point 1280 1024)
-          #bounds: #(#Rectangle 172 325 614 548)
+          #bounds: #(#Rectangle 220 200 662 423)
           #usePreferredExtent: false
           #returnIsOKInDialog: true
           #escapeIsCancelInDialog: true
@@ -1006,7 +1006,7 @@
           #collection: #(
            #(#ArbitraryComponentSpec
               #name: 'Arbitrary Component'
-              #layout: #(#LayoutFrame 3 0 3 0 128 0 98 0)
+              #layout: #(#LayoutFrame 3 0 3 0 128 0 81 0)
               #hasBorder: false
             )
            #(#LabelSpec
@@ -1029,7 +1029,7 @@
             )
            #(#UISubSpecification
               #name: 'SubSpecification'
-              #layout: #(#LayoutFrame 145 0 3 0 280 0 98 0)
+              #layout: #(#LayoutFrame 145 0 3 0 280 0 81 0)
             )
            #(#LabelSpec
               #label: 'SubSpecification'
@@ -1041,7 +1041,7 @@
             )
            #(#SubCanvasSpec
               #name: 'SubCanvas'
-              #layout: #(#LayoutFrame 297 0 3 0 433 0 98 0)
+              #layout: #(#LayoutFrame 297 0 3 0 433 0 81 0)
               #hasHorizontalScrollBar: true
               #hasVerticalScrollBar: true
             )
@@ -1069,7 +1069,21 @@
               #step: 1
             )
            #(#LabelSpec
-              #label: 'Thumb Wheel'
+              #label: 'Scroller'
+              #name: 'ScrollerLabel'
+              #layout: #(#AlignmentOrigin 83 0 90 0 1 0)
+              #style: #(#FontDescription #helvetica #medium #roman 10)
+              #resizeForLabel: true
+              #canUIDrag: false
+            )
+           #(#ScrollerSpec
+              #name: 'Scroller'
+              #layout: #(#LayoutFrame 88 0 87 0 203 0 105 0)
+              #orientation: #horizontal
+              #step: 1
+            )
+           #(#LabelSpec
+              #label: 'ThumbWheel'
               #name: 'ThumbWheelLabel'
               #layout: #(#AlignmentOrigin 83 0 145 0 1 0)
               #style: #(#FontDescription #helvetica #medium #roman 10)