# HG changeset patch # User tz # Date 885908016 -3600 # Node ID 73fa8faad5b11806cbbfe64c701c0a163015d36d # Parent 00acfc33630479a94376c3e11cd40a8645993900 info bar as subSpec to class ToolApplicationModel moved diff -r 00acfc336304 -r 73fa8faad5b1 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 ) ) )