sig val activate : ([> `action ], unit -> unit) GtkSignal.t end