package Gmface.Gm_Virtual.Gmface.Gmface_Plugins is type Gmface_Plugin_Class is new Plugin_Class with record null; end record; procedure Initialize (Plug : in out Gmface_Plugin_Class; Id : in Plugin_num; Device : in Device_Num; Ch : in Channel_Num; Form : in Form_Index_Type; Cat : in Category_Index_Type); procedure Set_Id(Plug : in out Gmface_Plugin_Class; Id : in Plugin_Num); function Get_Id(Plug : in Gmface_Plugin_Class) return Plugin_Num; procedure Set_Device(Plug : in out Gmface_Plugin_Class; Device : in Device_Num); function Get_Device(Plug : in Gmface_Plugin_Class) return Device_Num; procedure Set_Channel(Plug : in out Gmface_Plugin_Class; Ch : in Channel_Num); function Get_Channel(Plug : in Gmface_Plugin_Class) return Channel_Num; procedure Set_Form(Plug : in out Gmface_Plugin_Class; Form : in Form_Index_Type); function Get_Form(Plug : in Gmface_Plugin_Class) return Form_Index_Type; procedure Set_Category(Plug : in out Gmface_Plugin_Class; Cat : in Category_Index_Type); function Get_Category(Plug : in Gmface_Plugin_Class) return Category_Index_Type; procedure Print (Filename : in String; Plug : in Gmface_Plugin_Class); end Gmface.Gm_Virtual.Gmface.Gmface_Plugins;