with Claw.Dialog;
private package Claw.Low_Dialog is
    --
    -- CLAW - Class Library for Ada and Windows.
    --
    -- This package contains helper code for dialog boxes which use
    -- resources.
    --
    -- Copyright 1996, 1997  R.R. Software, Inc.
    -- P.O. Box 1512, Madison WI  53701
    -- All rights reserved.
    --

    pragma Elaborate_Body; -- Insure that the body is elaborated before anyone
	                   -- can call CLAW.

    procedure Make_Child_Controls (Dialog : in out Claw.Dialog.Root_Dialog_Type'Class);
	-- Make Claw objects for all child controls of Dialog (unless they
	-- already exist, or are not of a predefined control class).

    procedure Junk_Child_Controls (Dialog : in out Claw.Dialog.Root_Dialog_Type'Class);
	-- Junk the Claw objects made by Make_Child_Controls, but do not
	-- touch any user objects.  This routine does NOT destroy the controls
	-- themselves; this is presumably done when the dialog box is closed.
	-- This routine should only be called as part of destroying a modeless
	-- dialog box.

    procedure Junk_Child_Controls_for_Modal (Dialog : in out Claw.Dialog.Root_Dialog_Type'Class);
	-- Junk the Claw objects made by Make_Child_Controls, and destroy all
	-- other child controls as well.  This routine does NOT destroy the
	-- controls themselves; this is presumably has already been done
	-- when the dialog box was closed.  This routine should only be called
	-- as part of destroying a modal dialog box.

end Claw.Low_Dialog;