26 lines
630 B
Factor
26 lines
630 B
Factor
|
|
USING: kernel x11.constants mortar mortar.sugar slot-accessors x.widgets.keymenu ;
|
|
|
|
IN: x.widgets.wm.menu
|
|
|
|
SYMBOL: <wm-menu>
|
|
|
|
<wm-menu> <keymenu> { } define-simple-class
|
|
|
|
<wm-menu> "create" !( <wm-menu> -- wm-menu )
|
|
[ new-empty <- keymenu-init ]
|
|
add-class-method
|
|
|
|
<wm-menu> {
|
|
|
|
"wm-menu-handle-key-press" !( event wm-menu -- )
|
|
[ <- unmap <- keymenu-handle-key-press ]
|
|
|
|
"handle-key-press" !( event wm-menu -- ) [ <- wm-menu-handle-key-press ]
|
|
|
|
"wm-menu-popup" !( wm-menu -- wm-menu )
|
|
[ <- map <- raise RevertToPointerRoot CurrentTime <--- set-input-focus ]
|
|
|
|
"popup" !( wm-menu -- wm-menu ) [ <- wm-menu-popup ]
|
|
|
|
} add-methods |