! Copyright (C) 2006 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
IN: cocoa
USING: arrays kernel objc objc-classes sequences ;

: NSStringPboardType "NSStringPboardType" ;

: pasteboard-string? ( type id -- seq )
    NSStringPboardType swap -> types CF>string-array member? ;

: pasteboard-string ( id -- str )
    NSStringPboardType <NSString> -> stringForType:
    dup [ CF>string ] when ;

: set-pasteboard-types ( seq id -- )
    swap <NSArray> f -> declareTypes:owner: drop ;

: set-pasteboard-string ( str id -- )
    NSStringPboardType <NSString>
    dup 1array pick set-pasteboard-types
    >r swap <NSString> r> -> setString:forType: drop ;