The Trunk: Morphic-ar.310.mcz

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

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

Name: Morphic-ar.310
Author: ar
Time: 23 January 2010, 2:41:19.053 pm
UUID: 1ea85f42-cee5-2346-8a6b-d034b0f4019d
Ancestors: Morphic-ar.309

Preps for merging Cobalt's ToolBuilder-Morphic changes:
Extend UserDialogBoxMorph with confirm:trueChoice:falseChoice: and fix a small but relevant buglet in flushing a PLMs list when an unchanged getListElementSelector is installed.

=============== Diff against Morphic-ar.309 ===============

Item was added:
+ ----- 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;
+ label: aString;
+ addSelectedButton: '   ', trueChoice translated, '   ' value: true;
+ addCancelButton: '   ', falseChoice translated, '   '  value: false;
+ runModalIn: ActiveWorld forHand: ActiveHand at: aPointOrNil!

Item was added:
+ ----- Method: UserDialogBoxMorph class>>confirm:trueChoice:falseChoice: (in category 'utilities') -----
+ confirm: aString trueChoice: trueChoice falseChoice: falseChoice
+ "UserDialogBoxMorph confirm: 'Do you like chocolate?' trueChoice: 'Oh yessir!!' falseChoice: 'Not so much...'  "
+ ^self confirm: aString title: 'Please confirm:' trueChoice: trueChoice falseChoice: falseChoice at: nil!

Item was changed:
  ----- Method: PluggableListMorph>>getListElementSelector: (in category 'initialization') -----
  getListElementSelector: aSymbol
  "specify a selector that can be used to obtain a single element in the underlying list"
+ getListElementSelector == aSymbol ifTrue:[^self].
  getListElementSelector := aSymbol.
  list := nil.  "this cache will not be updated if getListElementSelector has been specified, so go ahead and remove it"!

Item was added:
+ ----- Method: UserDialogBoxMorph class>>confirm:title:trueChoice:falseChoice: (in category 'utilities') -----
+ confirm: aString title: titleString trueChoice: trueChoice falseChoice: falseChoice
+ "UserDialogBoxMorph confirm: 'Make your choice carefully' withCRs title: 'Do you like chocolate?' trueChoice: 'Oh yessir!!' falseChoice: 'Not so much...'  "
+ ^self confirm: aString title: titleString trueChoice: trueChoice falseChoice: falseChoice at: nil!