[Pkg] The Trunk: Morphic-mt.1394.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Feb 12 08:49:10 UTC 2018

Marcel Taeumel uploaded a new version of Morphic to project The Trunk:

==================== Summary ====================

Name: Morphic-mt.1394
Author: mt
Time: 12 February 2018, 9:49:02.68787 am
UUID: 2c7b52d0-710f-40e5-817b-d79218563652
Ancestors: Morphic-ul.1393

Small fix for mouse cursor in dialog boxes.

=============== Diff against Morphic-ul.1393 ===============

Item was changed:
  ----- Method: DialogWindow>>getUserResponse (in category 'running') -----
  	| hand world |
  	(ProvideAnswerNotification signal: self message asString) 
  		ifNotNil: [:answer| 
  			^ answer = #default
  				ifTrue: [result]
  				ifFalse: [answer]].
  	self message ifEmpty: [messageMorph delete]. "Do not waste space."
  	self paneMorph submorphs ifEmpty: [self paneMorph delete]. "Do not waste space."
  	hand := self currentHand.
  	world := self currentWorld.
  	self fullBounds.
  	self center: preferredPosition.
  	self bounds: (self bounds translatedToBeWithin: world bounds).
  	self openInWorld: world.
+ 	hand showTemporaryCursor: nil. "Since we are out of context, reset the cursor."
  	hand keyboardFocus in: [:priorKeyboardFocus |
  		self exclusive ifTrue: [hand newMouseFocus: self].
  		hand newKeyboardFocus: self.
  		[self isInWorld] whileTrue:[world doOneSubCycle].
  		hand newKeyboardFocus: priorKeyboardFocus.
  		hand releaseMouseFocus].
  	^ result!

More information about the Packages mailing list