Skip to content

GitLab

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 ...@@ -506,8 +506,8 @@ how: : dispose clicks HandleOff
\ Display 05aug99py \ Display 05aug99py
: in-time? ( time flag -- flag ) : in-time? ( time flag -- flag )
lasttime @ rot - swap lastclick @ = lasttime @ rot - negate swap lastclick @ =
IF sameclick ELSE twoclicks THEN < ; IF sameclick ELSE twoclicks THEN < ;
: samepos? ( event -- flag ) flags #pending bit@ : samepos? ( event -- flag ) flags #pending bit@
IF XButtonEvent x @+ @ click^ w@+ w@ p- IF XButtonEvent x @+ @ click^ w@+ w@ p-
dup * swap dup * + samepos < dup * swap dup * + samepos <
...@@ -752,7 +752,7 @@ private: ...@@ -752,7 +752,7 @@ private:
\ Display 19jan00py \ Display 19jan00py
: in-time? ( time flag -- flag ) : in-time? ( time flag -- flag )
lasttime @ rot swap - lastclick @ = lasttime @ rot - negate swap lastclick @ =
IF sameclick ELSE twoclicks THEN < ; IF sameclick ELSE twoclicks THEN < ;
: samepos? ( event -- flag ) flags #pending bit@ : samepos? ( event -- flag ) flags #pending bit@
IF MSG lparam lohi@ ( swap ) click^ w@+ w@ p- 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