class CFPropertyList::Binary

def dict_to_binary(val)
  saved_object_count = @written_object_count
  @written_object_count += 1
  keys_and_values = val.value.collect do |k, v|
    [ CFString.new(k).to_binary(self), v.to_binary(self) ]
  end.flatten      
  bdata = Binary.type_bytes(0b1101,val.value.size) +
    Binary.pack_int_array_with_size(@object_ref_size, keys_and_values)
  @object_table[saved_object_count] = bdata
  return saved_object_count
end