steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

images.cocoa: removing unused image loader code.

db4
John Benediktsson 2011-09-25 16:41:11 -07:00
parent c7e3238149
commit 645fb8ccd3
1 changed files with 0 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
basis/images/cocoa/cocoa.factor
View File

@ -20,36 +20,6 @@ os macosx? [
"ico" ns-image register-image-class "ico" ns-image register-image-class
] when ] when
CONSTANT: NSImageRepLoadStatusUnknownType -1
CONSTANT: NSImageRepLoadStatusReadingHeader -2
CONSTANT: NSImageRepLoadStatusWillNeedAllData -3
CONSTANT: NSImageRepLoadStatusInvalidData -4
CONSTANT: NSImageRepLoadStatusUnexpectedEOF -5
CONSTANT: NSImageRepLoadStatusCompleted -6
CONSTANT: NSColorRenderingIntentDefault 0
CONSTANT: NSColorRenderingIntentAbsoluteColorimetric 1
CONSTANT: NSColorRenderingIntentRelativeColorimetric 2
CONSTANT: NSColorRenderingIntentPerceptual 3
CONSTANT: NSColorRenderingIntentSaturation 4
ERROR: ns-image-unknown-type ;
ERROR: ns-image-invalid-data ;
ERROR: ns-image-unexpected-eof ;
ERROR: ns-image-planar-images-not-supported ;
<PRIVATE
: check-return ( n -- )
{
{ NSImageRepLoadStatusUnknownType [ ns-image-unknown-type ] }
{ NSImageRepLoadStatusInvalidData [ ns-image-invalid-data ] }
{ NSImageRepLoadStatusUnexpectedEOF [ ns-image-unexpected-eof ] }
[ drop ]
} case ;
PRIVATE>
: <CGImage> ( byte-array -- image-rep ) : <CGImage> ( byte-array -- image-rep )
[ NSBitmapImageRep ] dip [ NSBitmapImageRep ] dip
<CFData> -> autorelease <CFData> -> autorelease