equal
deleted
inserted
replaced
439 |
439 |
440 comboMenuMessage:aSelectorToTheHolder |
440 comboMenuMessage:aSelectorToTheHolder |
441 "allows for arbitrary menus to be opened via the combo button" |
441 "allows for arbitrary menus to be opened via the combo button" |
442 |
442 |
443 comboMenuMessage := aSelectorToTheHolder. |
443 comboMenuMessage := aSelectorToTheHolder. |
|
444 ! |
|
445 |
|
446 currentIndex |
|
447 ^ currentIndex |
444 ! |
448 ! |
445 |
449 |
446 listHolder:aValueHolder |
450 listHolder:aValueHolder |
447 "set the listHolder. |
451 "set the listHolder. |
448 If not set, the list is supposed to be set explicitely" |
452 If not set, the list is supposed to be set explicitely" |