subCanvas
authorca
Mon, 16 Jun 1997 11:39:41 +0200
changeset 150 9f88bc99e0af
parent 149 e652608690b1
child 151 8768bf518383
subCanvas
UISelectionPanel.st
--- a/UISelectionPanel.st	Mon Jun 16 11:36:46 1997 +0200
+++ b/UISelectionPanel.st	Mon Jun 16 11:39:41 1997 +0200
@@ -509,7 +509,7 @@
     <resource: #canvas>
 
     ^
-
+     
        #(#FullSpec
           #'window:' 
            #(#WindowSpec
@@ -543,15 +543,19 @@
                 )
                  #(#SliderSpec
                     #'name:' 'Horizontal Slider'
-                    #'layout:' #(#LayoutFrame 102 0 47 0 191 0 65 0)
+                    #'layout:' #(#LayoutFrame 102 0 53 0 191 0 71 0)
                     #'orientation:' #horizontal
                     #'start:' 0
                     #'stop:' 100
                 )
+                 #(#ProgressIndicatorSpec
+                    #'name:' 'Progress Indicator'
+                    #'layout:' #(#LayoutFrame 102 0 90 0 191 0 108 0)
+                    #'showPercentage:' true
+                )
               )
           )
       )
-
 !
 
 textSpec
@@ -715,6 +719,18 @@
                     #'adjust:' #left
                     #'canUIDrag:' false
                 )
+                 #(#RegionSpec
+                    #'name:' 'Region'
+                    #'layout:' #(#LayoutFrame 377 0 14 0 467 0 104 0)
+                    #'lineWidth:' 2
+                    #'regionType:' #ellipse
+                )
+                 #(#LabelSpec
+                    #'name:' 'RegionLabel'
+                    #'layout:' #(#LayoutFrame 388 0 50 0 459 0 68 0)
+                    #'label:' 'Region'
+                    #'canUIDrag:' false
+                )
               )
           )
       )