# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 966526763 -7200
# Node ID b14fb13132c2bedcb1ebe183a4a7e66f047830ec
# Parent  97a7eeabae40e3d6093dbb030bd5085ce84982b3
checkin from browser

diff -r 97a7eeabae40 -r b14fb13132c2 UIPainter.st
--- 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