--- a/UIPainter.st Thu Aug 17 17:38:27 2000 +0200
+++ b/UIPainter.st Thu Aug 17 17:39:23 2000 +0200
@@ -3674,14 +3674,7 @@
canvas:aCanvas
"install canvas (UIPainterView)"
- |props|
-
- props := UIPainterView::ViewProperty new.
- props view:aCanvas.
- model root:(TreeItem name: UIPainter defaultNameOfCanvas asBoldText contents:props).
- model root expand.
- self enableChannel:(aCanvas enableChannel).
-
+ self canvas:aCanvas specName:UIPainter defaultNameOfCanvas
!
canvas:aCanvas specName:nameOfSpec