-- Autogenerated by MSIL2Ada v. 2
-- By: Martin C. Carlisle
--     Department of Computer Science
--     US Air Force Academy
--     carlislem@acm.org
pragma Extensions_Allowed(On);
with MSSyst.Object;
with MSIL_Types;
use MSIL_Types;
with type MSSyst.Windows.Forms.NativeMethods.COMRECT.Ref is access;
with type MSSyst.Windows.Forms.NativeMethods.tagOleMenuGroupWidths.Ref is access;
with type MSSyst.Windows.Forms.UnsafeNativeMethods.IOleInPlaceActiveObject.Ref is access;
with type MSSyst.String.Ref is access;
with MSSyst.Windows.Forms.NativeMethods.MSG;
package MSSyst.Windows.Forms.UnsafeNativeMethods.IOleInPlaceFrame is
   type Typ;
   type Ref is access all Typ'Class;
   type Ref_addrof is access all Ref;
   type Ref_Arr is array(Natural range <>) of Ref;
   type Ref_Array is access all Ref_Arr;
   type Ref_Array_addrof is access all Ref_Array;
   type Typ (Self : access MSSyst.Object.Typ'Class)
      is abstract new MSSyst.Object.Typ with null record;
   pragma MSIL_Interface(Typ);
   function ContextSensitiveHelp(
      This : access Typ;
      fEnterMode : Integer) return Integer is abstract;
   function EnableModeless(
      This : access Typ;
      fEnable : Integer) return Integer is abstract;
   function GetBorder(
      This : access Typ;
      lprectBorder : MSSyst.Windows.Forms.NativeMethods.COMRECT.Ref) return Integer is abstract;
   function GetWindow(
      This : access Typ) return MSIL_Types.native_int is abstract;
   function InsertMenus(
      This : access Typ;
      hmenuShared : MSIL_Types.native_int;
      lpMenuWidths : MSSyst.Windows.Forms.NativeMethods.tagOleMenuGroupWidths.Ref) return Integer is abstract;
   function RemoveMenus(
      This : access Typ;
      hmenuShared : MSIL_Types.native_int) return Integer is abstract;
   function RequestBorderSpace(
      This : access Typ;
      pborderwidths : MSSyst.Windows.Forms.NativeMethods.COMRECT.Ref) return Integer is abstract;
   function SetActiveObject(
      This : access Typ;
      pActiveObject : MSSyst.Windows.Forms.UnsafeNativeMethods.IOleInPlaceActiveObject.Ref;
      pszObjName : MSSyst.String.Ref) return Integer is abstract;
   function SetBorderSpace(
      This : access Typ;
      pborderwidths : MSSyst.Windows.Forms.NativeMethods.COMRECT.Ref) return Integer is abstract;
   function SetMenu(
      This : access Typ;
      hmenuShared : MSIL_Types.native_int;
      holemenu : MSIL_Types.native_int;
      hwndActiveObject : MSIL_Types.native_int) return Integer is abstract;
   function SetStatusText(
      This : access Typ;
      pszStatusText : MSSyst.String.Ref) return Integer is abstract;
   function TranslateAccelerator(
      This : access Typ;
      lpmsg : MSSyst.Windows.Forms.NativeMethods.MSG.Valuetype_addrof;
      wID : MSIL_Types.int16) return Integer is abstract;
private
   pragma Import(MSIL,ContextSensitiveHelp,"ContextSensitiveHelp");
   pragma Import(MSIL,EnableModeless,"EnableModeless");
   pragma Import(MSIL,GetBorder,"GetBorder");
   pragma Import(MSIL,GetWindow,"GetWindow");
   pragma Import(MSIL,InsertMenus,"InsertMenus");
   pragma Import(MSIL,RemoveMenus,"RemoveMenus");
   pragma Import(MSIL,RequestBorderSpace,"RequestBorderSpace");
   pragma Import(MSIL,SetActiveObject,"SetActiveObject");
   pragma Import(MSIL,SetBorderSpace,"SetBorderSpace");
   pragma Import(MSIL,SetMenu,"SetMenu");
   pragma Import(MSIL,SetStatusText,"SetStatusText");
   pragma Import(MSIL,TranslateAccelerator,"TranslateAccelerator");
end MSSyst.Windows.Forms.UnsafeNativeMethods.IOleInPlaceFrame;
pragma Extensions_Allowed(Off);
pragma Import(MSIL,MSSyst.Windows.Forms.UnsafeNativeMethods.IOleInPlaceFrame,
   ".ver 1:0:3300:0 .publickeytoken=( b7 7a 5c 56 19 34 e0 89 )",
   "[System.Windows.Forms]System.Windows.Forms.UnsafeNativeMethods/IOleInPlaceFrame");
