presenter := SpPresenter new.
presenter layout: (SpBoxLayout newTopToBottom
vAlignStart;
spacing: 5;
add: (SpBoxLayout newLeftToRight
spacing: 5;
add: 'Label 1' expand: false;
add: presenter newTextInput;
yourself);
add: (SpBoxLayout newLeftToRight
spacing: 5;
add: 'Label 2' expand: false;
add: presenter newTextInput;
yourself);
add: (SpBoxLayout newLeftToRight
spacing: 5;
add: 'Label 3' expand: false;
add: presenter newTextInput;
yourself);
yourself).
presenter open.
app := SpApplication new.
app addStyleSheetFromString: '.application [
.otherFont [
Font { #name: EnvironmentFont(#code), #size: 14 } ] ]'.
presenter := SpPresenter newApplication: app.
presenter layout: (SpBoxLayout newTopToBottom
vAlignStart;
spacing: 5;
add: (SpBoxLayout newLeftToRight
spacing: 5;
add: (presenter newLabel label: 'Label 1'; addStyle: 'otherFont')
expand: false;
add: presenter newTextInput;
yourself);
add: (SpBoxLayout newLeftToRight
spacing: 5;
add: 'Label 2' expand: false;
add: presenter newTextInput;
yourself);
add: (SpBoxLayout newLeftToRight
spacing: 5;
add: 'Label 3' expand: false;
add: presenter newTextInput;
yourself);
yourself).
presenter open.