set_have_grab

procedure set_have_grab(

  var a: TGtkMenuShell;

  __have_grab: guint

); overload;

procedure set_have_grab(

  var a: TGtkTooltips;

  __have_grab: guint

); overload;