--- a/UIPainter.st	Wed Oct 29 17:44:55 1997 +0100
+++ b/UIPainter.st	Wed Oct 29 18:07:48 1997 +0100
@@ -1756,7 +1756,8 @@
     "catch change notifications
     "
     someObject == treeView model ifTrue:[
-        something == #selection ifTrue:[self treeSelection].
+        (something == #selection
+        or:[something == #selectionIndex]) ifTrue:[self treeSelection].
       ^ self
     ].
 
@@ -1778,6 +1779,7 @@
       ^ self
     ].
 
+    "Modified: / 29.10.1997 / 17:48:19 / cg"
 ! !
 
 !UIPainter methodsFor:'event handling'!
@@ -2797,11 +2799,11 @@
     spec name:(listOfNodes at:1) name.
 
     windowSpec notNil ifTrue:[
-        spec menu:(windowSpec menu).
-        spec performer:(windowSpec performer).
-        spec flags:(windowSpec flags).
+        spec copyValuesFromSpec:windowSpec
     ].
-  ^ spec
+    ^ spec
+
+    "Modified: / 29.10.1997 / 18:06:44 / cg"
 !
 
 canvasSpec:aSpec
@@ -2925,26 +2927,20 @@
 
     windowSpec notNil ifTrue:[
         winSpec := fullSpec window.
-        winSpec menu:(windowSpec menu).
-        winSpec performer:(windowSpec performer).
-        winSpec flags:(windowSpec flags).
-winSpec forceRecursiveBackground:(windowSpec forceRecursiveBackground).
+        winSpec copyValuesFromSpec:windowSpec
     ].    
     ^ fullSpec literalArrayEncoding.
 
-    "Modified: / 26.10.1997 / 22:41:51 / cg"
+    "Modified: / 29.10.1997 / 18:05:58 / cg"
 !
 
 setAttributesFromWindowSpec:aWindowSpec
     "set windowSpec from argument a WindowSpec
     "
-    windowSpec := WindowSpec new.
-
-    windowSpec menu:(aWindowSpec menu).
-    windowSpec performer:(aWindowSpec performer).
-    windowSpec flags:(aWindowSpec flags).
-
+    windowSpec := WindowSpec new copyValuesFromSpec:aWindowSpec.
     self canvasNameChanged:aWindowSpec name.
+
+    "Modified: / 29.10.1997 / 18:06:56 / cg"
 ! !
 
 !UIPainter::TreeView methodsFor:'canvas selection'!