The Trunk: Morphic-ul.265.mcz

Levente Uzonyi uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-ul.265.mcz

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

Name: Morphic-ul.265
Author: ul
Time: 12 December 2009, 3:19:02 am
UUID: ab8181e6-1f82-574f-807a-56f0d8a61469
Ancestors: Morphic-ul.264

- make sure that ProvideAnswerNotification's messageText is a String

=============== Diff against Morphic-ul.264 ===============

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