diff options
| author | John Ankarström <john@ankarstrom.se> | 2022-01-22 18:40:57 +0100 |
|---|---|---|
| committer | John Ankarström <john@ankarstrom.se> | 2022-01-22 18:40:57 +0100 |
| commit | 90c0c874a58993a278c0841588a9a5dd8ed5212d (patch) | |
| tree | dc262864ded6f65ef73b5d5c391e2b1123526d5a /save.pl | |
| parent | 960418c239da83786f09846639b0cdd2e064aae5 (diff) | |
| download | save-90c0c874a58993a278c0841588a9a5dd8ed5212d.tar.gz | |
M save.pl
M save.pl~
Diffstat (limited to 'save.pl')
| -rw-r--r-- | save.pl | 11 |
1 files changed, 7 insertions, 4 deletions
@@ -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( |