[squeak-dev] The Trunk: ToolBuilder-Morphic-mt.254.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Mar 5 12:26:05 UTC 2020


Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.254.mcz

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

Name: ToolBuilder-Morphic-mt.254
Author: mt
Time: 5 March 2020, 1:26:05.319611 pm
UUID: 45169801-abd8-8f48-b2e8-685ab7516e3d
Ancestors: ToolBuilder-Morphic-ct.253

Removes some static configuration of alternate multi-selection list, which is not used anymore and which triggered a deprecated message send.

=============== Diff against ToolBuilder-Morphic-ct.253 ===============

Item was changed:
  ----- Method: MorphicToolBuilder>>buildPluggableAlternateMultiSelectionList: (in category 'widgets optional') -----
  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 ;
  		menuTitleSelector: #messageListSelectorTitle.
  	self 
  		register: listMorph
  		id: aSpec name.
  	listMorph
  		keystrokeActionSelector: aSpec keyPress ;
  		getListElementSelector: aSpec listItem ;
  		getListSizeSelector: aSpec listSize;
  		getIconSelector: aSpec icon;
  		getHelpSelector: aSpec helpItem.
  		
  	self buildHelpFor: listMorph spec: aSpec.
  		
  	self 
  		setFrame: aSpec frame 
  		in: listMorph.
  	self setLayoutHintsFor: listMorph spec: aSpec.
  	parent ifNotNil: [ self add: listMorph to: parent ].
  	panes ifNotNil: [ aSpec list ifNotNil:[panes add: aSpec list ] ].
  	^ listMorph!



More information about the Squeak-dev mailing list