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

Replace spc with bl in x.factor

darcs
wayo.cavazos 2006-07-01 17:17:30 +00:00
parent 0f220b4d4c
commit 25e9d29c7e
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
contrib/x11/x.factor
View File

@ -222,8 +222,6 @@ event-mask-names [ name>event-mask bit-test ] subset-with ;
: print-field ( name value -- ) swap "=" append write pprint ; : print-field ( name value -- ) swap "=" append write pprint ;
: spc ( -- ) " " write ;
: print-window-geometry ( -- ) : print-window-geometry ( -- )
window-width pprint "x" write window-height pprint "+" write window-width pprint "x" write window-height pprint "+" write
window-x pprint "+" write window-y pprint ; window-x pprint "+" write window-y pprint ;
@ -237,12 +235,12 @@ window-map-state
} cond ; } cond ;
: print-window-info ( -- ) : print-window-info ( -- )
"id" win get print-field spc "id" win get print-field bl
"parent" window-parent print-field spc "parent" window-parent print-field bl
"root" window-root print-field spc "root" window-root print-field bl
print-window-geometry terpri print-window-geometry terpri
"children" window-children print-field terpri "children" window-children print-field terpri
"override-redirect" window-override-redirect print-field spc "override-redirect" window-override-redirect print-field bl
print-map-state terpri print-map-state terpri
"event-mask" window-event-mask event-mask>names print-field terpri "event-mask" window-event-mask event-mask>names print-field terpri
"all-event-masks" window-all-event-masks event-mask>names print-field "all-event-masks" window-all-event-masks event-mask>names print-field
@ -491,6 +489,7 @@ nip ;
: map-window+ [ map-window ] with-win ; : map-window+ [ map-window ] with-win ;
: unmap-window+ [ unmap-window ] with-win ; : unmap-window+ [ unmap-window ] with-win ;
: window-parent+ [ window-parent ] with-win ; : window-parent+ [ window-parent ] with-win ;
: fetch-name+ [ fetch-name ] with-win ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!