Patrick Rein uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-pre.194.mcz
==================== Summary ====================
Name: ToolBuilder-Morphic-pre.194 Author: pre Time: 15 May 2017, 9:36:39.991328 pm UUID: a559fcce-f05d-6044-ba8f-67a103756188 Ancestors: ToolBuilder-Morphic-topa.193
Adds double click capabilities to PluggableTreeMorph
=============== Diff against ToolBuilder-Morphic-topa.193 ===============
Item was changed: SimpleHierarchicalListMorph subclass: #PluggableTreeMorph + instanceVariableNames: 'rootWrappers selectedWrapper getRootsSelector getChildrenSelector hasChildrenSelector getLabelSelector getIconSelector getSelectedPathSelector setSelectedParentSelector getHelpSelector dropItemSelector wantsDropSelector dragItemSelector dragTypeSelector nodeClass lastKeystrokeTime lastKeystrokes dragStartedSelector doubleClickSelector' - instanceVariableNames: 'rootWrappers selectedWrapper getRootsSelector getChildrenSelector hasChildrenSelector getLabelSelector getIconSelector getSelectedPathSelector setSelectedParentSelector getHelpSelector dropItemSelector wantsDropSelector dragItemSelector dragTypeSelector nodeClass lastKeystrokeTime lastKeystrokes dragStartedSelector' classVariableNames: 'FilterByLabelsOnly MaximumSearchDepth' poolDictionaries: '' category: 'ToolBuilder-Morphic'!
!PluggableTreeMorph commentStamp: 'ar 2/12/2005 04:38' prior: 0! A pluggable tree morph.!
Item was added: + ----- Method: PluggableTreeMorph>>doubleClick: (in category 'event handling') ----- + doubleClick: evt + + | aMorph | + aMorph := self itemFromPoint: evt position. + self model perform: self doubleClickSelector with: aMorph withoutListWrapper + !
Item was added: + ----- Method: PluggableTreeMorph>>doubleClickEnabled (in category 'accessing') ----- + doubleClickEnabled + + ^ self doubleClickSelector notNil!
Item was added: + ----- Method: PluggableTreeMorph>>doubleClickSelector (in category 'accessing') ----- + doubleClickSelector + + ^ doubleClickSelector!
Item was added: + ----- Method: PluggableTreeMorph>>doubleClickSelector: (in category 'accessing') ----- + doubleClickSelector: anObject + + doubleClickSelector := anObject!
Item was added: + ----- Method: PluggableTreeMorph>>mouseDown: (in category 'event handling') ----- + mouseDown: evt + | aMorph selectors | + + aMorph := self itemFromPoint: evt position. + evt yellowButtonPressed "First check for option (menu) click" + ifTrue: [ + (PluggableListMorph menuRequestUpdatesSelection and: [model okToChange]) ifTrue: [ + aMorph == selectedMorph + ifFalse: [self setSelectedMorph: aMorph]]. + ^ self yellowButtonActivity: evt shiftPressed]. + (aMorph notNil and:[aMorph inToggleArea: (aMorph point: evt position from: self)]) + ifTrue:[^self toggleExpandedState: aMorph event: evt]. + aMorph ifNil:[^super mouseDown: evt]. + + aMorph highlightForMouseDown. + self setProperty: #highlightedMorph toValue: aMorph. + + selectors := Array + with: #click: + with: (self doubleClickEnabled ifTrue: [#doubleClick:] ifFalse: [nil]) + with: nil + with: (self dragEnabled ifTrue:[#startDrag:] ifFalse:[nil]). + evt hand waitForClicksOrDrag: self event: evt selectors: selectors threshold: HandMorph dragThreshold "pixels".!