equal
deleted
inserted
replaced
1951 updateSelectionFromModel:aSelOrNil |
1951 updateSelectionFromModel:aSelOrNil |
1952 "update selection from a new selection |
1952 "update selection from a new selection |
1953 " |
1953 " |
1954 |list| |
1954 |list| |
1955 |
1955 |
|
1956 self shown ifFalse:[^ self]. |
|
1957 |
1956 selectionHiddenLevel == 0 ifTrue:[ |
1958 selectionHiddenLevel == 0 ifTrue:[ |
1957 aSelOrNil size ~~ 0 ifTrue:[ |
1959 aSelOrNil size ~~ 0 ifTrue:[ |
1958 list := OrderedCollection new. |
1960 list := OrderedCollection new. |
1959 |
1961 |
1960 self selectionDo:[:el| |
1962 self selectionDo:[:el| |
1961 (aSelOrNil includes:el) ifFalse:[list add:el] |
1963 (aSelOrNil includes:el) ifFalse:[list add:el] |
1962 ]. |
1964 ]. |
1963 self showUnselected:list. |
1965 self showUnselected:list. |
1964 ] ifFalse:[ |
1966 ] ifFalse:[ |
1965 self hideSelection. |
1967 self hideSelection. |
1966 ] |
1968 ] |
1967 ]. |
1969 ]. |
1968 self setSelection:aSelOrNil withRedraw:false. |
1970 self setSelection:aSelOrNil withRedraw:false. |
1969 self showSelection |
1971 self showSelection |
1970 ! ! |
1972 ! ! |
1971 |
1973 |