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