Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.157.mcz
==================== Summary ====================
Name: ToolBuilder-Morphic-mt.157 Author: mt Time: 23 January 2016, 12:08:47.304398 pm UUID: 85c03d29-bbf2-4737-affe-7b1752475575 Ancestors: ToolBuilder-Morphic-mt.156
Fixes a bug where text fields did not accept when they agreed to discard their edits silently.
=============== Diff against ToolBuilder-Morphic-mt.156 ===============
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.
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. self buildHelpFor: widget spec: aSpec. self setFrame: aSpec frame in: widget. self setLayoutHintsFor: widget spec: aSpec. parent ifNotNil:[self add: widget to: parent]. widget borderColor: Color lightGray. widget color: Color white. ^widget!
packages@lists.squeakfoundation.org