equal
deleted
inserted
replaced
339 |
339 |
340 (start := self indexOf:aParent) == 0 ifTrue:[ |
340 (start := self indexOf:aParent) == 0 ifTrue:[ |
341 "/ |
341 "/ |
342 "/ parent not visible; list not changed |
342 "/ parent not visible; list not changed |
343 "/ |
343 "/ |
344 aParent add:something beforeIndex:anIndex. |
344 aParent == root ifFalse:[ |
345 ^ self |
345 aParent add:something beforeIndex:anIndex. |
346 ]. |
346 ^ self |
347 |
347 ] |
348 aParent shown ifFalse:[ |
348 ] ifFalse:[ |
349 aParent add:something beforeIndex:anIndex. |
349 aParent shown ifFalse:[ |
350 self changed:#at: with:start. |
350 aParent add:something beforeIndex:anIndex. |
351 ^ self |
351 self changed:#at: with:start. |
|
352 ^ self |
|
353 ] |
352 ]. |
354 ]. |
353 children := aParent children. |
355 children := aParent children. |
354 |
356 |
355 (children isEmpty or:[anIndex <= 1]) ifTrue:[ |
357 (children isEmpty or:[anIndex <= 1]) ifTrue:[ |
356 index := 1. |
358 index := 1. |
891 ! ! |
893 ! ! |
892 |
894 |
893 !SelectionInTree class methodsFor:'documentation'! |
895 !SelectionInTree class methodsFor:'documentation'! |
894 |
896 |
895 version |
897 version |
896 ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTree.st,v 1.26 1999-03-19 21:18:32 cg Exp $' |
898 ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTree.st,v 1.27 1999-03-31 17:09:45 cg Exp $' |
897 ! ! |
899 ! ! |