add user defined argument
authorca
Mon, 02 Feb 1998 18:46:04 +0100
changeset 549 454a490d797f
parent 548 93fea26562c8
child 550 35cffcc6036e
add user defined argument
TabItemEditor.st
--- a/TabItemEditor.st	Mon Feb 02 18:45:00 1998 +0100
+++ b/TabItemEditor.st	Mon Feb 02 18:46:04 1998 +0100
@@ -152,11 +152,11 @@
           #'window:' 
            #(#WindowSpec
               #'name:' 'Tab Basic'
-              #'layout:' #(#LayoutFrame 219 0 193 0 506 0 397 0)
+              #'layout:' #(#LayoutFrame 265 0 591 0 571 0 791 0)
               #'label:' 'Tab Basic'
               #'min:' #(#Point 10 10)
               #'max:' #(#Point 1280 1024)
-              #'bounds:' #(#Rectangle 219 193 507 398)
+              #'bounds:' #(#Rectangle 265 591 572 792)
               #'usePreferredExtent:' false
           )
           #'component:' 
@@ -165,43 +165,55 @@
                #(
                  #(#LabelSpec
                     #'name:' 'Label'
-                    #'layout:' #(#AlignmentOrigin 73 0 34 0 1 0.5)
+                    #'layout:' #(#AlignmentOrigin 95 0 34 0 1 0.5)
                     #'label:' 'Label:'
                     #'resizeForLabel:' true
                 )
                  #(#InputFieldSpec
                     #'name:' 'LabelField'
-                    #'layout:' #(#LayoutFrame 75 0 24 0 -4 1.0 46 0)
+                    #'layout:' #(#LayoutFrame 97 0 24 0 -4 1.0 46 0)
                     #'activeHelpKey:' #label
                     #'model:' #label
                 )
                  #(#CheckBoxSpec
                     #'name:' 'TranslateLabel'
-                    #'layout:' #(#LayoutOrigin 71 0 49 0)
+                    #'layout:' #(#LayoutOrigin 95 0 47 0)
                     #'activeHelpKey:' #translateLabel
                     #'model:' #translateLabel
                     #'label:' 'Label derives from Application'
                 )
                  #(#ColorMenuSpec
                     #'name:' 'ForegroundColorMenu'
-                    #'layout:' #(#LayoutFrame 75 0 104 0 -4 1.0 126 0)
+                    #'layout:' #(#LayoutFrame 75 0 124 0 -4 1.0 146 0)
                     #'activeHelpKey:' #foregroundColor
                     #'model:' #labelForegroundColor
                     #'labelsAreColored:' false
                 )
                  #(#LabelSpec
                     #'name:' 'ForegroundLabel'
-                    #'layout:' #(#AlignmentOrigin 73 0 116 0 1 0.5)
+                    #'layout:' #(#AlignmentOrigin 73 0 136 0 1 0.5)
                     #'label:' 'Color:'
                     #'adjust:' #right
                     #'resizeForLabel:' true
                 )
                  #(#CheckBoxSpec
                     #'name:' 'CanSelect'
-                    #'layout:' #(#LayoutFrame 34 0 157 0 153 0 179 0)
+                    #'layout:' #(#LayoutFrame 34 0 176 0 153 0 198 0)
                     #'model:' #enabled
                     #'label:' 'Can Select'
                 )
+                 #(#LabelSpec
+                    #'name:' 'ArgumentLabel'
+                    #'layout:' #(#AlignmentOrigin 95 0 91 0 1 0.5)
+                    #'label:' 'Argument'
+                    #'resizeForLabel:' true
+                )
+                 #(#InputFieldSpec
+                    #'name:' 'ArgumentField'
+                    #'layout:' #(#LayoutFrame 97 0 80 0 -4 1.0 102 0)
+                    #'activeHelpKey:' #label
+                    #'model:' #editAgument
+                )
               )
           )
       )
@@ -884,6 +896,7 @@
         translateLabel
         labelForegroundColor
         enabled
+        editAgument
 
     ) do:[:aKey|
         aspects at:aKey put:(holder := ValueHolder new).