--- a/UIPainter.st Wed Sep 10 10:33:05 1997 +0200
+++ b/UIPainter.st Wed Sep 10 10:35:21 1997 +0200
@@ -2649,7 +2649,8 @@
spec name:(listOfNodes at:1) name.
windowSpec notNil ifTrue:[
- spec menu:(windowSpec menu).
+ spec menu:(windowSpec menu).
+ spec performer:(windowSpec performer).
spec flags:(windowSpec flags).
].
^ spec
@@ -2775,7 +2776,8 @@
components:(SpecCollection new collection:aSpecArray).
windowSpec notNil ifTrue:[
- fullSpec window menu:(windowSpec menu).
+ fullSpec window menu:(windowSpec menu).
+ fullSpec window performer:(windowSpec performer).
fullSpec window flags:(windowSpec flags).
].
^ fullSpec literalArrayEncoding.
@@ -2786,7 +2788,8 @@
"
windowSpec := WindowSpec new.
- windowSpec menu:(aWindowSpec menu).
+ windowSpec menu:(aWindowSpec menu).
+ windowSpec performer:(aWindowSpec performer).
windowSpec flags:(aWindowSpec flags).
self canvasNameChanged:aWindowSpec name.