Vocabulary
x11.xim

Inputs
classnamean object


Outputs
None

Definition


: init-xim ( classname -- )
dup "" (init-xim)
[ nip ] [
"@im=none" (init-xim)
[ "XOpenIM() failed" throw ] unless*
] if* xim set-global ;