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

commits at source.squeak.org commits at source.squeak.org
Fri Nov 6 11:08:52 UTC 2015


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

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

Name: ToolBuilder-Morphic-mt.153
Author: mt
Time: 6 November 2015, 12:08:43.925 pm
UUID: 738a4271-8bf9-4ff2-b6af-a7de2a0d7421
Ancestors: ToolBuilder-Morphic-mt.152

Let all kinds of pluggable lists have customizable balloon helps.

=============== Diff against ToolBuilder-Morphic-mt.152 ===============

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 help.
- 		getListSizeSelector: aSpec listSize.
  	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!

Item was changed:
  PluggableListMorph subclass: #PluggableListMorphPlus
+ 	instanceVariableNames: 'dragItemSelector dropItemSelector wantsDropSelector dragTypeSelector dragStartedSelector'
- 	instanceVariableNames: 'dragItemSelector dropItemSelector wantsDropSelector getHelpSelector dragTypeSelector dragStartedSelector'
  	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'ToolBuilder-Morphic'!
  
  !PluggableListMorphPlus commentStamp: 'ar 7/15/2005 11:10' prior: 0!
  Extensions for PluggableListMorph needed by ToolBuilder!

Item was removed:
- ----- Method: PluggableListMorphPlus>>balloonText (in category 'accessing') -----
- balloonText
- 	"Overridden to send selector to model and not self. Do not use #perform:orSendTo: because super does more than just the send.."
- 	
- 	self getHelpSelector ifNotNil: [:selector |
- 		((self model respondsTo: selector) and: [self hoverRow > 0]) ifTrue: [
- 			^ self model perform: selector with: (self modelIndexFor: self hoverRow)]].
- 	
- 	^ super balloonText!

Item was removed:
- ----- Method: PluggableListMorphPlus>>getHelpSelector (in category 'accessing') -----
- getHelpSelector
- 	
- 	^ getHelpSelector!

Item was removed:
- ----- Method: PluggableListMorphPlus>>getHelpSelector: (in category 'accessing') -----
- getHelpSelector: aSelector
- 	"Get help for list entries."
- 	
- 	getHelpSelector := aSelector.!

Item was removed:
- ----- Method: PluggableListMorphPlus>>hoverRow: (in category 'accessing') -----
- hoverRow: anInteger
- 
- 	self hoverRow ~= anInteger ifTrue: [
- 		super hoverRow: anInteger.
- 		self wantsBalloon ifTrue: [
- 			self activeHand
- 				removePendingBalloonFor: self;
- 				triggerBalloonFor: self after: self balloonHelpDelayTime]].
- 	
- 	!



More information about the Squeak-dev mailing list