Gestionnaire d'�v�nements personnalis�s

padbrain — Fri, 20 Nov 2020 14:15:20 GMT

Suite � la demande d��z�chias sur le forum Windev, je vous livre ma version d'un gestionnaire d'�v�nements personnalis�s afin de pallier ce manque dans l'AGL de PC Soft.

Envoy� par denouezechias

Bonjour,
Je suis en train de convertir un script qui a �t� ecrit en Visual basic et j'ai besoin d'aide pour ce genre d'instruction ci dessous:
AddHandler event, AddressOf eventhandler

Merci d'avance

La solution est, somme toute, triviale. Une classe va se charger de r�pertorier une proc�dure � ex�cuter pour chaque �v�nement dont le nom pourra �tre d�fini.

C'est parti :

tout d'abord, la d�claration de la classe cEventHandler, avec ces membres et sa m�thode d'instanciation globale afin de n'instancier qu'un seul gestionnaire d'�v�nements.

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
cEventHandler is Class
	
	PRIVATE
		//	Enregistre la liste des �couteurs
		_events is associative array of Proc�dures
		
		GLOBAL
			_instance is cEventHandler dynamic
	
END

PROC�DURE PRIVATE Constructor()
//     Rien ici


PROC�DURE PUBLIC GLOBAL getInstance()
IF _instance = Null THEN
	_instance <- new cEventHandler
END
RESULT _instance

Une fois le gestionnaire d'�v�nements instanci�, nous voulons pouvoir inscrire un �v�nement personnel avec le traitement qui lui sera associ� :

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
PROC�DURE onEventDo(pEvent is personalEvent, pCallable is Proc�dure)
_events[pEvent..Name] = pCallable

Ici, le param�tre pEvent est une �num�ration afin de s'assurer que le nom de l'�v�nement est sans �quivoque.

Maintenant que l'�v�nement est enregistr�, il suffit de d�clencher un appel vers ce dernier afin d'ex�cuter la proc�dure associ�e :

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
PROC�DURE emit(pEvent is personalEvent, *)

	returnedProcess is Proc�dure <- _getProcess(pEvent)
	IF returnedProcess <> Null THEN
		SWITCH MyParameters..Count
			CASE > 1
				WHEN EXCEPTION IN
					returnedProcess(MyParameters[2 TO])
					RESULT True
				DO
					RESULT returnedProcess(MyParameters[2 TO])
				END
				
			OTHER CASE
				WHEN EXCEPTION IN
					returnedProcess()
					RESULT True
				DO
					RESULT returnedProcess()
				END
				
		END
	END
RESULT Null

Que fait cette m�thode :

- Si l'�v�nement personnalis� existe dans la liste des �v�nements enregistr�s :

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
PROC�DURE PRIVATE _hasEvent(pEvent is personalEvent) : boolean
RESULT _events[pEvent..Name]..Exist

- il est r�cup�r� pour �tre ex�cut�

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
PROC�DURE PRIVATE _getProcess(pEvent is personalEvent) : Proc�dure

pProc is Proc�dure = Null
IF _hasEvent(pEvent) THEN
	pProc = _events[pEvent..Name]
END
RESULT pProc

Enfin, une m�thode permettant de supprimer un �v�nement d�j� enregistr� dans la liste :

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
PROC�DURE deleteEvent(pEvent is personalEvent)
IF _hasEvent(pEvent) THEN
	_events.delete(pEvent)
END

L'utilisation de ce gestionnaire est alors simple :

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38

//     �num�ration des �v�nements
personalEvent est �num�ration
     dire_bonjour
     dire_autre_chose
FIN

//     Instanciation du gestionnaire d'�v�nements
MonGestionnaireDevenementsPersos est un cEventHandler dynamique <- cEventHandler.getInstance()

//     D�finition des proc�dures associ�es aux �v�nements
     // Sans param�tres
     PROCEDURE INTERNE hello()
     trace("Hello world !")
     FIN

     // Avec param�tres
     PROCEDURE INTERNE tell(*)
     POUR indexParam = 1 _A_ MesParam�tres..occurence
     trace(MesParam�tres[indexParam])
     FIN
     FIN

//     Inscrire les �v�nements aupr�s du gestionnaire
MonGestionnaireDevenementsPersos.onEventDo(dire_bonjour, hello)
MonGestionnaireDevenementsPersos.onEventDo(dire_autre_chose, tell)

//     D�clencher l'�v�nement
MonGestionnaireDevenementsPersos.emit(dire_bonjour)
// La trace vaut
// Hello world !

MonGestionnaireDevenementsPersos.emit(dire_autre_chose, "Hello", "world", "!")
// La trace vaut
// Hello
// world
// !

Voil�, il peut sans doute �tre am�lior� mais est d�j� bien fonctionnel en l'�tat.
J'esp�re qu'il pourra �tre utile � certains d'entre vous.

Forum du club des d�veloppeurs et IT Pro - Blogs - padbrain

Gestionnaire d'�v�nements personnalis�s