Commit f493235e authored by bp's avatar bp
Browse files

Fixed selection bug

git-svn-id: https://forth-ev.de/repos/bigforth@1713 3b8d8251-53f3-0310-8f3b-fd1cb8370982
parent 9cca6854
...@@ -163,8 +163,7 @@ NotUseful ( WhenMapped ) Value backing-mode ...@@ -163,8 +163,7 @@ NotUseful ( WhenMapped ) Value backing-mode
[defined] win32 [IF] [defined] win32 [IF]
Create sys-colors Create sys-colors
COLOR_WINDOWTEXT dup , , COLOR_WINDOWTEXT dup , , COLOR_WINDOW , COLOR_3DFACE ,
COLOR_WINDOW , COLOR_3DFACE ,
COLOR_WINDOWTEXT dup , , COLOR_3DFACE dup , , COLOR_WINDOWTEXT dup , , COLOR_3DFACE dup , ,
COLOR_HIGHLIGHTTEXT dup , , COLOR_HIGHLIGHT dup , , COLOR_HIGHLIGHTTEXT dup , , COLOR_HIGHLIGHT dup , ,
COLOR_MENUTEXT dup , , COLOR_3DFACE dup , , COLOR_MENUTEXT dup , , COLOR_3DFACE dup , ,
...@@ -819,7 +818,8 @@ Variable selection ...@@ -819,7 +818,8 @@ Variable selection
: nextpow2 ( n -- x^2 ) 1 BEGIN 2* 2dup < UNTIL nip ; : nextpow2 ( n -- x^2 ) 1 BEGIN 2* 2dup < UNTIL nip ;
: (@select ( -- addr n ) selection @ dup 0= : (@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= : +select ( addr n -- ) selection @ 0=
IF dup cell+ nextpow2 selection Handle! IF dup cell+ nextpow2 selection Handle!
...@@ -867,7 +867,7 @@ Defer screen-event ...@@ -867,7 +867,7 @@ Defer screen-event
: @select ( win dpy -- addr n ) : @select ( win dpy -- addr n )
own-selection @ own-selection @
IF 2drop IF 2drop
ELSE >r selection HandleOff ELSE >r selection @ IF selection HandleOff THEN
r@ 1 XGetSelectionOwner 0= r@ 1 XGetSelectionOwner 0=
IF 0 sp@ r> swap XFetchBytes tuck swap +select XFree 2drop IF 0 sp@ r> swap XFetchBytes tuck swap +select XFree 2drop
ELSE r> swap >r ELSE r> swap >r
......
Supports Markdown
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