# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 966527270 -7200
# Node ID 054670838983bb6e941d7181f5f9dbbb189cd6dd
# Parent  58c4d1027a5ec44d2296a56708f4ffb7549ddcc5
*** empty log message ***

diff -r 58c4d1027a5e -r 054670838983 UIPainter.st
--- a/UIPainter.st	Thu Aug 17 17:46:45 2000 +0200
+++ b/UIPainter.st	Thu Aug 17 17:47:50 2000 +0200
@@ -2927,6 +2927,8 @@
     treeView    := TreeView new.
     painterView := StandardSystemView new.
 
+    name := name ? UIPainter defaultNameOfCanvas.
+
     painterView name: name.
     painterView label: name.
     painterView extent:300@300.