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

Fix delay check sign

parent 1ce1e651

displays.fs

+3 −3
Original line number Diff line number Diff line
@@ -506,7 +506,7 @@ how: : dispose clicks HandleOff 
\ Display                                              05aug99py



        : 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    XButtonEvent x @+ @  click^ w@+ w@ p-
@@ -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-