class CFPropertyList::Binary

def dict_to_binary(val)
  saved_object_count = @written_object_count
  @written_object_count += 1
  keys_and_values = val.value.keys.collect { |k| CFString.new(k).to_binary(self) }
  keys_and_values += val.value.keys.collect { |k| val.value[k].to_binary(self) }
  
  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