package wx.Base.Strings is
   type String is new Ada.Finalization.Controlled with private;

   procedure Initialize(Self : in out String);
   procedure Finalize(Self : in out String);
   procedure Adjust(Self : in out String);
private
   package Internals is
--      pragma Pure;

      package IC renames Interfaces.C;

      Size_Of_wxString : constant Integer;
      --pragma Convention(C, Size_Of_WxString);
      pragma Import(C, Size_Of_wxString, "sizeof_wxstring");

      type wxString is null record;
      pragma Convention(C, wxString);
      for wxString'Size use wx.Sizes.Size_Of_wxString;

      type wxString_Access is access all wxString;
      pragma Convention(C, wxString_Access);

      function wxString_ctor(Store : wxString_Access) return wxString_Access;
      pragma Import(C, wxString_ctor, "wxString_ctor");

      procedure wxString_dtor(Object : wxString_Access);
      pragma Import(C, wxString_dtor, "wxString_dtor");
   end Internals;

   type String is new Ada.Finalization.Controlled with record
     Store  : aliased Internals.wxString;
     Object : Internals.wxString_Access := null;
   end record;
end wx.Base.Strings;