Commit 4a1544f2 authored by bp's avatar bp

Fixed sticky tooltips in stub window problem

git-svn-id: https://forth-ev.de/repos/bigforth@1875 3b8d8251-53f3-0310-8f3b-fd1cb8370982
parent 605a154a
......@@ -454,7 +454,7 @@ how: : dispose clicks HandleOff
: moved! !moved on ;
: moved? ( -- flag ) !moved @ !moved off ;
: get-dpy ( -- addr ) ^ ;
: mxy! ( mx my -- ) my ! mx ! ;
: mxy! ( mx my -- ) my ! mx ! ;
\ Display 04aug05py
[defined] x11 [IF]
......@@ -829,7 +829,7 @@ private:
:[ ( lparam wparam msg win -- ) ?grab moved!
2drop >mshift $FF and mb ! >lohi mxy! 0 ]:
WM_MOUSEMOVE Handler@ !
:[ pointed self
:[ opointed self
IF pointed leave 0 bind pointed THEN
DefWindowProc ]: WM_NCMOUSEMOVE Handler@ !
......
......@@ -338,7 +338,7 @@ how: : xinc child xinc ;
>r >r 0 h @ w @ r> r> swap
xwin @ MoveWindow drop ; [THEN]
: resized ( -- ) (resized counter @ ?EXIT draw ;
: child-moved ( -- ) pointed self
: child-moved ( -- ) pointed self
IF mx @ my @ pointed xywh >r >r
p- r> r> rot swap u< -rot u< and
IF & backing @ pointed class?
......@@ -429,8 +429,8 @@ how: : init ( widget win -- ) xwin ! title off
\ event handler for sub-window 30aug05py
: moved! dpy moved! ;
: moved? dpy moved? ;
\ : moved! dpy moved! ;
\ : moved? dpy moved? ;
: click^ dpy click^ ;
: moreclicks dpy moreclicks ;
: mxy! transclick dpy mxy! ;
......
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