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

Minor Factory changes

release
wayo.cavazos 2006-03-31 00:53:36 +00:00
parent abdee3dbb3
commit 05ddc35d5c
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
contrib/factory/factory.factor
View File

@ -151,6 +151,7 @@ TUPLE: wm-root ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
M: wm-root handle-map-request-event ( event <wm-root> -- ) M: wm-root handle-map-request-event ( event <wm-root> -- )
"handle-map-request-event called on wm-root" print flush
drop XMapRequestEvent-window id>obj ! obj drop XMapRequestEvent-window id>obj ! obj
{ { [ dup wm-frame? ] { { [ dup wm-frame? ]
@ -164,6 +165,9 @@ M: wm-root handle-map-request-event ( event <wm-root> -- )
"new window has override_redirect attribute set." print flush "new window has override_redirect attribute set." print flush
drop ] } drop ] }
{ [ dup window-id window-parent+ id>obj wm-frame? ]
[ "Window is already managed" print flush drop ] }
{ [ t ] [ window-id manage-window ] } } { [ t ] [ window-id manage-window ] } }
cond ; cond ;
@ -332,7 +336,9 @@ TUPLE: wm-frame child ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: manage-window ( window -- ) : manage-window ( window -- )
flush-dpy
grab-server grab-server
flush-dpy
create-wm-child ! child create-wm-child ! child
create-wm-frame ! frame create-wm-frame ! frame
@ -360,8 +366,11 @@ TUPLE: wm-frame child ;
dup map-subwindows% dup map-subwindows%
dup wm-frame-child PropertyChangeMask swap select-input% dup wm-frame-child PropertyChangeMask swap select-input%
flush-dpy 0 sync-dpy ungrab-server ; flush-dpy
0 sync-dpy
ungrab-server
flush-dpy ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!