Post Reply 
Bug i GETKEY (8151)
10-17-2015, 07:59 AM (This post was last modified: 10-17-2015 01:21 PM by StephenG1CMZ.)
Post: #13
RE: Bug i GETKEY (8151)
(10-14-2015 05:41 AM)cyrille de brébisson Wrote:  Hello,

The root cause is the limited event stack of the Prime.
Any event goes in the queue, Key presses, but also mouse messages.
If you type on the screen 3 times, you have at least 9 messages in the queue: 3 times Down, Up and Click.
Since nothing is consuming these messages, they stay there.
Since the queue is 8 deep, any other messages are ignored (so, in fact the last click is not there).
As a result, your key press never makes it into the queue and never triggers GetKey.

The WAIT(-1) command does allow to get stuff from, and out of, the queue, but that is the only way at this point in time.

Cyrille

This little program demonstrates a way of dealing with the mouse events.
It might not be a perfect solution, but it certainly seems to improve the robustness of the code. Try tapping the screen 3 times with and without the mouse statement to see the difference.
But if you need to keep checking the mouse, it would be better if the system could do that for you.

Code:

 LOCAL ZIPPST:="ZIPP V 0.0 ";
 LOCAL SG:=" StephenG1CMZ";
 LOCAL CRID:=ZIPPST+"© 2015 "+SG;

 MSNK()
 BEGIN
   LOCAL SNK:=MOUSE();
 END;

 EXPORT MEASURE_INTERVAL_S()
 BEGIN
  LOCAL TICKB,TICKE,TICKL;
  LOCAL TS;
  LOCAL MI:=0;
  LOCAL MST:="MEASURE SHORT INTERVAL
tap OK or Enter to start
TAP ANY KEY TO END";

  
  TICKB:=MSGBOX(MST,1);
  IF TICKB THEN
   RECT();
   TICKB:=Ticks; TS:=Time;
   TICKL:=TICKB;
   REPEAT 
    MSNK;
    IF Ticks-TICKL≥1000 THEN
     TICKL:=Ticks;
     RECT();
     TEXTOUT_P(→HMS(ROUND((Ticks-TICKB)/1000,0)/3600),0,20);
     MSNK;
    END;
    WAIT(0.001);
    MSNK;
   UNTIL GETKEY≥0;
   TICKE:=Ticks;
   MI:=(TICKE-TICKB)/1000;
  END;
  RETURN ROUND(MI,0);  
 END;

 EXPORT G1CMZ_IMMENSELY_PRACTICAL_PACKAGE ()
 BEGIN

 END;

 EXPORT ZIPP()
 BEGIN

 END;

Stephen Lewkowicz (G1CMZ)
https://my.numworks.com/python/steveg1cmz
Visit this user's website Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
Bug i GETKEY (8151) - slawek39 - 06-27-2015, 08:31 AM
RE: Bug i GETKEY (8151) - DrD - 06-27-2015, 09:50 AM
RE: Bug i GETKEY (8151) - slawek39 - 06-27-2015, 10:00 AM
RE: Bug i GETKEY (8151) - Thomas_Sch - 06-27-2015, 10:59 AM
RE: Bug i GETKEY (8151) - DrD - 06-27-2015, 10:14 AM
RE: Bug i GETKEY (8151) - slawek39 - 06-27-2015, 10:29 AM
RE: Bug i GETKEY (8151) - DrD - 06-27-2015, 11:05 AM
RE: Bug i GETKEY (8151) - slawek39 - 06-27-2015, 11:05 AM
RE: Bug i GETKEY (8151) - StephenG1CMZ - 10-12-2015, 11:05 PM
RE: Bug i GETKEY (8151) - komame - 10-13-2015, 12:28 PM
RE: Bug i GETKEY (8151) - hpfx - 10-14-2015, 09:44 PM
RE: Bug i GETKEY (8151) - StephenG1CMZ - 10-17-2015 07:59 AM



User(s) browsing this thread: 1 Guest(s)