object
  val virtual obj : [> `sourcemark ] Gobject.obj
  method category : string option
end