diff options
| author | John Ankarström <john@ankarstrom.se> | 2022-01-22 18:25:52 +0100 |
|---|---|---|
| committer | John Ankarström <john@ankarstrom.se> | 2022-01-22 18:25:52 +0100 |
| commit | 2f9d091f38edeb5562830313ca1c4443b6e02b58 (patch) | |
| tree | 31cab0e233a71ee2a13574f6251a6345a5929a9c | |
| parent | 7628f46fe0b35eec8ae6d4045693ca3f9598819d (diff) | |
| download | save-2f9d091f38edeb5562830313ca1c4443b6e02b58.tar.gz | |
M save.pl
M save.pl~
| -rw-r--r-- | save.pl | 4 | ||||
| -rw-r--r-- | save.pl~ | 6 |
2 files changed, 7 insertions, 3 deletions
@@ -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), @@ -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). |