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.