equal
deleted
inserted
replaced
36 |
36 |
37 SelectionInListView comment:' |
37 SelectionInListView comment:' |
38 COPYRIGHT (c) 1989 by Claus Gittinger |
38 COPYRIGHT (c) 1989 by Claus Gittinger |
39 All Rights Reserved |
39 All Rights Reserved |
40 |
40 |
41 $Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.23 1995-02-27 10:41:04 claus Exp $ |
41 $Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.24 1995-03-06 19:29:23 claus Exp $ |
42 '! |
42 '! |
43 |
43 |
44 !SelectionInListView class methodsFor:'documentation'! |
44 !SelectionInListView class methodsFor:'documentation'! |
45 |
45 |
46 copyright |
46 copyright |
57 " |
57 " |
58 ! |
58 ! |
59 |
59 |
60 version |
60 version |
61 " |
61 " |
62 $Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.23 1995-02-27 10:41:04 claus Exp $ |
62 $Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.24 1995-03-06 19:29:23 claus Exp $ |
63 " |
63 " |
64 ! |
64 ! |
65 |
65 |
66 documentation |
66 documentation |
67 " |
67 " |
1806 |
1806 |
1807 update:something with:aParameter from:changedObject |
1807 update:something with:aParameter from:changedObject |
1808 |newList| |
1808 |newList| |
1809 |
1809 |
1810 changedObject == model ifTrue:[ |
1810 changedObject == model ifTrue:[ |
1811 (something == initialSelectionSymbol) ifTrue:[ |
1811 (initialSelectionSymbol notNil |
|
1812 and:[something == initialSelectionSymbol]) ifTrue:[ |
1812 self selectElement:(model perform:initialSelectionSymbol). |
1813 self selectElement:(model perform:initialSelectionSymbol). |
1813 ^ self |
1814 ^ self |
1814 ]. |
1815 ]. |
1815 (something == aspectSymbol) ifTrue:[ |
1816 (aspectSymbol notNil |
|
1817 and:[something == aspectSymbol]) ifTrue:[ |
1816 newList := (model perform:listSymbol) asStringCollection. |
1818 newList := (model perform:listSymbol) asStringCollection. |
1817 (newList = list) ifFalse:[ |
1819 (newList = list) ifFalse:[ |
1818 self list:newList |
1820 self list:newList |
1819 ]. |
1821 ]. |
1820 ^ self |
1822 ^ self |