generic and visibility

["mferracini" <maurizio.ferracini@gmail.com>]

i'm new on ADA, and i hav some problem
with generic.

this is an exemple



------------------------------------
package Manage is
generic
Id : integer;
with procedure Init;
with procedure Job;
package Det is

procedure Start(
Status :    out Integer );
end Det;
end Manage;

----------------------------------------

with Ada.Text_Io;
with Ada.Task_Identification;

package body Applicazione is
I : Integer := 0;

procedure Init is
begin
I:=1;
end Init;

procedure Job is
begin
Ada.Text_Io.Put(Item => "> mi sbatto!  ");
I:=I+1;
Ada.Text_Io.Put(Item => Integer'Image (I));
Ada.Text_Io.New_Line;
end Job;

end Applicazione;
-----------------------------------------

with Manage;
with Applicazione;


package Fake_App is new Manage_Task.Det_Task_M_Pack
(
Id_task => 1,
Init_Job => Applicazione.Init,
Job => Applicazione.Job);

---------------


with Fake_App;

procedure Test is
begin
Fake_app.job;
end Test;

---------------------------------------------------------------------------------
job in not a visible entry of fake_app

how i can do?
thanks