set_submenu_placement

procedure set_submenu_placement(

  var a: TGtkMenuItem;

  __submenu_placement: guint

); overload;

procedure set_submenu_placement(

  var a: TGtkMenuShellClass;

  __submenu_placement: guint

); overload;