method set_error_message = function
      None -> param#wl_error#set_text ""; param#wl_error#misc#hide ()
    |        Some s ->
          param#wl_error#set_text s ;
          param#wl_error#misc#show ()