info bar as subSpec to class ToolApplicationModel moved
authortz
Tue, 27 Jan 1998 14:33:36 +0100
changeset 483 73fa8faad5b1
parent 482 00acfc336304
child 484 ab3d54531432
info bar as subSpec to class ToolApplicationModel moved
DataSetBuilder.st
--- a/DataSetBuilder.st	Tue Jan 27 10:22:38 1998 +0100
+++ b/DataSetBuilder.st	Tue Jan 27 14:33:36 1998 +0100
@@ -1017,11 +1017,11 @@
           #'window:' 
            #(#WindowSpec
               #'name:' 'Data Set Builder'
-              #'layout:' #(#LayoutFrame 109 0 262 0 595 0 621 0)
+              #'layout:' #(#LayoutFrame 101 0 336 0 587 0 695 0)
               #'label:' 'Data Set Builder'
               #'min:' #(#Point 10 10)
               #'max:' #(#Point 1152 900)
-              #'bounds:' #(#Rectangle 109 262 596 622)
+              #'bounds:' #(#Rectangle 101 336 588 696)
               #'menu:' #menu
               #'usePreferredExtent:' false
           )
@@ -1093,19 +1093,11 @@
                     )
                     #'handles:' #(#Any 0.265905 1.0)
                 )
-                 #(#LabelSpec
-                    #'name:' 'infoLabel'
-                    #'layout:' #(#LayoutFrame 0 0.0 -22 1 -80 1.0 0 1.0)
-                    #'labelChannel:' #valueOfInfoLabel
-                    #'level:' 1
-                    #'adjust:' #left
-                )
-                 #(#LabelSpec
-                    #'name:' 'timeLabel'
-                    #'layout:' #(#LayoutFrame -80 1 -22 1 0 1.0 0 1.0)
-                    #'labelChannel:' #valueOfTimeLabel
-                    #'level:' 1
-                    #'adjust:' #right
+                 #(#UISubSpecification
+                    #'name:' 'infoBarSubSpec'
+                    #'layout:' #(#LayoutFrame 0 0.0 -22 1 0 1.0 0 1.0)
+                    #'majorKey:' #ToolApplicationModel
+                    #'minorKey:' #windowSpecForInfoBar
                 )
               )
           )