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