# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 967541964 -7200
# Node ID 7abc17031163ebd3bce68a463e360ee18ad00530
# Parent  f125c85f21e29d07d4a496d43bdb7b8e5c07e8ec
nil check bug fix

diff -r f125c85f21e2 -r 7abc17031163 UIPainterView.st
--- a/UIPainterView.st	Tue Aug 29 11:37:43 2000 +0200
+++ b/UIPainterView.st	Tue Aug 29 11:39:24 2000 +0200
@@ -249,7 +249,7 @@
     "cut the selection into the cut&paste-buffer
      and open a transaction
     "
-    |specs coll index oldSelection newSelection treeModel parent children size|
+    |specs coll index oldSelection newSelection treeModel parent children size nd|
 
     coll := self minSetOfSuperViews:(self selection).
 
@@ -287,7 +287,9 @@
             buffered ifTrue: [self setSelection:specs].
             treeView selection:nil.
             treeView selection:(Array with: newSelection).
-            self setSelection:treeView selectedNode contents view withRedraw:true.
+            (nd := treeView selectedNode) notNil ifTrue:[
+                self setSelection:nd contents view withRedraw:true.
+            ]
         ]
     ]
 !