--- 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.
+ ]
]
]
!