external get_flags : [>`gtk] obj -> int = "ml_GTK_OBJECT_FLAGS"