equal
deleted
inserted
replaced
248 |
248 |
249 deleteSelectionBuffered: buffered |
249 deleteSelectionBuffered: buffered |
250 "cut the selection into the cut&paste-buffer |
250 "cut the selection into the cut&paste-buffer |
251 and open a transaction |
251 and open a transaction |
252 " |
252 " |
253 |specs coll index oldSelection newSelection treeModel parent children size nd| |
253 |specs coll index oldSelection newSelection treeModel children size nd| |
254 |
254 |
255 coll := self minSetOfSuperViews:(self selection). |
255 coll := self minSetOfSuperViews:(self selection). |
256 |
256 |
257 coll notNil ifTrue:[ |
257 coll notNil ifTrue:[ |
258 treeView cvsEventsDisabledDo:[ |
258 treeView cvsEventsDisabledDo:[ |