steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merge branch 'master' of git://factorcode.org/git/factor

db4
Joe Groff 2009-09-04 12:30:48 -05:00
parent d47d747ebc 0238fce941
commit f93f96150e
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
basis/ui/backend/x11/x11.factor
View File

@ -257,15 +257,19 @@ M: x11-ui-backend set-title ( string world -- )
handle>> window>> swap handle>> window>> swap
[ dpy get ] 2dip [ set-title-old ] [ set-title-new ] 3bi ; [ dpy get ] 2dip [ set-title-old ] [ set-title-new ] 3bi ;
M: x11-ui-backend (set-fullscreen) ( world ? -- ) : make-fullscreen-msg ( world ? -- msg )
XClientMessageEvent <struct> XClientMessageEvent <struct>
swap _NET_WM_STATE_ADD _NET_WM_STATE_REMOVE ? >>data0 ClientMessage >>type
swap handle>> window>> >>window
dpy get >>display dpy get >>display
"_NET_WM_STATE" x-atom >>message_type "_NET_WM_STATE" x-atom >>message_type
swap _NET_WM_STATE_ADD _NET_WM_STATE_REMOVE ? >>data0
swap handle>> window>> >>window
32 >>format 32 >>format
"_NET_WM_STATE_FULLSCREEN" x-atom >>data1 "_NET_WM_STATE_FULLSCREEN" x-atom >>data1 ;
[ dpy get root get 0 SubstructureNotifyMask ] dip XSendEvent drop ;
M: x11-ui-backend (set-fullscreen) ( world ? -- )
[ dpy get root get 0 SubstructureNotifyMask ] 2dip
make-fullscreen-msg XSendEvent drop ;
M: x11-ui-backend (open-window) ( world -- ) M: x11-ui-backend (open-window) ( world -- )
dup gadget-window dup gadget-window