DESCRIPTION.

La procédure PROC_eventpoll interroge la file des événement et appelle un gestionnaire si besoin. 

SYNTAXE.

PROC_eventpoll

REMARQUES.

La procédure PROC_eventpoll va interroger la file d'attente des événements qui se sont produit depuis son dernier appel et, s'il y en a, appelle le ou les gestionnaires enregistrés par la procédure PROC_eventregister(), dans l'ordre chronologique des événements. Si plusieurs gestionnaires sont enregistrés pour un événement, ils sont tous appelés (le dernier enregistré étant appelé en premier). Généralement, un programme attend dans une boucle d'interrogation, par exemple :

Rappel : Si plusieurs procédures personnalisées doivent être exécutées par un même événement, les procédures personnalisées associées seront exécutées dans l'ordre inversement des déclaration, c'est-à-dire que le dernier enregistré sera appelé en premier.

Rappel : Le module eventlib permet de transmettre une interruption du programme faite par une des gestionnaires d'événements les événements ON MOUSE, ON MOVE, ON SYS et/ou ON TIME à plusieurs procédures ou fonctions personnalisées pour sa gestion, de manière sérialisée et synchrone. 

Note : le gestionnaire d'événement ON CLOSE n'est pas pris en compte par le module eventlib.

Rappel : la procédure PROC_eventinit devra toujours être appelée avant tout autre procédure de eventlib.bbc.

La procédure PROC_eventpoll est importée depuis la module eventlib.bbc. 

EXEMPLE.

RREM --- Importation des modules ---

REM --- Module de la bibliothèque BBC BASIC ---

INSTALL @lib$ + "eventlib.bbc"

REM --- INITIALISISATION GENERALE ---

REM --- Definition du gestionnaire d'evenements ---

PROC_eventinit

PROC_eventregister( &201 , PROC_Test() ) : REM  &201 valeur correspondante à la commande WM_LBUTTONDOWN

PROC_eventregister( &204 , PROC_Test() ) : REM  &204 valeur correspondante à la commande WM_RBUTTONDOWN

PROC_eventregister( &207 , PROC_Test() ) : REM  &205 valeur correspondante à la commande WM_MBUTTONDOWN

REM --- Boucle principale ---

PRINT "Appuyez sur un bouton de la souris ou sur la touche Q pour quitter."

REPEAT

PROC_eventpoll : REM  interroge la file des evenements et execute une procédure personnalises si besoin 

kpause$ = INKEY$( 5 )

UNTIL kpause$ = "Q" OR  kpause$ = "q" 

REM --- Fin du programme ---

PRINT : PRINT "Au revoir."

END

REM --- DEFINITION DES PROCEDURES PERSONNALISEES ---

REM --- Gestionnaire d'evenement des boutons ---

DEF  PROC_Test( Qm , Qw , Ql )

CASE Qm OF

WHEN 513 : kbouton$ = "gauche"

WHEN 516 : kbouton$ = "droit"

WHEN 519 : kbouton$ = "central"

OTHERWISE : kbouton$ = "non identifie"

ENDCASE

kabscisse = Ql AND &FFFF

kabscisse = ( Ql  >> 16 ) AND &FFFF

PRINT TAB( 0 , 2 ) "Le bouton " ; kbouton$ ; " a ete enclenche.     "

PRINT "Coordonnees du pointeur : " ; kabscisse ; "," ; kabscisse ; "    "

ENDPROC