--  2002-10-05
with X_Toolkit;


package Xm_Utilities.Protocols is

   ---------------------------------------------------------------------------
   --! <Subprogram>
   --!    <Unit> Add_WM_Delete_Window_Callback
   --!    <Purpose>
   --!    <Exceptions>
   ---------------------------------------------------------------------------
   procedure Add_WM_Delete_Window_Callback
    (Shell    : in X_Toolkit.Widget;
     Callback : in X_Toolkit.Xt_Callback_Proc;
     Closure  : in X_Toolkit.Xt_Pointer := X_Toolkit.Null_Xt_Pointer);

end Xm_Utilities.Protocols;