DEL remove useless code
[powerfractal.git] / CD / Src / Spider - Graphic Library / Ads / User.ads
1 ------------------------------------------------------------------------------
2 -- --
3 -- Nom du fichier : User.ads --
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 Spider.User is
28
29
30
31 ----------------------------------------------------------------------------
32 -- Nom : Sleep --
33 -- --
34 -- But : Suspendre le programme durant un temps determine. --
35 -- --
36 -- Entrees : - delay_Time: Duree en ms pendant laquelle il faut suspendre --
37 -- l'execution du programme --
38 -- Sorties : - --
39 -- --
40 -- Remarque: --
41 ----------------------------------------------------------------------------
42
43 procedure Sleep(Delay_Time : in Integer);
44
45
46
47 ----------------------------------------------------------------------------
48 -- Nom : Key_Pressed --
49 -- --
50 -- But : Lire un caractere au clavier. --
51 -- --
52 -- Entrees : - Item: Le caractere qui a ete lu au clavier. --
53 -- Sorties : - Vrai si un caractere a pu etre lu au clavier. --
54 -- --
55 -- Remarque: Attention a l'exclusion mutuelle sur le tampon. --
56 ----------------------------------------------------------------------------
57
58 procedure Key_Pressed(Item : out Character;
59 Key : out Boolean);
60
61
62
63 ----------------------------------------------------------------------------
64 -- Nom : Beep --
65 -- --
66 -- But : Faire entendre un son "beep". --
67 -- --
68 -- Entrees : - --
69 -- Sorties : - --
70 -- --
71 -- Remarque: --
72 ----------------------------------------------------------------------------
73
74 procedure Beep;
75
76
77
78 ----------------------------------------------------------------------------
79 -- Nom : Left_Clic --
80 -- --
81 -- But : Verifie si le bouton de gauche de la souris a ete presse. --
82 -- --
83 -- Entrees : - X1: Position (absolue) en X du curseur associe a la souris.--
84 -- - Y1: Position (absolue) en Y du curseur associe a la souris.--
85 -- Sorties : - Vrai si le bouton de gauche de la souris a ete presse --
86 -- --
87 -- Remarque: --
88 ----------------------------------------------------------------------------
89
90 procedure Left_Clic(X1 : out Natural;
91 Y1 : out Natural;
92 Clic : out Boolean);
93
94
95
96 ----------------------------------------------------------------------------
97 -- Nom : Right_Clic --
98 -- --
99 -- But : Verifie si le bouton de gauche de la souris a ete presse. --
100 -- --
101 -- Entrees : - X1: Position (absolue) en X du curseur associe a la souris.--
102 -- - Y1: Position (absolue) en Y du curseur associe a la souris.--
103 -- Sorties : - Vrai si le bouton de gauche de la souris a ete presse --
104 -- --
105 -- Remarque: --
106 ----------------------------------------------------------------------------
107
108 procedure Right_Clic(X1 : out Natural;
109 Y1 : out Natural;
110 Clic : out Boolean);
111
112
113
114 ----------------------------------------------------------------------------
115 -- Nom : Mouse --
116 -- --
117 -- But : Lire la position de la souris. --
118 -- --
119 -- Entrees : - X1: Position (absolue) en X du curseur associe a la souris.--
120 -- - Y1: Position (absolue) en Y du curseur associe a la souris.--
121 -- Sorties : - --
122 -- --
123 -- Remarque: --
124 ----------------------------------------------------------------------------
125
126 procedure Mouse(X1 : out Natural;
127 Y1 : out Natural);
128
129
130
131 end Spider.User;