--- a/UIPainter.st Wed Jan 21 20:26:38 1998 +0100
+++ b/UIPainter.st Wed Jan 21 20:53:10 1998 +0100
@@ -471,11 +471,11 @@
#'window:'
#(#WindowSpec
#'name:' 'Tree-View'
- #'layout:' #(#LayoutFrame 536 0 334 0 1088 0 794 0)
+ #'layout:' #(#LayoutFrame 38 0 287 0 590 0 747 0)
#'label:' 'Tree-View'
#'min:' #(#Point 10 10)
#'max:' #(#Point 1160 870)
- #'bounds:' #(#Rectangle 536 334 1089 795)
+ #'bounds:' #(#Rectangle 38 287 591 748)
#'menu:' #menu
#'usePreferredExtent:' false
)
@@ -493,7 +493,7 @@
)
#(#VariableVerticalPanelSpec
#'name:' 'vpanel'
- #'layout:' #(#LayoutFrame 0 0.0 34 0.0 0 1.0 0 1.0)
+ #'layout:' #(#LayoutFrame 0 0.0 34 0.0 0 1.0 -22 1.0)
#'component:'
#(#SpecCollection
#'collection:'
@@ -635,6 +635,20 @@
)
#'handles:' #(#Any 0.880597 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
+ )
)
)
)
@@ -1794,7 +1808,7 @@
specClass isString ifTrue: [className := specClass].
message := className, ' ', specSelector.
self addToHistory: message -> #loadFromMessage:.
- self valueOfInfoLabel value: className, ' << ', specSelector
+ self valueOfInfoLabel value: className, ' >> ', specSelector
].
"Modified: 24.6.1997 / 19:07:01 / cg"
!