sig
  val select_child : ([> `list ], Gtk.widget Gtk.obj -> unit) GtkSignal.t
  val selection_changed : ([> `list ], unit -> unit) GtkSignal.t
  val unselect_child : ([> `list ], Gtk.widget Gtk.obj -> unit) GtkSignal.t
end