Use an instance of LabelAndIcon for a image+string (image on the left) and LabelAndTwoIcons for either image1+string+image2 (two images) or string+image (image on the right).
For example:
or:
|b|
b := Button new.
b label:(LabelAndIcon new
string:'Press';
icon:(ToolbarIconLibrary leftArrow24x24Icon)).
b open
or even:
|b|
b := Label new.
b label:(LabelAndTwoIcons new
string:'Press';
image2:(ToolbarIconLibrary rightArrow24x24Icon)).
b open
|v list|
list := OrderedCollection new.
list add:(LabelAndTwoIcons new
string:'Left';
image2:(ToolbarIconLibrary leftArrow24x24Icon)).
list add:(LabelAndTwoIcons new
string:'Right';
image2:(ToolbarIconLibrary rightArrow24x24Icon)).
v := SelectionInListView new.
v list:list.
v selection:1.
v open