external
is_ancestor : [>
`
widget] obj
->
[>
`
widget] obj
->
bool
=
"ml_gtk_widget_is_ancestor"