22 lines
676 B
Factor
22 lines
676 B
Factor
! 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 ;
|