let simple_get = Configwin_ihm.simple_edit
    ~with_apply: false ~apply: (fun () -> ())