@yuneta/gobj-ui 7.25.15 → 7.25.16

package/dist/gobj-ui.es.js

@@ -3432,8 +3432,28 @@ function build_dialog(shell, message, buttons, opts) {
 		if ($primary) $primary.focus();
 	});
 }
+/***************************************************************
+*  The labels a confirmation shows when the caller names none.
+*
+*  They are i18n KEYS, lower-case like every key: a button
+*  translates its label with the app's t() -- its text, its title
+*  and its aria-label. Until 7.25.16 they were "OK", "Yes", "No",
+*  "Delete" and "Cancel", keys that no locale carries, so a dialog
+*  that took the defaults read in English in every language.
+*
+*  Written as `i18n:` entries so the validate-locales script of a
+*  consumer finds them when it scans this module: an app that
+*  mounts these dialogs must define the five keys.
+***************************************************************/
+var DEFAULT_LABEL = Object.freeze({
+	ok: Object.freeze({ i18n: "ok" }),
+	yes: Object.freeze({ i18n: "yes" }),
+	no: Object.freeze({ i18n: "no" }),
+	delete: Object.freeze({ i18n: "delete" }),
+	cancel: Object.freeze({ i18n: "cancel" })
+});
 function yui_shell_confirm_ok(shell, message, opts) {
-	let label = opts && opts.ok_label || "OK";
+	let label = opts && opts.ok_label || DEFAULT_LABEL.ok.i18n;
 	if (!opts || !opts.type) opts = Object.assign({}, opts, { type: "success" });
 	return build_dialog(shell, message, [{
 		label,
@@ -3442,8 +3462,8 @@ function yui_shell_confirm_ok(shell, message, opts) {
 	}], opts).then(() => void 0);
 }
 function yui_shell_confirm_yesno(shell, message, opts) {
-	let yes_label = opts && opts.yes_label || "Yes";
-	let no_label = opts && opts.no_label || "No";
+	let yes_label = opts && opts.yes_label || DEFAULT_LABEL.yes.i18n;
+	let no_label = opts && opts.no_label || DEFAULT_LABEL.no.i18n;
 	return build_dialog(shell, message, [{
 		label: yes_label,
 		value: "yes",
@@ -3468,8 +3488,8 @@ function yui_shell_confirm_yesno(shell, message, opts) {
 *  pressed.
 ***************************************************************/
 function yui_shell_confirm_danger(shell, message, opts) {
-	let confirm_label = opts && opts.confirm_label || "Delete";
-	let cancel_label = opts && opts.cancel_label || "Cancel";
+	let confirm_label = opts && opts.confirm_label || DEFAULT_LABEL.delete.i18n;
+	let cancel_label = opts && opts.cancel_label || DEFAULT_LABEL.cancel.i18n;
 	if (!opts || !opts.type) opts = Object.assign({}, opts, { type: "danger" });
 	return build_dialog(shell, message, [{
 		label: confirm_label,
@@ -3481,9 +3501,9 @@ function yui_shell_confirm_danger(shell, message, opts) {
 	}], opts).then((v) => v === "confirm");
 }
 function yui_shell_confirm_yesnocancel(shell, message, opts) {
-	let yes_label = opts && opts.yes_label || "Yes";
-	let no_label = opts && opts.no_label || "No";
-	let cancel_label = opts && opts.cancel_label || "Cancel";
+	let yes_label = opts && opts.yes_label || DEFAULT_LABEL.yes.i18n;
+	let no_label = opts && opts.no_label || DEFAULT_LABEL.no.i18n;
+	let cancel_label = opts && opts.cancel_label || DEFAULT_LABEL.cancel.i18n;
 	return build_dialog(shell, message, [
 		{
 			label: yes_label,
@@ -59227,6 +59247,7 @@ var PRIVATE_DATA$4 = {
 	__graphs__: [],
 	_graph_properties: {},
 	_saved_graph_properties: {},
+	_graphs_writes_owed: {},
 	yet_showed: false,
 	edit_mode: false,
 	operation_mode: null,
@@ -60922,6 +60943,7 @@ function save_topic_graph_properties(gobj, topic_name) {
 	if (!topic_arrangement_changed(properties, priv._saved_graph_properties[topic_name])) return;
 	properties.__origin__ = gobj_read_str_attr(gobj_yuno(), "node_uuid");
 	priv._saved_graph_properties[topic_name] = json_deep_copy(properties);
+	delete priv._graphs_writes_owed[topic_name];
 	let kw_update = {
 		treedb_name: priv.treedb_name,
 		topic_name: "__graphs__",
@@ -61003,8 +61025,13 @@ function update_history_buttons(gobj) {
 			} else {
 				disableElements($container, ".EV_HISTORY_UNDO");
 				set_active_state($container, ".EV_HISTORY_UNDO", false);
-				disableElements($container, ".EV_SAVE_GRAPH");
-				set_submit_state($container, ".EV_SAVE_GRAPH", false);
+				if (graphs_write_is_owed(gobj)) {
+					enableElements($container, ".EV_SAVE_GRAPH");
+					set_submit_state($container, ".EV_SAVE_GRAPH", true);
+				} else {
+					disableElements($container, ".EV_SAVE_GRAPH");
+					set_submit_state($container, ".EV_SAVE_GRAPH", false);
+				}
 			}
 		} else {
 			disableElements($container, ".EV_HISTORY_REDO");
@@ -61961,6 +61988,15 @@ function run_preview_undo(gobj, key) {
 		log_error(`${gobj_short_name(gobj)}: cannot undo the preview: ${e}`);
 	}
 }
+/************************************************************
+*  Is a `__graphs__` write owed? The host said one did not land
+*  (EV_GRAPHS_WRITE_REFUSED), and no Save has written that topic
+*  since. The Save button stays lit while it is: the history
+*  knows nothing of it, so `canUndo()` alone would put it out.
+************************************************************/
+function graphs_write_is_owed(gobj) {
+	return Object.keys(gobj.priv._graphs_writes_owed).length > 0;
+}
 function mark_graph_dirty(gobj) {
 	let $container = gobj_read_attr(gobj, "$container");
 	enableElements($container, ".EV_SAVE_GRAPH");
@@ -65701,6 +65737,7 @@ function ac_clear_data(gobj, event, kw, src) {
 	deselect_node(gobj);
 	hide_create_popover(gobj);
 	gobj_write_attr(gobj, "records", {});
+	priv._graphs_writes_owed = {};
 	priv._nodes_total = 0;
 	priv._nodes_placed = 0;
 	priv._fold_model = null;
@@ -65793,11 +65830,9 @@ function ac_save_graph(gobj, event, kw, src) {
 		disableElements($container, ".EV_SAVE_GRAPH");
 		set_submit_state($container, ".EV_SAVE_GRAPH", false);
 		let history = graph_get_plugin(gobj, "history");
-		if (history) {
-			history.clear();
-			update_history_buttons(gobj);
-		}
+		if (history) history.clear();
 		save_geometry(gobj);
+		update_history_buttons(gobj);
 	}
 	return 0;
 }
@@ -65820,6 +65855,7 @@ function ac_graphs_write_refused(gobj, event, kw, src) {
 	}
 	log_warning(`${gobj_short_name(gobj)}: the arrangement of '${topic_name}' was not saved: the next Save writes it again`);
 	forget_refused_graphs_write(priv._saved_graph_properties, topic_name);
+	priv._graphs_writes_owed[topic_name] = true;
 	if (priv.edit_mode) mark_graph_dirty(gobj);
 	return 0;
 }
@@ -72329,6 +72365,8 @@ var PRIVATE_DATA$1 = {
 	dropped_round: 0,
 	dropped_write: 0,
 	reload_after_write: false,
+	refresh_after_write: false,
+	reopen_form: null,
 	pending_seg: null,
 	import_plan: null,
 	import_pane: null,
@@ -72534,14 +72572,61 @@ function owes_reload(gobj) {
 	let state = gobj_current_state(gobj);
 	return gobj.priv.reload_on_open && transport_in_session(gobj) && state !== "ST_LOADING" && state !== "ST_SAVING";
 }
-function reload_first(gobj, event) {
+function reload_first(gobj, event, reopen) {
+	let priv = gobj.priv;
 	if (!owes_reload(gobj)) return false;
-	gobj.priv.reload_on_open = false;
+	priv.reload_on_open = false;
+	if (reopen && priv.dialog) {
+		priv.reopen_form = Object.assign(json_deep_copy(reopen), {
+			dialog: priv.dialog,
+			treedb_id: priv.treedb_id
+		});
+		log_warning(`${gobj_short_name(gobj)}: ${event} refused, the schemas shown may be out of date: they are read again first, and the form opens again on them with its changes`);
+		yui_shell_show_error(yui_shell_of(gobj), "the schemas shown may be out of date: they are read again, and the form opens again on them with your changes", { t });
+		request_model(gobj, true);
+		return true;
+	}
 	log_warning(`${gobj_short_name(gobj)}: ${event} refused, the schemas shown may be out of date: they are read again first`);
 	yui_shell_show_error(yui_shell_of(gobj), "the schemas shown may be out of date: they are read again, try again when they are in", { t });
 	request_model(gobj, true);
 	return true;
 }
+/***************************************************************
+*  The form reload_first() took down, opened again on the model
+*  the load just made, with the operator's changes on top.
+*
+*  Only where it can mean the same thing: on the treedb it was
+*  opened on, on the screen whose Save it has, and on a record
+*  that is still there. Otherwise it is not opened, and that is
+*  said -- a form opened on another treedb, or on nothing, would
+*  save somewhere the operator never meant.
+***************************************************************/
+function reopen_form(gobj, r) {
+	let priv = gobj.priv;
+	let state = gobj_current_state(gobj);
+	let treedb = current_treedb(gobj);
+	let topic = null;
+	let col = null;
+	let fits = false;
+	if (treedb && r.treedb_id === priv.treedb_id) {
+		if (r.form === "column" && state === "ST_COLUMNS") {
+			topic = find_topic(priv.model, priv.treedb_id, r.topic);
+			col = topic && !r.creating ? find_col(priv.model, priv.treedb_id, r.topic, r.col) : null;
+			fits = !!topic && (r.creating || !!col);
+		} else if (r.form === "topic" && state === "ST_TOPICS") {
+			topic = r.creating ? null : find_topic(priv.model, priv.treedb_id, r.topic);
+			fits = r.creating || !!topic;
+		}
+	}
+	if (!fits) {
+		log_warning(`${gobj_short_name(gobj)}: the ${r.form} form was not opened again: what it edited is not on the schemas the reload read (${r.treedb_id} ${r.topic}${r.col ? "." + r.col : ""}, now ${state})`);
+		yui_shell_show_error(yui_shell_of(gobj), "the schemas were read again and what the form was editing is not there any more", { t });
+		return -1;
+	}
+	if (r.form === "column") open_column_form(gobj, topic, col, null, r.changed);
+	else open_topic_form(gobj, treedb, topic, r.changed);
+	return 0;
+}
 function reload_after_move(gobj) {
 	if (!owes_reload(gobj)) return 0;
 	gobj.priv.reload_on_open = false;
@@ -72687,7 +72772,7 @@ function build_model(gobj) {
 *  measurement of "changed since" can be measured against.
 *
 *  `written` is forgotten only by an EV_REFRESH (the view's own
-*  Refresh button, or a host that sends one). Since M36 a write moves no
+*  Refresh button, or a host that sends one). Since 7.23.196 a write moves no
 *  version, so `written` is the draft chip of what this session
 *  wrote and no longer half of a version measurement: a reload of
 *  the reconnect, or of a write that turned out done, forgot the
@@ -73965,6 +74050,55 @@ function read_form($root) {
 	return out;
 }
 /***************************************************************
+*  A column form as its Save sends it: the fields and the flags.
+***************************************************************/
+function column_form_state($form) {
+	let values = read_form($form);
+	values.flag = read_flags($form);
+	return values;
+}
+/***************************************************************
+*  The fields the operator CHANGED: those whose value is not the
+*  one the form was opened with.
+***************************************************************/
+function form_changes(initial, values) {
+	let changed = {};
+	for (let name of Object.keys(values)) if (JSON.stringify(values[name]) !== JSON.stringify(initial[name])) changed[name] = values[name];
+	return changed;
+}
+/***************************************************************
+*  Put changes back into a form just built (reopen_form()). The
+*  flags are drawn again for the type the changes leave, holding
+*  the flags they name, so none of them is hidden by the type.
+***************************************************************/
+function apply_form_changes(gobj, $form, changes) {
+	for (let name of Object.keys(changes)) {
+		if (name === "flag") continue;
+		let $control = $form.querySelector(`[data-name="${name}"]`);
+		if (!$control) {
+			log_warning(`${gobj_short_name(gobj)}: a change of '${name}' has no field in the form opened again: not put back`);
+			continue;
+		}
+		if ($control.type === "checkbox") $control.checked = !!changes[name];
+		else $control.value = changes[name];
+	}
+	let $type = $form.querySelector("[data-name=\"type\"]");
+	if ($type && $form.querySelector(".SCHEMA_FLAGS")) {
+		let flags = Array.isArray(changes.flag) ? changes.flag : read_flags($form);
+		redraw_flags(gobj, $form, $type.value, flags);
+	}
+}
+/***************************************************************
+*  Draw the flags of a column form again, for `type`, with
+*  `current` checked.
+***************************************************************/
+function redraw_flags(gobj, $form, type, current) {
+	let $holder = $form.querySelector(".SCHEMA_FLAGS");
+	let $new = createElement2(flags_field(gobj, type, current));
+	$holder.parentNode.replaceChild($new, $holder);
+	refresh_language($new, t);
+}
+/***************************************************************
 *  The flags of a column, as checkboxes that say what they do.
 *
 *  Grouped the way they act, greyed when they are meaningless on
@@ -74038,7 +74172,7 @@ function read_flags($root) {
 *  Offering a field that silently does something else is worse
 *  than not offering it.
 ***************************************************************/
-function open_column_form(gobj, topic, col, prefill) {
+function open_column_form(gobj, topic, col, prefill, changes) {
 	let priv = gobj.priv;
 	let record = prefill || col && col.record || {};
 	let creating = !col;
@@ -74142,11 +74276,7 @@ function open_column_form(gobj, topic, col, prefill) {
 	]);
 	let $type = $form.querySelector("[data-name=\"type\"]");
 	$type.addEventListener("change", () => {
-		let $holder = $form.querySelector(".SCHEMA_FLAGS");
-		let current = read_flags($form);
-		let $new = createElement2(flags_field(gobj, $type.value, current));
-		$holder.parentNode.replaceChild($new, $holder);
-		refresh_language($new, t);
+		redraw_flags(gobj, $form, $type.value, read_flags($form));
 	});
 	$form.addEventListener("change", (evt) => {
 		let $box = evt.target.closest(".SCHEMA_FLAG_BOX");
@@ -74158,15 +74288,17 @@ function open_column_form(gobj, topic, col, prefill) {
 		evt.stopPropagation();
 		close_dialog(gobj);
 	});
+	let initial = column_form_state($form);
+	if (changes) apply_form_changes(gobj, $form, changes);
 	$form.querySelector(".SCHEMA_COL_FORM_SAVE").addEventListener("click", (evt) => {
 		evt.stopPropagation();
-		let values = read_form($form);
-		values.flag = read_flags($form);
+		let values = column_form_state($form);
 		gobj_send_event(gobj, "EV_SAVE_COLUMN", {
 			topic: topic.name,
 			col: creating ? "" : col.name,
 			creating,
 			values,
+			changed: creating ? values : form_changes(initial, values),
 			model_gen
 		}, gobj);
 	});
@@ -74186,7 +74318,7 @@ function stringify_field(value) {
 *  actually has: a pkey naming no column is a topic that does
 *  not open, and it is the first thing the validator looks for.
 ***************************************************************/
-function open_topic_form(gobj, treedb, topic) {
+function open_topic_form(gobj, treedb, topic, changes) {
 	let record = topic && topic.record || {};
 	let creating = !topic;
 	let col_names = topic ? topic.cols.map((c) => c.name) : [];
@@ -74281,12 +74413,16 @@ function open_topic_form(gobj, treedb, topic) {
 		evt.stopPropagation();
 		close_dialog(gobj);
 	});
+	let initial = read_form($form);
+	if (changes) apply_form_changes(gobj, $form, changes);
 	$form.querySelector(".SCHEMA_TOPIC_FORM_SAVE").addEventListener("click", (evt) => {
 		evt.stopPropagation();
+		let values = read_form($form);
 		gobj_send_event(gobj, "EV_SAVE_TOPIC", {
 			topic: creating ? "" : topic.name,
 			creating,
-			values: read_form($form),
+			values,
+			changed: creating ? values : form_changes(initial, values),
 			model_gen
 		}, gobj);
 	});
@@ -75056,20 +75192,28 @@ function transport_dropped(gobj) {
 function end_load(gobj) {
 	let priv = gobj.priv;
 	let seg = priv.pending_seg;
+	let reopen = priv.reopen_form;
 	priv.pending_seg = null;
+	priv.reopen_form = null;
 	if (priv.dialog && priv.dialog_gen !== priv.model_gen) {
-		log_warning(`${gobj_short_name(gobj)}: a dialog was open on the schemas the load replaced: closed`);
+		if (!reopen || reopen.dialog !== priv.dialog) {
+			reopen = null;
+			log_warning(`${gobj_short_name(gobj)}: a dialog was open on the schemas the load replaced: closed`);
+			yui_shell_show_error(yui_shell_of(gobj), "the schemas were read again: open the dialog again", { t });
+		}
 		close_dialog(gobj);
-		yui_shell_show_error(yui_shell_of(gobj), "the schemas were read again: open the dialog again", { t });
-	}
+	} else reopen = null;
+	let ret = 0;
 	if (priv.model) {
-		if (seg !== null) return apply_seg(gobj, seg);
-		return go(gobj, priv.treedb_id, priv.topic_name, priv.diagram, false);
+		if (seg !== null) ret = apply_seg(gobj, seg);
+		else ret = go(gobj, priv.treedb_id, priv.topic_name, priv.diagram, false);
+	} else {
+		if (seg !== null) adopt_seg(gobj, seg);
+		gobj_change_state(gobj, "ST_IDLE");
+		render(gobj);
 	}
-	if (seg !== null) adopt_seg(gobj, seg);
-	gobj_change_state(gobj, "ST_IDLE");
-	render(gobj);
-	return 0;
+	if (reopen) reopen_form(gobj, reopen);
+	return ret;
 }
 /***************************************************************
 *  The queue is done, or gave up. Either way the model is what
@@ -75094,7 +75238,11 @@ function end_writes(gobj, error) {
 		render(gobj);
 		publish_check(gobj);
 	}
-	reload_if_owed(gobj);
+	if (priv.refresh_after_write) {
+		priv.refresh_after_write = false;
+		priv.reload_after_write = false;
+		request_model(gobj, false);
+	} else reload_if_owed(gobj);
 	return error ? -1 : 0;
 }
 /***************************************************************
@@ -75375,7 +75523,9 @@ function ac_mt_command_answer(gobj, event, kw, src) {
 				priv.save_return = "";
 				priv.save_wrote = false;
 				gobj_publish_event(gobj, "EV_RECORD_WRITTEN", { treedb_name: gobj_read_str_attr(gobj, "treedb_name") });
-				request_model(gobj, true);
+				let refresh = priv.refresh_after_write;
+				priv.refresh_after_write = false;
+				request_model(gobj, !refresh);
 				return 0;
 			}
 		}
@@ -75522,6 +75672,21 @@ function ac_refresh$1(gobj, event, kw, src) {
 	return request_model(gobj, false);
 }
 /***************************************************************
+*  EV_REFRESH while writes are in flight: the view's own Refresh
+*  is busy then, so it is a host's (after a Save, say).
+*
+*  Run when the writes END (end_writes()), not now. Run now, the
+*  load replaced ST_SAVING and what was still queued was never
+*  sent, with no word: nothing but the end of what is in flight
+*  moves this view out of ST_LOADING or ST_SAVING.
+***************************************************************/
+function ac_refresh_after_the_writes(gobj, event, kw, src) {
+	let priv = gobj.priv;
+	log_warning(`${gobj_short_name(gobj)}: ${event} while writes are in flight: the schemas are read again when the writes end`);
+	priv.refresh_after_write = true;
+	return 0;
+}
+/***************************************************************
 *  What a DIALOG sends while the model is being read again: the
 *  Save of a form left open when the reload started, a
 *  confirmation, an import. The loading screen took the rest of
@@ -75696,7 +75861,13 @@ function ac_save_column(gobj, event, kw, src) {
 	let topic = find_topic(priv.model, priv.treedb_id, kw.topic);
 	let col = kw.creating ? null : find_col(priv.model, priv.treedb_id, kw.topic, kw.col);
 	if (refuse_if_readonly(gobj, event)) return -1;
-	if (reload_first(gobj, event)) return -1;
+	if (reload_first(gobj, event, {
+		form: "column",
+		topic: kw.topic,
+		col: kw.col,
+		creating: !!kw.creating,
+		changed: kw.changed || {}
+	})) return -1;
 	if (built_on_a_replaced_model(gobj, event, kw)) return -1;
 	if (!topic || !kw.creating && !col) {
 		log_error(`${gobj_short_name(gobj)}: ${event} names no column: ${kw.topic}.${kw.col}`);
@@ -75824,7 +75995,13 @@ function ac_save_topic(gobj, event, kw, src) {
 	let treedb = current_treedb(gobj);
 	let topic = kw.creating ? null : find_topic(priv.model, priv.treedb_id, kw.topic);
 	if (refuse_if_readonly(gobj, event)) return -1;
-	if (reload_first(gobj, event)) return -1;
+	if (reload_first(gobj, event, {
+		form: "topic",
+		topic: kw.topic,
+		col: "",
+		creating: !!kw.creating,
+		changed: kw.changed || {}
+	})) return -1;
 	if (built_on_a_replaced_model(gobj, event, kw)) return -1;
 	if (!treedb || !kw.creating && !topic) {
 		log_error(`${gobj_short_name(gobj)}: ${event} names no topic: ${kw.topic}`);
@@ -76287,7 +76464,11 @@ function create_gclass$1(gclass_name) {
 				null
 			]
 		])],
-		["ST_SAVING", COMMON.slice()]
+		["ST_SAVING", COMMON.filter((a) => a[0] !== "EV_REFRESH").concat([[
+			"EV_REFRESH",
+			ac_refresh_after_the_writes,
+			null
+		]])]
 	];
 	const event_types = [
 		["EV_MT_COMMAND_ANSWER", event_flag_t.EVF_PUBLIC_EVENT],

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@yuneta/gobj-ui",
-  "version": "7.25.15",
+  "version": "7.25.16",
   "type": "module",
   "main": "dist/gobj-ui.cjs.js",
   "module": "dist/gobj-ui.es.js",
@@ -30,7 +30,7 @@
   "devDependencies": {
     "@rollup/plugin-terser": "^1.0.0",
     "@vitest/coverage-v8": "^4.1.10",
-    "@yuneta/gobj-js": "^7.22.2",
+    "@yuneta/gobj-js": "^7.25.2",
     "vite": "^8.2.1",
     "vitest": "^4.1.10"
   },

package/src/c_g6_nodes_tree.js

@@ -493,6 +493,7 @@ let PRIVATE_DATA = {
     __graphs__:         [],         // Rows of __graphs__
     _graph_properties:  {},         // topic_name → {nodes: {node_id: {x,y,size,...}}}
     _saved_graph_properties: {},    // the same, as the BACKEND has it: what a Save compares against
+    _graphs_writes_owed: {},        // topic_name → true: a __graphs__ write the host said did not land
     yet_showed:         false,
     edit_mode:          false,
     operation_mode:     null,
@@ -3283,6 +3284,9 @@ function save_topic_graph_properties(gobj, topic_name)
      *  The host says when one does NOT land (EV_GRAPHS_WRITE_REFUSED),
      *  and the next Save writes the topic again.  */
     priv._saved_graph_properties[topic_name] = json_deep_copy(properties);
+    /*  Paid: this is the write that was owed, if one was. Refused
+     *  again, EV_GRAPHS_WRITE_REFUSED owes it again.  */
+    delete priv._graphs_writes_owed[topic_name];
 
     let kw_update = {
         treedb_name: priv.treedb_name,
@@ -3388,9 +3392,16 @@ function update_history_buttons(gobj)
                 disableElements($container, ".EV_HISTORY_UNDO");
                 set_active_state($container, ".EV_HISTORY_UNDO", false);
 
-                // No more undos: graph is back to original state, disable save
-                disableElements($container, ".EV_SAVE_GRAPH");
-                set_submit_state($container, ".EV_SAVE_GRAPH", false);
+                /*  No more undos: the graph is back to what was loaded
+                 *  or saved -- unless a write of it did not land. That
+                 *  one is still owed, and only a Save pays it.  */
+                if(graphs_write_is_owed(gobj)) {
+                    enableElements($container, ".EV_SAVE_GRAPH");
+                    set_submit_state($container, ".EV_SAVE_GRAPH", true);
+                } else {
+                    disableElements($container, ".EV_SAVE_GRAPH");
+                    set_submit_state($container, ".EV_SAVE_GRAPH", false);
+                }
             }
         } else {
             disableElements($container, ".EV_HISTORY_REDO");
@@ -4763,6 +4774,17 @@ function run_preview_undo(gobj, key)
     }
 }
 
+/************************************************************
+ *  Is a `__graphs__` write owed? The host said one did not land
+ *  (EV_GRAPHS_WRITE_REFUSED), and no Save has written that topic
+ *  since. The Save button stays lit while it is: the history
+ *  knows nothing of it, so `canUndo()` alone would put it out.
+ ************************************************************/
+function graphs_write_is_owed(gobj)
+{
+    return Object.keys(gobj.priv._graphs_writes_owed).length > 0;
+}
+
 function mark_graph_dirty(gobj)
 {
     let $container = gobj_read_attr(gobj, "$container");
@@ -10346,6 +10368,11 @@ function ac_clear_data(gobj, event, kw, src)
 
     gobj_write_attr(gobj, "records", {});
 
+    /*  A write owed is owed on the arrangement being thrown away: the
+     *  reload brings what the backend holds, and that is what the view
+     *  will hold.  */
+    priv._graphs_writes_owed = {};
+
     /*  The node counters belong to the data that is going away: a refresh
      *  that kept them would decide the layout on the previous treedb. */
     priv._nodes_total = 0;
@@ -10495,10 +10522,13 @@ function ac_save_graph(gobj, event, kw, src)
         let history = graph_get_plugin(gobj, "history");
         if(history) {
             history.clear();
-            update_history_buttons(gobj);
         }
 
         save_geometry(gobj); // Publish an EV_UPDATE_NODE of each node
+
+        /*  After the writes: they pay a write owed, and the buttons
+         *  are repainted from what is still owed.  */
+        update_history_buttons(gobj);
     }
 
     return 0;
@@ -10526,6 +10556,9 @@ function ac_graphs_write_refused(gobj, event, kw, src)
     log_warning(`${gobj_short_name(gobj)}: the arrangement of '${topic_name}' ` +
         `was not saved: the next Save writes it again`);
     forget_refused_graphs_write(priv._saved_graph_properties, topic_name);
+    /*  Owed until a Save writes it: update_history_buttons() keeps
+     *  the Save lit while it is, in edition and on entering it.  */
+    priv._graphs_writes_owed[topic_name] = true;
     if(priv.edit_mode) {
         mark_graph_dirty(gobj);
     }