wait(-1)

[Tyann]

Bonjour

Un problème avec WAIT(-1), voici un petit bout de code assez simple un premier WAIT détecte que vous touchez l'écran, on entre alors dans une boucle qui attend que vous relachiez l'écran.
Si vous faites un glissé lent ou un étirement ces événements sont bien enregistrés dans L2 puis quand vous relachez le programme s'arrête et le premier élément de la dernière liste de L2 est =2
souris relachée.
Si par contre vous faîtes un glissé rapide et que vous relachez dans la foulée pour donner un effet kinétique alors le programme ne s'arrête pas car le dernier événement détecté est de type 1.

J'espère être assez clair ?

Hello

A problem with WAIT(-1), here is a small piece of code quite simple a first WAIT detects that you touch the screen, we then enter a loop that waits for you to release the screen.
If you do a slow drag or stretch these events are well recorded in L2 then when you release the program stops and the first item in the last list of L2 is =2
mouse released.
If, on the other hand, you make a quick slip and release in the process to give a kinetic effect, then the program does not stop because the last event detected is type 1.

I hope I'm clear enough?

Translated with http://www.DeepL.com/Translator

Code:

EXPORT ESSW()
BEGIN
 L1:={};L2:={};A:=0;
 TEXTOUT_P("Toucher l écran",100,125,3);
 L1:=WAIT(−1);
 RECT_P();
 TEXTOUT_P("Relacher pour quitter",100,125,3);
 REPEAT
  L2(0):=WAIT(−1);A:=A+1;
 UNTIL L2(A,1)==2; 
 {L1,L2};
END;