From 41d41d7a970760ace88f13539a3969c85c351d8c Mon Sep 17 00:00:00 2001 From: Johannes Hofmann Date: Mon, 21 May 2007 17:14:17 +0200 Subject: ask before overwriting profiles --- src/GipfelWidget.cxx | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'src/GipfelWidget.cxx') diff --git a/src/GipfelWidget.cxx b/src/GipfelWidget.cxx index a8efa97..2127e64 100644 --- a/src/GipfelWidget.cxx +++ b/src/GipfelWidget.cxx @@ -807,9 +807,15 @@ GipfelWidget::load_distortion_params(const char *prof_name) { } int -GipfelWidget::save_distortion_params(const char *prof_name) { +GipfelWidget::save_distortion_params(const char *prof_name, int force) { + int dummy; Fl_Preferences prof(dist_prefs, prof_name); + + if (!force && (prof.get("k0", dummy, 0) == 0)) { + return 1; + } + prof.set("k0", pan->parms.k0); prof.set("k1", pan->parms.k1); -- cgit v1.2.3