23 lines
555 B
Factor
23 lines
555 B
Factor
IN: cocoa-pdfkit
|
|
USING: alien cocoa compiler errors io kernel math objc
|
|
objc-NSObject objc-NSWindow objc-PDFDocument objc-PDFView ;
|
|
|
|
: <PDFDocument> ( url -- document )
|
|
<CFURL> [autorelease]
|
|
PDFDocument [alloc] swap [initWithURL:] [autorelease] ;
|
|
|
|
: <PDFView> ( document -- view )
|
|
PDFView [alloc] 0 0 500 500 <NSRect> [initWithFrame:]
|
|
[ swap [setDocument:] ] keep ;
|
|
|
|
"PDFKit demo" 10 10 500 500 <NSRect> <NSWindow>
|
|
dup
|
|
|
|
"http://factorcode.org/handbook.pdf" <PDFDocument> <PDFView>
|
|
|
|
[setContentView:]
|
|
|
|
f [makeKeyAndOrderFront:]
|
|
|
|
event-loop
|