Skip to content
GitLab
Menu
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
Bernd Paysan
bigforth
Commits
0b0ef6df
Verified
Commit
0b0ef6df
authored
May 21, 2017
by
Bernd Paysan
Browse files
Fix delay check sign
parent
1ce1e651
Changes
1
Hide whitespace changes
Inline
Side-by-side
displays.fs
View file @
0b0ef6df
...
...
@@ -506,8 +506,8 @@ how: : dispose clicks HandleOff
\
Display
05
aug99py
:
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-
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment