Source position: gtkmenu.inc line 97
procedure set_tearoff_active(
var a: TGtkMenu;
__tearoff_active: guint
);