[squeak-dev] The Trunk: Morphic-mt.2074.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Jan 26 09:17:20 UTC 2023
Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.2074.mcz
==================== Summary ====================
Name: Morphic-mt.2074
Author: mt
Time: 26 January 2023, 10:17:17.173707 am
UUID: 86716017-7fb9-0a4f-8636-4cad85f37d89
Ancestors: Morphic-mt.2073
Complement ToolBuilder-Morphic-mt.325
=============== Diff against Morphic-mt.2073 ===============
Item was added:
+ ----- Method: SimpleHierarchicalListMorph>>doubleClickEnabled (in category 'accessing') -----
+ doubleClickEnabled
+
+ ^ false!
Item was changed:
----- Method: SimpleHierarchicalListMorph>>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: nil
with: (self dragEnabled ifTrue:[#startDrag:] ifFalse:[nil]).
evt hand waitForClicksOrDrag: self event: evt selectors: selectors threshold: HandMorph dragThreshold "pixels".!
More information about the Squeak-dev
mailing list
|