equal
deleted
inserted
replaced
247 |
247 |
248 deleteSelectionBuffered: buffered |
248 deleteSelectionBuffered: buffered |
249 "cut the selection into the cut&paste-buffer |
249 "cut the selection into the cut&paste-buffer |
250 and open a transaction |
250 and open a transaction |
251 " |
251 " |
252 |specs coll index oldSelection newSelection treeModel parent children size| |
252 |specs coll index oldSelection newSelection treeModel parent children size nd| |
253 |
253 |
254 coll := self minSetOfSuperViews:(self selection). |
254 coll := self minSetOfSuperViews:(self selection). |
255 |
255 |
256 coll notNil ifTrue:[ |
256 coll notNil ifTrue:[ |
257 treeView cvsEventsDisabledDo:[ |
257 treeView cvsEventsDisabledDo:[ |
285 ] |
285 ] |
286 ]. |
286 ]. |
287 buffered ifTrue: [self setSelection:specs]. |
287 buffered ifTrue: [self setSelection:specs]. |
288 treeView selection:nil. |
288 treeView selection:nil. |
289 treeView selection:(Array with: newSelection). |
289 treeView selection:(Array with: newSelection). |
290 self setSelection:treeView selectedNode contents view withRedraw:true. |
290 (nd := treeView selectedNode) notNil ifTrue:[ |
|
291 self setSelection:nd contents view withRedraw:true. |
|
292 ] |
291 ] |
293 ] |
292 ] |
294 ] |
293 ! |
295 ! |
294 |
296 |
295 deleteTotalSelection |
297 deleteTotalSelection |