--- 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