equal
deleted
inserted
replaced
231 coll := self minSetOfSuperViews:(self selection). |
231 coll := self minSetOfSuperViews:(self selection). |
232 |
232 |
233 coll notNil ifTrue:[ |
233 coll notNil ifTrue:[ |
234 treeView cvsEventsDisabledDo:[ |
234 treeView cvsEventsDisabledDo:[ |
235 |
235 |
236 (oldSelectedNode := (treeView model selectedNodes at: 1 ifAbsent: nil)) notNil ifTrue: [ |
236 ((oldSelectedNode := (treeView model selectedNodes at: 1 ifAbsent: nil)) notNil and: |
|
237 [oldSelectedNode parent notNil]) ifTrue: [ |
237 oldSelectedNode parent children size <= 1 ifTrue: [ |
238 oldSelectedNode parent children size <= 1 ifTrue: [ |
238 newSelectedNode := oldSelectedNode parent |
239 newSelectedNode := oldSelectedNode parent |
239 ] |
240 ] |
240 ifFalse: [ |
241 ifFalse: [ |
241 newSelectedNode := oldSelectedNode parent children |
242 newSelectedNode := oldSelectedNode parent children |