*
* File          CloseWindow
*
* Description   Saves all modified files and quits all
*               unmodified files.
*
*               Unconditionaly quits a file if it has a name
*               of '.directory'.
*
*               This has the effect of safely exiting the
*               editor.
*

def close-window = [do]
def close-window +   [if same] '.directory' [environment 113]
def close-window +     [execute] 'quit confirm'
def close-window +   [else]
def close-window +     [if modified]
def close-window +       [error 2] 'Saving file ...'
def close-window +       [execute key f3]
def close-window +     [else] [execute] 'quit' [end if]
def close-window +   [end if]
def close-window + [loop]