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