Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1425.mcz
==================== Summary ====================
Name: Morphic-mt.1425 Author: mt Time: 4 May 2018, 8:03:48.28207 am UUID: fec34f3d-5815-0d4c-b3d7-e205cfe2ef7a Ancestors: Morphic-kfr.1424
In Morphic's dialog for true/false choices, support cancellation as a third option.
Yes, this might break some old code, yet, I am not aware of a frequent use case here. We should be fine.
We need this little change for the ListChooser. See ToolBuilder-Morphic-mt.217.
=============== Diff against Morphic-kfr.1424 ===============
Item was changed: ----- Method: UserDialogBoxMorph class>>confirm:title:trueChoice:falseChoice:at: (in category 'utilities') ----- confirm: aString title: titleString trueChoice: trueChoice falseChoice: falseChoice at: aPointOrNil "UserDialogBoxMorph confirm: 'Make your choice carefully' withCRs title: 'Do you like chocolate?' trueChoice: 'Oh yessir!!' falseChoice: 'Not so much...'" ^self new title: titleString; message: aString; createButton: trueChoice translated value: true; + createButton: falseChoice translated value: false; + createCancelButton: 'Cancel' translated translated value: nil; - createCancelButton: falseChoice translated value: false; selectedButtonIndex: 1; registerKeyboardShortcuts; preferredPosition: (aPointOrNil ifNil: [ActiveWorld center]); getUserResponse!
Item was changed: ----- Method: UserDialogBoxMorph class>>confirm:title:trueChoice:falseChoice:default:triggerAfter:at: (in category 'utilities') ----- confirm: aString title: titleString trueChoice: trueChoice falseChoice: falseChoice default: default triggerAfter: seconds at: aPointOrNil "UserDialogBoxMorph confirm: 'I like hot java' title: 'What do you say?' trueChoice: 'You bet!!' falseChoice: 'Nope' default: false triggerAfter: 12 at: 121@212" ^self new title: titleString; message: aString; createButton: trueChoice translated value: true; + createButton: falseChoice translated value: false; + createCancelButton: 'Cancel' translated translated value: nil; - createCancelButton: falseChoice translated value: false; selectedButtonIndex: (default ifTrue: [1] ifFalse: [2]); registerKeyboardShortcuts; preferredPosition: (aPointOrNil ifNil: [ActiveWorld center]); getUserResponseAfter: seconds!
squeak-dev@lists.squeakfoundation.org