[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:

==================== 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') -----
  	| 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') -----
  	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') -----
  	"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