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
f493235e
Commit
f493235e
authored
Aug 06, 2010
by
bp
Browse files
Fixed selection bug
git-svn-id:
https://forth-ev.de/repos/bigforth@1713
3b8d8251-53f3-0310-8f3b-fd1cb8370982
parent
9cca6854
Changes
1
Hide whitespace changes
Inline
Side-by-side
minos-base.fs
View file @
f493235e
...
...
@@ -163,8 +163,7 @@ NotUseful ( WhenMapped ) Value backing-mode
[
defined
]
win32
[
IF
]
Create
sys
-
colors
COLOR_WINDOWTEXT
dup
,
,
COLOR_WINDOW
,
COLOR_3DFACE
,
COLOR_WINDOWTEXT
dup
,
,
COLOR_WINDOW
,
COLOR_3DFACE
,
COLOR_WINDOWTEXT
dup
,
,
COLOR_3DFACE
dup
,
,
COLOR_HIGHLIGHTTEXT
dup
,
,
COLOR_HIGHLIGHT
dup
,
,
COLOR_MENUTEXT
dup
,
,
COLOR_3DFACE
dup
,
,
...
...
@@ -819,7 +818,8 @@ Variable selection
: nextpow2 ( n -- x^2 ) 1 BEGIN 2* 2dup < UNTIL nip ;
: (@select ( -- addr n ) selection @ dup 0=
IF drop S"
" ELSE @+ swap THEN ;
IF drop cell selection Handle! selection @ off
selection @ THEN @+ swap ;
: +select ( addr n -- ) selection @ 0=
IF dup cell+ nextpow2 selection Handle!
...
...
@@ -867,7 +867,7 @@ Defer screen-event
: @select ( win dpy -- addr n )
own-selection @
IF 2drop
ELSE >r selection HandleOff
ELSE >r selection
@ IF selection
HandleOff
THEN
r@ 1 XGetSelectionOwner 0=
IF 0 sp@ r> swap XFetchBytes tuck swap +select XFree 2drop
ELSE r> swap >r
...
...
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