[Pkg] The Trunk: Morphic-laza.577.mcz

[commits at source.squeak.org]

Alexander Lazarević uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-laza.577.mcz

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

Name: Morphic-laza.577
Author: laza
Time: 19 September 2011, 4:18:26.575 pm
UUID: 921e0ae8-d889-4df4-a6a1-dbf092852fa1
Ancestors: Morphic-laza.575, Morphic-laza.576

Merged

=============== Diff against Morphic-laza.575 ===============

Item was changed:
  ----- Method: UserDialogBoxMorph>>runModalIn:forHand:at: (in category 'running') -----
  runModalIn: aWorld forHand: aHand at: aPointOrNil
  	"Ensure that we have a reasonable minimum size"
+ 	| oldFocus pos offset |
- 	| oldFocus pos |
  	(ProvideAnswerNotification signal: self label asString) ifNotNil:[:answer| ^answer].
  	self openInWorld: aWorld.
+ 	pos := aPointOrNil ifNil: [aHand position].   
+ 	offset := aPointOrNil
+ 		ifNil: [selectedButton fullBounds origin - (selectedButton fullBounds extent // 2 * (-1 at 1))]
+ 		ifNotNil: [self fullBounds extent // 2].
+ 	self setConstrainedPosition: pos - offset hangOut: false.
- 	pos := (aPointOrNil ifNil:[aHand position]) - (self fullBounds extent // 2).
- 	self setConstrainedPosition: pos hangOut: false.
  	oldFocus := aHand keyboardFocus.
  	aHand newMouseFocus: self.
  	aHand newKeyboardFocus: self.
  	savedLabel := selectedButton label.
  	[self isInWorld] whileTrue:[aWorld doOneSubCycle].
  	oldFocus ifNotNil:[aHand keyboardFocus: oldFocus].
  	^value!