Benjamin Van Ryseghem-2 wrote
I think we can do better :P (with still a workaround)
I was being a bit dramatic ;) I ended up with a slightly less depressing: open | windowModel labelMorphs | windowModel := self new openWithSpec. labelMorphs := windowModel window allMorphs select: [ :e | e isKindOf: LabelMorph ]. labelMorphs do: [ :e | self workAroundLabelAlignmentOf: e ]. workAroundLabelAlignmentOf: aLabelMorph | isSpecLabel | isSpecLabel := aLabelMorph model isKindOf: LabelModel. isSpecLabel ifFalse: [ ^ self ]. aLabelMorph owner hResizing: #spaceFill; changeTableLayout; listDirection: #rightToLeft. aLabelMorph hResizing: #shrinkWrap; width: 155. No rush on this. I'm good for now. ----- Cheers, Sean -- View this message in context: http://forum.world.st/DateModel-label-width-tp4733674p4734026.html Sent from the Pharo Smalltalk Developers mailing list archive at Nabble.com.