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

---
 save.pl | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

(limited to 'save.pl')

diff --git a/save.pl b/save.pl
index a793e06..18c5b57 100644
--- a/save.pl
+++ b/save.pl
@@ -15,9 +15,7 @@ unlink(D) :->
 :- pce_global(@editor, new(editor)).
 :- pce_global(@browser, new(browser)).
 :- pce_global(@save_button,
-	      new(button(save,
-			 message(@prolog, save),
-			 'RET'))).
+	      new(button(save, message(@prolog, save), 'RET'))).
 
 main :-
 	pce_main_loop(main).
@@ -54,7 +52,12 @@ added(0) :-
 refresh :-
 	send(@files, clear),
 	status(@files),
-	send(@browser, members(@files)).
+	send(@browser, members(@files)),
+	get(@files, size, L),
+	(   L > 0
+	->  send(@save_button, status, active)
+	;   send(@save_button, sattus, inactive)
+	).
 
 status(C) :-
 	setup_call_cleanup(
-- 
cgit v1.2.3