<movie> ( filename -- movie )

Vocabulary

qtkit

Inputs

filename

an object

Outputs

movie

an object

Definition

USING: alien.c-types cocoa.application cocoa.classes
cocoa.messages cocoa.runtime kernel ;

IN: qtkit

: <movie> ( filename -- movie )
    QTMovie swap <NSString> f
    { id { id SEL id void* } } "movieWithFile:error:" send
    { id { id SEL } } "retain" send ;