1 files changed, 4 insertions, 2 deletions
diff --git a/save.pl~ b/save.pl~
index 766efd8..52e5a92 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),
@@ -95,4 +97,4 @@ commited(S) :-
 	     'Files could not be saved.').
 
 commited(_) :-
-	halt.
+	send(@pce, destroy).