[Pkg] The Trunk: Morphic-fbs.711.mcz

commits at source.squeak.org commits at source.squeak.org
Sun Dec 29 19:21:09 UTC 2013

Frank Shearar uploaded a new version of Morphic to project The Trunk:

==================== 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.
  		setProperty: #highlightSelector toValue: #highlightMessageList:with: ;
  		setProperty: #itemConversionMethod toValue: #asStringOrText ;
  		setProperty: #balloonTextSelectorForSubMorphs toValue: #balloonTextForClassAndMethodString ;
+ 		enableDragNDrop: SystemBrowser browseWithDragNDrop ;
- 		enableDragNDrop: Preferences browseWithDragNDrop ;
  		menuTitleSelector: #messageListSelectorTitle.
  		register: listMorph
  		id: aSpec name.
  		keystrokeActionSelector: aSpec keyPress ;
  		getListElementSelector: aSpec listItem ;
  		getListSizeSelector: aSpec listSize.
  		buildHelpFor: listMorph 
  		spec: aSpec. 
  		setFrame: aSpec frame 
  		in: listMorph.
  	parent ifNotNil: [ self add: listMorph to: parent ].
  	panes ifNotNil: [ aSpec list ifNotNil:[panes add: aSpec list ] ].
  	^ listMorph!

More information about the Packages mailing list