[squeak-dev] The Trunk: Morphic-laza.577.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Sep 20 06:28:55 UTC 2011
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!
More information about the Squeak-dev
mailing list
|