class CFPropertyList::Binary

def dict_to_binary(val)
  saved_object_count = @written_object_count
  @written_object_count += 1
  bdata = Binary.type_bytes("d",val.value.count) # d=1101, type indicator for dictionary
  val.value.each_key do |k|
    str = CFString.new(k)
    key = str.to_binary(self)
    bdata += Binary.pack_it_with_size(@object_ref_size,key)
  end
  val.value.each_value do |v|
    bdata += Binary.pack_it_with_size(@object_ref_size,v.to_binary(self))
  end
  @object_table[saved_object_count] = bdata
  return saved_object_count
end