22 lines
672 B
Factor
22 lines
672 B
Factor
|
! Copyright (C) 2006 Slava Pestov.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
IN: cocoa
|
||
|
|
USING: arrays kernel objc-NSPasteboard 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 ;
|