TGnomeDock

type TGnomeDock = record

  container: TGtkContainer;

  client_area: PGtkWidget;

  top_bands: PGList;

  bottom_bands: PGList;

  right_bands: PGList;

  left_bands: PGList;

  floating_children: PGList;

  client_rect: TGtkAllocation;

  flag0: Word;

end;