From 0238fce941c2459925088d984ebc7709d289a304 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Fri, 4 Sep 2009 12:35:45 -0400 Subject: [PATCH] ui.backend.x11: fix set-fullscreen --- basis/ui/backend/x11/x11.factor | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/basis/ui/backend/x11/x11.factor b/basis/ui/backend/x11/x11.factor index 978fed6bf8..aab7fd4c34 100755 --- a/basis/ui/backend/x11/x11.factor +++ b/basis/ui/backend/x11/x11.factor @@ -257,15 +257,19 @@ M: x11-ui-backend set-title ( string world -- ) handle>> window>> swap [ dpy get ] 2dip [ set-title-old ] [ set-title-new ] 3bi ; -M: x11-ui-backend (set-fullscreen) ( world ? -- ) +: make-fullscreen-msg ( world ? -- msg ) XClientMessageEvent - swap _NET_WM_STATE_ADD _NET_WM_STATE_REMOVE ? >>data0 - swap handle>> window>> >>window + ClientMessage >>type dpy get >>display "_NET_WM_STATE" x-atom >>message_type + swap _NET_WM_STATE_ADD _NET_WM_STATE_REMOVE ? >>data0 + swap handle>> window>> >>window 32 >>format - "_NET_WM_STATE_FULLSCREEN" x-atom >>data1 - [ dpy get root get 0 SubstructureNotifyMask ] dip XSendEvent drop ; + "_NET_WM_STATE_FULLSCREEN" x-atom >>data1 ; + +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 -- ) dup gadget-window