Skip to content

B
bigforth
Verified Commit 0b0ef6df authored by Bernd Paysan's avatar Bernd Paysan
Browse files
Options

Fix delay check sign

parent 1ce1e651
Hide whitespace changes
Inline Side-by-side
Showing with 3 additions and 3 deletions
displays.fs
View file @ 0b0ef6df
......@@ -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-
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment