The Trunk: Morphic-fbs.711.mcz

Frank Shearar uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-fbs.711.mcz

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

Name: Morphic-fbs.711
Author: fbs
Time: 29 December 2013, 7:11:36.154 pm
UUID: f78f474b-acdd-4c47-88dd-b9d678a55bc5
Ancestors: Morphic-ul.710

Make browseWithPrettyPrint, browseWithDragNDrop pragma-based preferences.

=============== Diff against Morphic-ul.710 ===============

Item was changed:
  ----- Method: MorphicToolBuilder>>buildPluggableAlternateMultiSelectionList: (in category 'pluggable widgets') -----
  buildPluggableAlternateMultiSelectionList: aSpec
  | listMorph listClass |
  aSpec getSelected ifNotNil: [ ^ self error: 'There is no PluggableAlternateListMorphOfManyByItem' ].
  listClass := self alternateMultiSelectListClass.
  listMorph := listClass
  on: aSpec model
  list: aSpec list
  primarySelection: aSpec getIndex
  changePrimarySelection: aSpec setIndex
  listSelection: aSpec getSelectionList
  changeListSelection: aSpec setSelectionList
  menu: aSpec menu.
  listMorph
  setProperty: #highlightSelector toValue: #highlightMessageList:with: ;
  setProperty: #itemConversionMethod toValue: #asStringOrText ;
  setProperty: #balloonTextSelectorForSubMorphs toValue: #balloonTextForClassAndMethodString ;
+ enableDragNDrop: SystemBrowser browseWithDragNDrop ;
- enableDragNDrop: Preferences browseWithDragNDrop ;
  menuTitleSelector: #messageListSelectorTitle.
  self
  register: listMorph
  id: aSpec name.
  listMorph
  keystrokeActionSelector: aSpec keyPress ;
  getListElementSelector: aSpec listItem ;
  getListSizeSelector: aSpec listSize.
  self
  buildHelpFor: listMorph
  spec: aSpec.
  self
  setFrame: aSpec frame
  in: listMorph.
  parent ifNotNil: [ self add: listMorph to: parent ].
  panes ifNotNil: [ aSpec list ifNotNil:[panes add: aSpec list ] ].
  ^ listMorph!