Function getIconPicture(ref as integer, size as integer) as picture
#if targetCarbon
const kCarbon = "CarbonLib"
Declare Sub SetRect Lib kCarbon ( rect as Ptr, a as Integer, b as Integer,
c as Integer, d as Integer )
Declare Function NewGWorld Lib kCarbon ( offscreenGWorld as Ptr, depth as
Integer, rect as Ptr, cTable as Integer, aGDevice as Integer, flags as
Integer) as Integer
Declare Sub SetGWorld Lib kCarbon ( port as Ptr, gd as Integer )
Declare Function GetGWorldPixMap Lib kCarbon ( gWorld as Ptr ) as Ptr
Declare Sub LockPixels Lib kCarbon ( pix as Ptr )
Declare Sub EraseRect Lib kCarbon ( rect as Ptr )
Declare Function PlotIconRef Lib kCarbon ( rect as Ptr, align as Integer,
transform as Integer, usage as Integer, ref as Ptr ) as Integer
Declare Sub GetCPixel Lib kCarbon ( h as Integer, v as Integer, c as Ptr )
Declare Sub UnlockPixels Lib kCarbon ( pix as Ptr )
Declare Sub DisposeGWorld Lib kCarbon ( offscreenGWorld as Ptr )