equal
deleted
inserted
replaced
1958 updateSelectionFromModel:aSelOrNil |
1958 updateSelectionFromModel:aSelOrNil |
1959 "update selection from a new selection |
1959 "update selection from a new selection |
1960 " |
1960 " |
1961 |list| |
1961 |list| |
1962 |
1962 |
1963 self shown ifFalse:[^ self]. |
1963 "/ do not return here if not shown - we NEED the correct selection |
1964 |
|
1965 selectionHiddenLevel == 0 ifTrue:[ |
1964 selectionHiddenLevel == 0 ifTrue:[ |
1966 aSelOrNil size ~~ 0 ifTrue:[ |
1965 aSelOrNil size ~~ 0 ifTrue:[ |
1967 list := OrderedCollection new. |
1966 list := OrderedCollection new. |
1968 |
1967 |
1969 self selectionDo:[:el| |
1968 self selectionDo:[:el| |
1970 (aSelOrNil includes:el) ifFalse:[list add:el] |
1969 (aSelOrNil includes:el) ifFalse:[list add:el] |
1971 ]. |
1970 ]. |
1972 self showUnselected:list. |
1971 self shown ifTrue:[self showUnselected:list]. |
1973 ] ifFalse:[ |
1972 ] ifFalse:[ |
1974 self hideSelection. |
1973 self shown ifTrue:[self hideSelection]. |
1975 ] |
1974 ] |
1976 ]. |
1975 ]. |
1977 self setSelection:aSelOrNil withRedraw:false. |
1976 self setSelection:aSelOrNil withRedraw:false. |
1978 self showSelection |
1977 self shown ifTrue:[ self showSelection ]. |
1979 ! ! |
1978 ! ! |
1980 |
1979 |
1981 !UIPainterView methodsFor:'specification'! |
1980 !UIPainterView methodsFor:'specification'! |
1982 |
1981 |
1983 addSpec:aSpecification builder:aBuilder in:aFrame |
1982 addSpec:aSpecification builder:aBuilder in:aFrame |