let cancel = { GtkSignal.name = "cancel" ; GtkSignal.classe = `druid ; GtkSignal.marshaller = GtkSignal.marshal_unit }