Quantcast

The Trunk: ToolBuilder-Morphic-pre.194.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

The Trunk: ToolBuilder-Morphic-pre.194.mcz

commits-2
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".!


Loading...