From 1ba5aeab7f4510a0462ee680b85a39c9ad09cf3c Mon Sep 17 00:00:00 2001 From: Alain Plantec Date: Fri, 17 Nov 2023 09:54:07 +0100 Subject: [PATCH] state generator --- src/Toplo-Examples/ToSandBox.class.st | 2 +- src/Toplo/ToSkinStateGenerator.class.st | 3 ++- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/src/Toplo-Examples/ToSandBox.class.st b/src/Toplo-Examples/ToSandBox.class.st index 3aec0378d..3443b9b2b 100644 --- a/src/Toplo-Examples/ToSandBox.class.st +++ b/src/Toplo-Examples/ToSandBox.class.st @@ -1921,7 +1921,7 @@ ToSandBox class >> example_lookEventTrace [ but when: ToElementLookEvent do: [ :evt | evt target = but ifTrue: [ evt traceCr ] ]. - but stillPressedStartDelay: 800 milliSeconds. + but stillPressedStartDelay: 3000 milliSeconds. but openInSpace ] diff --git a/src/Toplo/ToSkinStateGenerator.class.st b/src/Toplo/ToSkinStateGenerator.class.st index 6d9fa7345..56fc22653 100644 --- a/src/Toplo/ToSkinStateGenerator.class.st +++ b/src/Toplo/ToSkinStateGenerator.class.st @@ -328,8 +328,9 @@ ToSkinStateGenerator >> mouseUpOutsideEvent: anEvent [ anEvent originalEvent target hasInParentChain: target ]) ifTrue: [ ^ self ]. dragged := false. + self generateReleasedStateFromEvent: anEvent. self generateLeavedStateFromEvent: anEvent. - self generateReleasedStateFromEvent: anEvent + ] { #category : 'mouse handlers' }