--- a/UIPainter.st Fri Feb 14 16:34:51 1997 +0100
+++ b/UIPainter.st Fri Feb 14 16:35:32 1997 +0100
@@ -46,10 +46,7 @@
not yet finished, not yet published, not yet released.
[start with:]
- Builder open
-
- [st80 compatibility:]
- UIPainter := Builder. UIPainter open
+ UIPainter open
"
! !
@@ -1414,7 +1411,7 @@
rightPanel origin:(0.6 @ 0.0) corner:1.0@1.0.
rightPanel topInset:menu height + buttonPanel height + View viewSpacing.
- v := HVScrollableView for:UIPainterView miniScrollerH:true in:middlePanel.
+ v := HVScrollableView for:UIPainterTreeView miniScrollerH:true in:middlePanel.
v origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
treeView := v scrolledView.
@@ -1441,7 +1438,7 @@
elementMenu := self createPaletteIn:leftPanel.
-"/ v := ScrollableView for:UIPainterView in:botPanel.
+"/ v := ScrollableView for:UIPainterTreeView in:botPanel.
"/ v origin:(0.0 @ 0.0) corner:(0.5 @ 1.0).
"/ treeView := v scrolledView.