# HG changeset patch
# User ca
# Date 873880521 -7200
# Node ID e59012bf505f9bc7796f7f1bd505cd756727f6cd
# Parent  053e2d3089b791f5cc514ad94e2969f213f0d415
support of menu provider

diff -r 053e2d3089b7 -r e59012bf505f UIPainter.st
--- 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.