sig
  val name : ('a, string) Gobject.property
  val sensitive : ('a, bool) Gobject.property
  val visible : ('a, bool) Gobject.property
end