diff options
| -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( |