author | Claus Gittinger <cg@exept.de> |
Thu, 17 Aug 2000 17:47:50 +0200 | |
changeset 1397 | 054670838983 |
parent 1396 | 58c4d1027a5e |
child 1398 | 284781677ae1 |
UIPainter.st | file | annotate | diff | comparison | revisions |
--- 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.