--  2002-10-19
with Xm_Widgets;


package Xm_Utilities.Xm_Strings is


   ---------------------------------------------------------------------------
   --! <Subprogram>
   --!    <Unit> Append
   --!    <Purpose>
   --!    <Exceptions>
   ---------------------------------------------------------------------------
   procedure Append (Source   : in out Xm_Widgets.Xm_String;
                     New_Item : in     String);


   ---------------------------------------------------------------------------
   --! <Subprogram>
   --!    <Unit> Append
   --!    <Purpose>
   --!    <Exceptions>
   ---------------------------------------------------------------------------
   procedure Append (Source   : in out Xm_Widgets.Xm_String;
                     New_Item : in     Wide_String);


   ---------------------------------------------------------------------------
   --! <Subprogram>
   --!    <Unit> Append_Separator
   --!    <Purpose>
   --!    <Exceptions>
   ---------------------------------------------------------------------------
   procedure Append_Separator (Source : in out Xm_Widgets.Xm_String);


   ---------------------------------------------------------------------------
   --! <Subprogram>
   --!    <Unit> Append_Tab
   --!    <Purpose>
   --!    <Exceptions>
   ---------------------------------------------------------------------------
   procedure Append_Tab (Source : in out Xm_Widgets.Xm_String);


end Xm_Utilities.Xm_Strings;