----------------- Modeless Dialog Test -------
with Claw.Dialog.Modeless, Claw.Dialog;
with Claw; use Claw;

package Shape_Command is

    pragma Elaborate_Body;

    type Shape_Command_Type is new Claw.Dialog.Modeless.Modeless_Dialog_Type with private;

    procedure When_Child_Notify (Dialog  : in out Shape_Command_Type;
				 Code    : in Notification_Code_Type;
				 Data	 : in Notification_Data_Type'Class;
				 Control : in out Root_Control_Type'Class;
				 Unknown_Command : in out Boolean);

    --Procedure When_OK (Dialog		 : In Out Shape_Command_Type);
    -- Overrided function When_OK is allowed
    --Procedure When_Cancel (Dialog      : In Out Shape_Command_Type);
    -- Overrided function When_Cancel is allowed

    procedure Command_Shape (Window : in out CLAW.Root_Window_Type'Class;
			     Dialog_Object : in out Shape_Command_Type);

    procedure Destroy (Dialog	: in out Shape_Command_Type);

    procedure Finalize (Dialog	: in out Shape_Command_Type);

private

    type Shape_Command_Type is new Claw.Dialog.Modeless.Modeless_Dialog_Type with record
	My_Parent : Any_Window_Access_Type;
    end record;

end Shape_Command;