[Pkg] The Trunk: Morphic-ar.266.mcz

[commits at source.squeak.org]

Andreas Raab uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-ar.266.mcz

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

Name: Morphic-ar.266
Author: ar
Time: 12 December 2009, 6:47:25 am
UUID: dd6fa7c2-4539-d34e-9535-027fc1e717b8
Ancestors: Morphic-ul.265

UserDialogBoxMorph gets an optional position argument. The menu item "About Squeak" is now filled in with proper information.

=============== Diff against Morphic-ul.265 ===============

Item was changed:
  ----- Method: UserDialogBoxMorph class>>confirm:orCancel: (in category 'utilities') -----
  confirm: aString orCancel: cancelBlock
  	"UserDialogBoxMorph confirm: 'Do you like chocolate?'"
+ 	^self confirm: aString orCancel: cancelBlock at: nil!
- 	| dialog resp |
- 	dialog := self new.
- 	dialog title: 'Confirmation'.
- 	dialog label: aString.
- 	dialog addButton: '       Yes       ' translated value: true.
- 	dialog addButton: '        No        ' translated  value: false..
- 	dialog addButton: '     Cancel     ' translated  value: nil..
- 	resp := dialog runModalIn: ActiveWorld forHand: ActiveHand.
- 	^resp ifNil:[cancelBlock value]!

Item was added:
+ ----- Method: UserDialogBoxMorph class>>confirm:orCancel:at: (in category 'utilities') -----
+ confirm: aString orCancel: cancelBlock at: aPointOrNil
+ 	"UserDialogBoxMorph confirm: 'Do you like chocolate?'"
+ 	| dialog resp |
+ 	dialog := self new.
+ 	dialog title: 'Confirmation'.
+ 	dialog label: aString.
+ 	dialog addButton: '       Yes       ' translated value: true.
+ 	dialog addButton: '        No        ' translated  value: false..
+ 	dialog addButton: '     Cancel     ' translated  value: nil..
+ 	resp := dialog runModalIn: ActiveWorld forHand: ActiveHand at: aPointOrNil.
+ 	^resp ifNil:[cancelBlock value]!

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

Item was added:
+ ----- Method: UserDialogBoxMorph class>>inform:title:at: (in category 'utilities') -----
+ inform: aString title: titleString at: aPointOrNil
+ 	"UserDialogBoxMorph inform: 'Squeak is great!!' title: 'Will you look at this:'"
+ 	| dialog |
+ 	dialog := self new.
+ 	dialog title: titleString.
+ 	dialog label: aString.
+ 	dialog addButton: '       OK       ' translated value: nil.
+ 	^dialog runModalIn: ActiveWorld forHand: ActiveHand at: aPointOrNil!

Item was changed:
  ----- Method: UserDialogBoxMorph class>>confirm:title: (in category 'utilities') -----
  confirm: aString title: titleString
  	"UserDialogBoxMorph confirm: 'Make your choice carefully' withCRs title: 'Do you like chocolate?'"
+ 	^self confirm: aString title: titleString at: nil!
- 	| dialog |
- 	dialog := self new.
- 	dialog title: titleString.
- 	dialog label: aString.
- 	dialog addButton: '       Yes       ' translated value: true.
- 	dialog addButton: '        No        ' translated  value: false..
- 	^dialog runModalIn: ActiveWorld forHand: ActiveHand!

Item was changed:
  ----- Method: TheWorldMainDockingBar>>aboutSqueak (in category 'menu actions') -----
  aboutSqueak
+ 	UserDialogBoxMorph
+ 		inform: SmalltalkImage current systemInformationString withCRs
+ 		title: 'About Squeak:'
+ 		at: World center.
  !

Item was changed:
  ----- Method: UserDialogBoxMorph class>>inform:title: (in category 'utilities') -----
  inform: aString title: titleString
  	"UserDialogBoxMorph inform: 'Squeak is great!!' title: 'Will you look at this:'"
+ 	^self inform: aString title: titleString at: nil!
- 	| dialog |
- 	dialog := self new.
- 	dialog title: titleString.
- 	dialog label: aString.
- 	dialog addButton: '       OK       ' translated value: nil.
- 	^dialog runModalIn: ActiveWorld forHand: ActiveHand!

Item was added:
+ ----- Method: UserDialogBoxMorph class>>confirm:title:at: (in category 'utilities') -----
+ confirm: aString title: titleString at: aPointOrNil
+ 	"UserDialogBoxMorph confirm: 'Make your choice carefully' withCRs title: 'Do you like chocolate?'"
+ 	| dialog |
+ 	dialog := self new.
+ 	dialog title: titleString.
+ 	dialog label: aString.
+ 	dialog addButton: '       Yes       ' translated value: true.
+ 	dialog addButton: '        No        ' translated  value: false..
+ 	^dialog runModalIn: ActiveWorld forHand: ActiveHand at: aPointOrNil!

Item was removed:
- ----- 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].
- 	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!