let simple_edit
    ?(apply=(fun () -> ()))
    title ?width ?height
    param_list = Configwin_ihm.simple_edit ~with_apply: true ~apply title ?width ?height param_list