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 | |
| parent | 960418c239da83786f09846639b0cdd2e064aae5 (diff) | |
| download | save-90c0c874a58993a278c0841588a9a5dd8ed5212d.tar.gz | |
M save.pl
M save.pl~
| -rw-r--r-- | save.pl | 11 | ||||
| -rw-r--r-- | save.pl~ | 11 |
2 files changed, 14 insertions, 8 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( @@ -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, execute) + ; send(@save_button, sattus, active) + ). status(C) :- setup_call_cleanup( |