It worked. For center the morph I do it in the naive way. I called the method position: of the morph.
Hi,
1. Spec styles define a �default� font applied to all components (morphs in this case) that understand font, and if you want to change it you need to define your own style.
2. A string morph cannot center the string (this is a morphic stuff)
You can solve your problem by adding a PanelMorph instead a string:
obtainSpMorphPresenterwithAStringMorph
| morph |
morph := StringMorph
contents: 'A String Morph'
font:
(LogicalFont
familyName: Smalltalk ui theme labelFont familyName
pointSize: Smalltalk ui theme labelFont pointSize + 10).
^ SpMorphPresenter new
morph: (PanelMorph new
addMorphBack: morph;
yourself);
yourself
This will produce this morph:
And since I hate morphic, I will let you to fight with morph to center your sub morph ;)
Esteban
button1 := self newButton.