set_active

procedure set_active(

  var a: TGtkCellRendererToggle;

  __active: guint

); overload;

procedure set_active(

  var a: TGtkToggleButton;

  __active: guint

); overload;

procedure set_active(

  var a: TGtkCheckMenuItem;

  __active: guint

); overload;

procedure set_active(

  var a: TGtkMenuShell;

  __active: guint

); overload;