Merge branch 'master' of git://onigirihouse.com/git/yuuki
commit
9138bfe0f6
|
@ -1,6 +1,6 @@
|
|||
! Copyright (C) 2005, 2007 Eduardo Cavazos and Slava Pestov
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: alien arrays ui ui.gadgets ui.gestures ui.backend
|
||||
USING: alien alien.c-types arrays ui ui.gadgets ui.gestures ui.backend
|
||||
ui.clipboards ui.gadgets.worlds assocs kernel math namespaces
|
||||
opengl sequences strings x11.xlib x11.events x11.xim x11.glx
|
||||
x11.clipboard x11.constants x11.windows io.utf8 combinators
|
||||
|
@ -217,6 +217,19 @@ M: x-clipboard paste-clipboard
|
|||
M: x11-ui-backend set-title ( string world -- )
|
||||
world-handle x11-handle-window swap dpy get -rot
|
||||
3dup set-title-old set-title-new ;
|
||||
|
||||
M: x11-ui-backend set-fullscreen* ( ? world -- )
|
||||
world-handle x11-handle-window "XClientMessageEvent" <c-object>
|
||||
tuck set-XClientMessageEvent-window
|
||||
swap _NET_WM_STATE_ADD _NET_WM_STATE_REMOVE ?
|
||||
over set-XClientMessageEvent-data0
|
||||
ClientMessage over set-XClientMessageEvent-type
|
||||
dpy get over set-XClientMessageEvent-display
|
||||
"_NET_WM_STATE" x-atom over set-XClientMessageEvent-message_type
|
||||
32 over set-XClientMessageEvent-format
|
||||
"_NET_WM_STATE_FULLSCREEN" x-atom over set-XClientMessageEvent-data1
|
||||
>r dpy get root get 0 SubstructureNotifyMask r> XSendEvent drop ;
|
||||
|
||||
|
||||
M: x11-ui-backend (open-window) ( world -- )
|
||||
dup gadget-window
|
||||
|
|
|
@ -402,3 +402,8 @@ TYPEDEF: uchar KeyCode
|
|||
: LSBFirst 0 ;
|
||||
: MSBFirst 1 ;
|
||||
|
||||
! *****************************************************************
|
||||
! * EXTENDED WINDOW MANAGER HINTS
|
||||
! *****************************************************************
|
||||
|
||||
C-ENUM: _NET_WM_STATE_REMOVE _NET_WM_STATE_ADD _NET_WM_STATE_TOGGLE ;
|
Loading…
Reference in New Issue