The Trunk: MorphicExtras-tcj.256.mcz

Previous Topic Next Topic
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view

The Trunk: MorphicExtras-tcj.256.mcz

David T. Lewis uploaded a new version of MorphicExtras to project The Trunk:

==================== Summary ====================

Name: MorphicExtras-tcj.256
Author: tcj
Time: 7 June 2019, 3:03:00.368787 pm
UUID: 14a1c7c2-1e36-4ce1-b27f-b046f640921e
Ancestors: MorphicExtras-kfr.255

Tell TextMorphs in Flaps to wrap at parent boundary, rather than extend across the whole display (as exposed by enabling debug code in TextMorph>>drawOn: ).  Must execute the following (as postscript of MorphicExtras package, perhaps) to give life to the change:

FlapTab allSubInstancesDo: [:ft | ft reformatTextualTab]

=============== Diff against MorphicExtras-kfr.255 ===============

Item was changed:
  ----- Method: FlapTab>>assumeString:font:orientation:color: (in category 'textual tabs') -----
  assumeString: aString font: aFont orientation: orientationSymbol color: aColor
  | aTextMorph workString tabStyle |
  labelString := aString asString.
  workString := orientationSymbol == #vertical
  [String streamContents:
  [:s |
  labelString do: [:c | s nextPut: c] separatedBy: [s nextPut: Character cr]]]
  ifFalse: [labelString].
  tabStyle := (TextStyle new)
  leading: 0;
  newFontArray: (Array with: aFont).
  aTextMorph := (TextMorph new setTextStyle: tabStyle)
  contents: (workString asText addAttribute: (TextKern kern: 3)).
+ aTextMorph wrapFlag: true.
  self removeAllMorphs.
  self borderStyle: (BorderStyle raised width: 2).
  aColor ifNotNil: [self color: aColor].
  self addMorph: aTextMorph centered.
  aTextMorph lock
  FlapTab allSubInstancesDo: [:ft | ft reformatTextualTab]