equal
deleted
inserted
replaced
1813 self setSelection:something withRedraw:true |
1813 self setSelection:something withRedraw:true |
1814 ] |
1814 ] |
1815 |
1815 |
1816 ! |
1816 ! |
1817 |
1817 |
|
1818 selectNextUpInHierarchy |
|
1819 | sel | |
|
1820 |
|
1821 (sel := self selection) isNil ifTrue:[^self]. |
|
1822 sel isCollection ifTrue:[ |
|
1823 sel := self selection first. |
|
1824 ]. |
|
1825 sel := sel superView. |
|
1826 sel isNil ifTrue:[^self]. |
|
1827 treeView cvsSelection: sel. |
|
1828 self selection: sel. |
|
1829 ! |
|
1830 |
1818 updateSelectionFromModel:aSelOrNil |
1831 updateSelectionFromModel:aSelOrNil |
1819 "update selection from a new selection |
1832 "update selection from a new selection |
1820 " |
1833 " |
1821 |list| |
1834 |list| |
1822 |
1835 |