CD/Src/Spider - Graphic Library/Lib/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;