From 4c5f69a4cf721f1e3d49346ed0fdb1faea7977c3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Sat, 22 Jan 2022 18:26:02 +0100
Subject: M  save.pl M  save.pl~

---
 save.pl  | 2 +-
 save.pl~ | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/save.pl b/save.pl
index 72b8dc9..ab73aea 100644
--- a/save.pl
+++ b/save.pl
@@ -97,4 +97,4 @@ commited(S) :-
 	     'Files could not be saved.').
 
 commited(_) :-
-	send(@pce, destroy).
+	send(@dialog, destroy).
diff --git a/save.pl~ b/save.pl~
index 52e5a92..72b8dc9 100644
--- a/save.pl~
+++ b/save.pl~
@@ -2,7 +2,7 @@
 :- consult(library(pce)).
 :- consult(library(process)).
 
-:- pce_global(@dialog, new(dialog, 'Save')).
+:- pce_global(@dialog, new(dialog('Save'))).
 
 main :-
 	pce_main_loop(main).
-- 
cgit v1.2.3