equal
deleted
inserted
replaced
21 |
21 |
22 PopUpList comment:' |
22 PopUpList comment:' |
23 COPYRIGHT (c) 1994 by Claus Gittinger |
23 COPYRIGHT (c) 1994 by Claus Gittinger |
24 All Rights Reserved |
24 All Rights Reserved |
25 |
25 |
26 $Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.15 1995-05-17 12:25:44 claus Exp $ |
26 $Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.16 1995-08-03 01:35:22 claus Exp $ |
27 '! |
27 '! |
28 |
28 |
29 !PopUpList class methodsFor:'documentation'! |
29 !PopUpList class methodsFor:'documentation'! |
30 |
30 |
31 copyright |
31 copyright |
42 " |
42 " |
43 ! |
43 ! |
44 |
44 |
45 version |
45 version |
46 " |
46 " |
47 $Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.15 1995-05-17 12:25:44 claus Exp $ |
47 $Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.16 1995-08-03 01:35:22 claus Exp $ |
48 " |
48 " |
49 ! |
49 ! |
50 |
50 |
51 documentation |
51 documentation |
52 " |
52 " |
556 |
556 |
557 !PopUpList methodsFor:'change & update'! |
557 !PopUpList methodsFor:'change & update'! |
558 |
558 |
559 update:something with:aParameter from:changedObject |
559 update:something with:aParameter from:changedObject |
560 changedObject == model ifTrue:[ |
560 changedObject == model ifTrue:[ |
561 something == aspectMsg ifTrue:[ |
561 (something == aspectMsg |
|
562 or:[something == #selectionIndex]) ifTrue:[ |
562 self getSelectionFromModel. |
563 self getSelectionFromModel. |
563 ^ self |
564 ^ self |
564 ]. |
565 ]. |
565 something == listMsg ifTrue:[ |
566 something == listMsg ifTrue:[ |
566 self getListFromModel. |
567 self getListFromModel. |