summaryrefslogtreecommitdiff
path: root/save.pl
diff options
context:
space:
mode:
authorJohn Ankarström <john@ankarstrom.se>2022-01-22 19:06:51 +0100
committerJohn Ankarström <john@ankarstrom.se>2022-01-22 19:06:51 +0100
commit2f5f23782b77f1f5bf31cc5504e02984336a3aba (patch)
tree864aa83a46d3a6974a101f1864d156909927e8ec /save.pl
parent87b88e85360a2ce8cbb1a0ba9acbe70c90058f87 (diff)
downloadsave-2f5f23782b77f1f5bf31cc5504e02984336a3aba.tar.gz
M save.exe
M save.pl M save.pl~
Diffstat (limited to 'save.pl')
-rw-r--r--save.pl11
1 files changed, 7 insertions, 4 deletions
diff --git a/save.pl b/save.pl
index a12f6a1..a387f9a 100644
--- a/save.pl
+++ b/save.pl
@@ -2,6 +2,9 @@
:- consult(library(pce)).
:- consult(library(process)).
+:- op(920,fy, *).
+*_.
+
:- pce_begin_class(save_dialog, dialog).
unlink(D) :->
@@ -41,7 +44,7 @@ added(0) :-
% Right side.
send(@file_browser, right, @dialog),
- send(@commit_browser, right, @dialog),
+ *send(@commit_browser, right, @dialog),
refresh,
% Left side.
@@ -57,9 +60,9 @@ refresh :-
send(@files, clear),
status(@files),
send(@file_browser, members(@files)),
- send(@commits, clear),
- log(@commits),
- send(@commit_browser, members(@commits)).
+ *send(@commits, clear),
+ *log(@commits),
+ *send(@commit_browser, members(@commits)).
status(C) :-
setup_call_cleanup(