The Trunk: ToolBuilder-Morphic-mt.153.mcz

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]].
-
- !