From 0b0ef6df8b3bcadedd61db451a3c3ebfbbb70309 Mon Sep 17 00:00:00 2001 From: Bernd Paysan Date: Sun, 21 May 2017 01:58:47 +0200 Subject: [PATCH] Fix delay check sign --- displays.fs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/displays.fs b/displays.fs index f486d36..500dd4c 100644 --- a/displays.fs +++ b/displays.fs @@ -506,8 +506,8 @@ how: : dispose clicks HandleOff \ Display 05aug99py : in-time? ( time flag -- flag ) - lasttime @ rot - swap lastclick @ = - IF sameclick ELSE twoclicks THEN < ; + lasttime @ rot - negate swap lastclick @ = + IF sameclick ELSE twoclicks THEN < ; : samepos? ( event -- flag ) flags #pending bit@ IF XButtonEvent x @+ @ click^ w@+ w@ p- dup * swap dup * + samepos < @@ -752,7 +752,7 @@ private: \ Display 19jan00py : in-time? ( time flag -- flag ) - lasttime @ rot swap - lastclick @ = + lasttime @ rot - negate swap lastclick @ = IF sameclick ELSE twoclicks THEN < ; : samepos? ( event -- flag ) flags #pending bit@ IF MSG lparam lohi@ ( swap ) click^ w@+ w@ p- -- GitLab