aBookPageSorterMorph addControls
Last updated at 12:29 am UTC on 30 August 2016
addControls
| bb r aButton str |
r := AlignmentMorph newRow color: Color transparent; borderWidth: 0; layoutInset: 0.
r wrapCentering: #center; cellPositioning: #topCenter;
hResizing: #shrinkWrap; vResizing: #shrinkWrap; extent: 5@5.
bb := SimpleButtonMorph new target: self; borderColor: Color black.
r addMorphBack: (self wrapperFor: (bb label: 'Okay' translated; actionSelector: #acceptSort)).
bb := SimpleButtonMorph new target: self; borderColor: Color black.
r addMorphBack: (self wrapperFor: (bb label: 'Cancel' translated; actionSelector: #delete)).
r addTransparentSpacerOfSize: 8 @ 0.
r addMorphBack: (self wrapperFor: (aButton := UpdatingThreePhaseButtonMorph checkBox)).
aButton
target: self;
actionSelector: #togglePartsBinStatus;
arguments: #();
getSelector: #getPartsBinStatus.
str := StringMorph contents: 'Parts bin' translated.
r addMorphBack: (self wrapperFor: str lock).