gtk2-clipboard

Vocabulary

ui.backend.gtk2

Definition

IN: ui.backend.gtk2

TUPLE: gtk2-clipboard handle ;

Methods

USING: accessors alien.strings destructors glib.ffi gtk2.ffi
io.encodings.utf8 kernel ui.backend.gtk2 ui.clipboards ;

M: gtk2-clipboard clipboard-contents
    [
        handle>> gtk_clipboard_wait_for_text
        [ &g_free utf8 alien>string ] [ f ] if*
    ] with-destructors ;


USING: accessors alien.strings gtk2.ffi io.encodings.utf8 kernel
sequences ui.backend.gtk2 ui.clipboards ;

M: gtk2-clipboard set-clipboard-contents
    swap
    [ handle>> ] [ [ 0 = ] trim-tail utf8 string>alien ] bi*
    -1 gtk_clipboard_set_text save-global-clipboard ;