[squeak-dev] The Trunk: Morphic-cmm.1617.mcz
commits at source.squeak.org
commits at source.squeak.org
Fri Jan 17 02:43:37 UTC 2020
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)!
More information about the Squeak-dev
mailing list
|