1 ------------------------------------------------------------------------------
3 -- Nom du fichier : User.adb --
5 -- Auteur(s) : SALAMIN Michel / Assistant HEV --
6 -- Ecole d'ingenieurs du canton de Vaud (EIVD) --
8 -- Date de creation : 20 avril 2000 --
10 -- But : Mettre a disposition les fonctions permettant de: --
11 -- - gerer la souris dans la fenetre graphique --
12 -- - gerer le clavier lorsque la fenetre graphique --
15 -- Date de modif. : --
18 -- Modules appeles : --
19 -- Mat. particulier : Graphmin.dll --
23 ------------------------------------------------------------------------------
27 package body Spider
.User
is
31 procedure ADA_Delay_Time(Delay_Time
: in Integer);
33 pragma import(DLL
,ADA_Delay_Time
,"ADA_delay");
35 procedure Sleep(Delay_Time
: in Integer) is
37 ADA_Delay_Time(Delay_Time
);
42 procedure ADA_keyPressed(Key
: out Integer;
46 pragma import(DLL
,ADA_keyPressed
,"ADA_keyPressed");
48 procedure key_Pressed(Item
: out Character;
53 ADA_keyPressed(ADA_Key
,Item
,Err
);
71 pragma import(DLL
,ADA_beep
,"ADA_beep");
80 procedure ADA_leftClic(Clic
: out Integer;
85 pragma import(DLL
,ADA_leftClic
,"ADA_leftClic");
87 procedure Left_Clic(X1
: out Natural;
89 Clic
: out Boolean) is
93 ADA_leftClic(ADA_Clic
,X1
,Y1
,Err
);
108 procedure ADA_Right_Clic(Clic
: out Integer;
113 pragma import(DLL
,ADA_Right_Clic
,"ADA_rightClic");
115 procedure Right_Clic(X1
: out Natural;
117 Clic
: out Boolean) is
121 ADA_Right_Clic(ADA_Clic
,X1
,Y1
,Err
);
136 procedure ADA_mouse(X1
: out Natural;
140 pragma import(DLL
,ADA_mouse
,"ADA_mouse");
142 procedure Mouse(X1
: out Natural;
146 ADA_mouse(X1
,Y1
,Err
);