1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

    Procedure CloseAllViews
        Boolean bErr
        Handle hoView hoClient
        
        Get Client_Id to hoClient
        Get Next_Mdi_Dialog of hoClient True to hoView // find first
        
        While (hoView and not (bErr))
            Get Verify_Exit_Application of hoView to bErr
            
            If (not (bErr)) Begin
                Send Close_Panel of hoView
            End
            
            Get Next_Mdi_Dialog of hoClient False to hoView // find next
        Loop
        
    End_Procedure //CloseAllViews