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

---
 save.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'save.pl')

diff --git a/save.pl b/save.pl
index 47121fe..72b8dc9 100644
--- a/save.pl
+++ b/save.pl
@@ -2,6 +2,8 @@
 :- consult(library(pce)).
 :- consult(library(process)).
 
+:- pce_global(@dialog, new(dialog('Save'))).
+
 main :-
 	pce_main_loop(main).
 
@@ -19,7 +21,7 @@ Ensure Git is in PATH.').
 
 added(0) :-
 	%send(@pce, load_defaults, 'Defaults'),
-	new(D, dialog('Save')),
+	new(D, @dialog),
 
 	% File browser.
 	new(C, chain),
-- 
cgit v1.2.3