clipboard-contents ( clipboard -- string )
Factor handbook » UI framework » Implementing new gadgets » Clipboard protocol

Prev:	copy-clipboard ( string gadget clipboard -- )
Next:	set-clipboard-contents ( string clipboard -- )

Vocabulary
ui.clipboards

Inputs

clipboard

an object

Outputs

string

an object

Definition

IN: ui.clipboards

GENERIC: clipboard-contents ( clipboard -- string )

Methods

USING: accessors ui.clipboards ;

M: clipboard clipboard-contents contents>> ;


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 cocoa.pasteboard ui.backend.cocoa ui.clipboards
;

M: pasteboard clipboard-contents handle>> pasteboard-string ;