[Pkg] 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 Packages
mailing list