Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.244.mcz
==================== Summary ====================
Name: ToolBuilder-Morphic-mt.244 Author: mt Time: 30 September 2019, 3:58:55.27471 pm UUID: b25e56d0-917d-e547-bfd6-2ae0d355a03c Ancestors: ToolBuilder-Morphic-mt.243
Complements Morphic-mt.1551.
=============== Diff against ToolBuilder-Morphic-mt.243 ===============
Item was changed: ----- Method: MorphicToolBuilder>>buildPluggableText: (in category 'widgets required') ----- buildPluggableText: aSpec | widget | widget := self textPaneClass new. aSpec stylerClass ifNotNil: [:c | widget styler: (c new view: widget)]. widget on: aSpec model text: aSpec getText accept: aSpec setText readSelection: aSpec selection menu: aSpec menu. aSpec font ifNotNil: [:f | widget font: f]. widget readOnly: aSpec readOnly. widget editTextSelector: aSpec editText. widget wantsFrameAdornments: aSpec indicateUnacceptedChanges.
widget askBeforeDiscardingEdits: aSpec askBeforeDiscardingEdits. widget setProperty: #alwaysAccept toValue: aSpec askBeforeDiscardingEdits not.
+ widget wrapFlag: (aSpec softLineWrap ifNil: [true]). - aSpec softLineWrap ifNotNil: [:b | widget wrapFlag: b].
widget isAutoFit ifTrue: [widget hideHScrollBarIndefinitely] ifFalse: [widget showHScrollBarOnlyWhenNeeded]. self register: widget id: aSpec name. widget getColorSelector: aSpec color. widget getTextColorSelector: aSpec textColor. self buildHelpFor: widget spec: aSpec. self setFrame: aSpec frame in: widget. self setLayoutHintsFor: widget spec: aSpec. parent ifNotNil:[self add: widget to: parent]. ^widget!
packages@lists.squeakfoundation.org