DEL remove useless code
[powerfractal.git] / CD / Src / Spider - Graphic Library / Ads / User.adb
1 ------------------------------------------------------------------------------
2 -- --
3 -- Nom du fichier : User.adb --
4 -- --
5 -- Auteur(s) : SALAMIN Michel / Assistant HEV --
6 -- Ecole d'ingenieurs du canton de Vaud (EIVD) --
7 -- --
8 -- Date de creation : 20 avril 2000 --
9 -- --
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 --
13 -- est active --
14 -- --
15 -- Date de modif. : --
16 -- Raison : --
17 -- --
18 -- Modules appeles : --
19 -- Mat. particulier : Graphmin.dll --
20 -- --
21 -- Compilateur : --
22 -- --
23 ------------------------------------------------------------------------------
24
25
26
27 package body Spider.User is
28
29
30
31 procedure ADA_Delay_Time(Delay_Time : in Integer);
32
33 pragma import(DLL,ADA_Delay_Time,"ADA_delay");
34
35 procedure Sleep(Delay_Time : in Integer) is
36 begin
37 ADA_Delay_Time(Delay_Time);
38 end Sleep;
39
40
41
42 procedure ADA_keyPressed(Key : out Integer;
43 Item : out Character;
44 Err : out Natural);
45
46 pragma import(DLL,ADA_keyPressed,"ADA_keyPressed");
47
48 procedure key_Pressed(Item : out Character;
49 Key : out Boolean) is
50 ADA_Key : Integer;
51 Err : Integer;
52 begin
53 ADA_keyPressed(ADA_Key,Item,Err);
54
55 if Err /= 0 then
56 Traiter_Erreur(Err);
57 end if;
58
59 if ADA_Key = 0 then
60 Key := false;
61 else
62 Key := true;
63 end if;
64 end key_Pressed;
65
66
67
68
69 procedure ADA_beep;
70
71 pragma import(DLL,ADA_beep,"ADA_beep");
72
73 procedure Beep is
74 begin
75 ADA_beep;
76 end Beep;
77
78
79
80 procedure ADA_leftClic(Clic : out Integer;
81 X1 : out Natural;
82 Y1 : out Natural;
83 Err : out Natural);
84
85 pragma import(DLL,ADA_leftClic,"ADA_leftClic");
86
87 procedure Left_Clic(X1 : out Natural;
88 Y1 : out Natural;
89 Clic : out Boolean) is
90 ADA_Clic : Integer;
91 Err : Natural;
92 begin
93 ADA_leftClic(ADA_Clic,X1,Y1,Err);
94
95 if Err /= 0 then
96 Traiter_Erreur(Err);
97 end if;
98
99 if ADA_Clic = 0 then
100 Clic := false;
101 else
102 Clic := true;
103 end if;
104 end Left_Clic;
105
106
107
108 procedure ADA_Right_Clic(Clic : out Integer;
109 X1 : out Natural;
110 Y1 : out Natural;
111 Err : out Natural);
112
113 pragma import(DLL,ADA_Right_Clic,"ADA_rightClic");
114
115 procedure Right_Clic(X1 : out Natural;
116 Y1 : out Natural;
117 Clic : out Boolean) is
118 ADA_Clic : Integer;
119 Err : Integer;
120 begin
121 ADA_Right_Clic(ADA_Clic,X1,Y1,Err);
122
123 if Err /= 0 then
124 Traiter_Erreur(Err);
125 end if;
126
127 if ADA_Clic = 0 then
128 Clic := false;
129 else
130 Clic := true;
131 end if;
132 end Right_Clic;
133
134
135
136 procedure ADA_mouse(X1 : out Natural;
137 Y1 : out Natural ;
138 Err : out Natural);
139
140 pragma import(DLL,ADA_mouse,"ADA_mouse");
141
142 procedure Mouse(X1 : out Natural;
143 Y1 : out Natural) is
144 Err : Integer;
145 begin
146 ADA_mouse(X1,Y1,Err);
147 if Err /= 0 then
148 Traiter_Erreur(Err);
149 end if;
150 end Mouse;
151
152
153
154 end Spider.User;