--- a/UIPainter.st Wed Aug 09 12:32:38 2000 +0200
+++ b/UIPainter.st Thu Aug 10 15:52:04 2000 +0200
@@ -11,6 +11,8 @@
"
+"{ Package: 'stx:libtool2' }"
+
ToolApplicationModel subclass:#UIPainter
instanceVariableNames:'specClass specSelector specSuperclass aspects treeView
selectionPanel tabSelection modified specTool layoutTool helpTool'
@@ -3847,7 +3849,7 @@
"sets a window spec from aWindowSpec and applies some attributes
to the canvas."
- |nm canvasView builder|
+ |name canvasView builder|
windowSpec := WindowSpec new copyValuesFromSpec:aWindowSpec.
canvasView := self canvas.
@@ -3855,9 +3857,9 @@
builder := UIBuilder new isEditing:true.
aWindowSpec setAttributesIn:canvasView with:builder.
- nm := aWindowSpec name.
- canvasView topView name:nm.
- self canvasNameChanged:nm.
+ name := aWindowSpec label.
+ canvasView topView name:name.
+ self canvasNameChanged:name.
self application treeSelection.
! !