init-clipboard ( -- )

Vocabulary

ui.backend.gtk

Inputs

None

Outputs

None

Definition

USING: alien.strings gdk.ffi gtk.ffi io.encodings.utf8 kernel
namespaces ui.clipboards ;

IN: ui.backend.gtk

: init-clipboard ( -- )
    selection "PRIMARY" clipboard "CLIPBOARD" [
        utf8 string>alien
        gdk_atom_intern_static_string gtk_clipboard_get
        <gtk-clipboard> swap set-global
    ] 2bi@ ;