Ken Shmidheiser wrote:


>> IconFamilyHandle NewIconFamilyHandle()
>> {
>>      IconFamilyHandle    icns = (IconFamilyHandle) NewHandle( 8 );
>>
>>      if ( icns )
>>      {
>>          ( **icns ).resourceType = kIconFamilyType;
>>          ( **icns ).resourceSize = 8;
>>      }
>>
>>      return icns;
>> }
>>


include "Tlbx Icons.incl"

local mode
local fn NewIconFamilyHandle
'~'1
dim icns as ^^IconFamilyResource

icns = fn NewHandle( 8 )
long if ( icns )
icns..resourceType = _kIconFamilyType
icns..resourceSize = 8
end if

end fn = icns




Robert P.