Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.1617.mcz
==================== Summary ====================
Name: Morphic-cmm.1617 Author: cmm Time: 10 January 2020, 7:32:31.635312 pm UUID: ce0033f9-62f5-4c12-9b75-24d613d56c50 Ancestors: Morphic-tpr.1616
- Fix inescapable modal dialog. - Fix truncation of the first line of PluggableListMorphs when a font larger than the default is used.
=============== Diff against Morphic-tpr.1616 ===============
Item was changed: ----- Method: DialogWindow>>getUserResponse (in category 'running') ----- getUserResponse
| hand world | self message ifEmpty: [messageMorph delete]. "Do not waste space." self paneMorph submorphs ifEmpty: ["Do not waste space and avoid strange button-row wraps." self paneMorph delete. self buttonRowMorph wrapDirection: #none]. hand := self currentHand. world := self currentWorld.
self fullBounds. self moveToPreferredPosition. self openInWorld: world. hand showTemporaryCursor: nil. "Since we are out of context, reset the cursor." hand keyboardFocus in: [:priorKeyboardFocus | hand mouseFocus in: [:priorMouseFocus | self exclusive ifTrue: [hand newMouseFocus: self]. hand newKeyboardFocus: self.
[[self isInWorld] whileTrue: [world doOneSubCycle]] ifCurtailed: [self cancelDialog].
hand newKeyboardFocus: priorKeyboardFocus. + hand releaseMouseFocus]]. - hand newMouseFocus: priorMouseFocus]].
^ result!
Item was changed: ----- Method: PluggableListMorph>>initialize (in category 'initialization') ----- initialize - listMorph := self createListMorph. super initialize. - self scroller layoutPolicy: TableLayout new; addMorph: listMorph. + self + minimumWidth: (self font widthOf: $m) * 5 ; + minimumHeight: self font height - self minimumWidth: (self font widthOf: $m) * 5. - !
Item was changed: ----- Method: ProportionalSplitterMorph>>topBoundary (in category 'queries - geometry') ----- topBoundary "Answer the topmost x position the receiver could be moved to."
| splitter morphs | splitter := self splitterAbove. morphs := self commonNeighbours: leftOrTop with: splitter. - ^ (splitter ifNil: [owner isSystemWindow ifTrue: [owner panelRect top] ifFalse: [owner innerBounds top]] ifNotNil: [splitter bottom]) + (self minimumHeightOf: morphs)!