pragma Extensions_Allowed(On);
with MSSyst.Windows.Forms.IWin32Window;
with MSSyst.Windows.Forms.IContainerControl;
with MSSyst.ComponentModel.ISynchronizeInvoke;
with MSSyst.ComponentModel.IComponent;
with MSSyst.IDisposable;
with Mssyst.String;
use mssyst.string;

package body Extend_Dotnet_Class is
   function New_Form(This : Ref := null) return Ref is
      -- this is the magic syntax to automatically call the
      -- parent constructor.  Note that "Super" is never used
      Super : Form.Ref := Form.New_Form(Form.Ref(This));
   begin
      return This;
   end New_Form;
   -- it appears here that the .NET specs are incorrect, as Form
   -- should provide this function, but doesn't.
   function Activatecontrol(This : access Typ; active : MSSyst.Windows.Forms.Control.Ref) return Standard.Boolean is
   begin
      return true;
   end Activatecontrol;
   

   -- other .NET languages will have a hard time with the
   -- unconstrained array below, but we can use it in Ada
   procedure Set_Title(This : access Typ; Title : in String) is
   begin
      ;
   end Set_Title;
   
   -- this method will be accessible from other .NET languages
   procedure Set_Title(This : access Typ; Title : in Integer) is
   begin
      null;
   end Set_Title;
   

end Extend_Dotnet_Class;
   