Raise window when moved
parent
79266b58cf
commit
61d96bcad8
|
@ -83,7 +83,7 @@ drag-gc get [ (draw-move-outline) ] with-gcontext ;
|
|||
: drag-move-window ( -- )
|
||||
[ draw-move-outline ] drag-mouse swap v- window-position v+ move-window ;
|
||||
|
||||
: drag-move-window% [ drag-move-window ] with-window-object ;
|
||||
: drag-move-window% [ drag-move-window raise-window ] with-window-object ;
|
||||
|
||||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||
|
||||
|
|
Loading…
Reference in New Issue