TGtkCell

type TGtkCell = record

  thetype: TGtkCellType;

  vertical: gint16;

  horizontal: gint16;

  style: PGtkStyle;

  u: record

    case LongInt of

      0: (

          text: Pgchar;

        );

      1: (

          pm: record

            pixmap: PGdkPixmap;

            mask: PGdkBitMap;

          end;

        );

      2: (

          pt: record

            text: Pgchar;

            spacing: guint8;

            pixmap: PGdkPixmap;

            mask: PGdkBitMap;

          end;

        );

      3: (

          widget: PGtkWidget;

        );

  end;

end;