 
 : key-down-event>gesture ( event world -- string gesture )
     dupd
-    handle>> x11-handle-xic lookup-string
+    handle>> xic>> lookup-string
     >r swap event-modifiers r> key-code <key-down> ;
 
 M: world key-down-event


M: world focus-in-event
    nip
    dup handle>> x11-handle-xic XSetICFocus focus-world ;

M: world focus-out-event
    nip
    dup handle>> x11-handle-xic XUnsetICFocus unfocus-world ;

M: world selection-notify-event
    [ handle>> x11-handle-window selection-from-event ] keep
    world-focus user-input ;

: supported-type? ( atom -- ? )

    } cond ;

M: x11-ui-backend (close-window) ( handle -- )
    dup xic>> XDestroyIC
    dup glx>> destroy-glx
    window>> dup unregister-window
    destroy-window ;

M: world client-event
