From 2f9d091f38edeb5562830313ca1c4443b6e02b58 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= Date: Sat, 22 Jan 2022 18:25:52 +0100 Subject: M save.pl M save.pl~ --- save.pl | 4 +++- save.pl~ | 6 ++++-- 2 files changed, 7 insertions(+), 3 deletions(-) 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), 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). -- cgit v1.2.3