--------------------------------------------------------------------
--
-- twashapp.ads -- This package provides the Init function required
--                 in the call to Tk_Main.
--
-- Copyright (c) 1995-1996 Terry J. Westley
--
-- See the file "license.htm" for information on usage and
-- redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
--
--------------------------------------------------------------------

with Interfaces.C;
with Tcl; use Tcl;

package TWashApp is

   package C renames Interfaces.C;

   function Init (
      Interp : in Tcl_Interp) return C.Int;
   pragma Convention (C, Init);

end TWashApp;