23 lines
593 B
Factor
23 lines
593 B
Factor
|
|
USING: kernel io namespaces arrays sequences
|
|
x11.xlib mortar slot-accessors x x.widgets ;
|
|
|
|
IN: x.widgets.wm.child
|
|
|
|
SYMBOL: <wm-child>
|
|
|
|
<wm-child> <widget> { } define-simple-class
|
|
|
|
<wm-child> "create" !( id <wm-child> -- wm-child ) [
|
|
new-empty swap >>id dpy get >>dpy PropertyChangeMask >>mask
|
|
<- add-to-save-set
|
|
0 <-- set-border-width
|
|
<- add-to-window-table
|
|
dup $mask <-- select-input
|
|
] add-class-method
|
|
|
|
<wm-child> "handle-property" !( event wm-child -- ) [
|
|
drop
|
|
"child handle-property :: atom name = " write
|
|
XPropertyEvent-atom get-atom-name print flush
|
|
] add-method |