Double click en R3
Philippe11-May-2009/9:12:21+2:00
Bonjour,

Je ne trouve pas en R3 un équivalent du event/8 = true (activation du double clic). Est-ce qu'il est prévu dans VID une fonction onDoubleClick dans la gestion d'évenements ou est-ce qu'il faudra contrôler le temps entre deux clics successifs ?

===Philippe
Philippe25-May-2009/22:57:47+2:00
Salut,

Puisque personne ne semble s'intéresser à ce sujet (snif), voilà la solution :

Il faut utiliser l'acteur "on-click" sur un style et tester si l'évènement contient dans sa liste de flags un qui est égal à 'double (type word!).
Voilà un exemple de code R3:

stylize [
	wspace: clicker [
		about: "Box to test double-clic"
		facets: [size: 50x50 area-color: gray]
		actors: [
			on-click: [ ; arg: event
				print rejoin [newline "event/type = arg/type : " arg/type ]
				print rejoin ["event/offset = arg/offset : " arg/offset ]
				print rejoin ["event/flags = arg/flags : " mold arg/flags ]
				if (find arg/flags 'double) [ print "double-clic !"]
				print rejoin ["event/code = arg/code : " mold arg/code ]
				print rejoin ["event/key = arg/key : " mold arg/key ]
				print rejoin ["event/data = arg/data : " mold arg/data ]
				none
			]
		]
	] ; end wspace

]

view/options [	
		workspace: wspace 200x200
		button "quit" quit
] [title: "TEST DOUBLE-CLIC"]




===Philippe
Didec26-May-2009/15:17:34+2:00
Non pas que personne ne s'intéresse au sujet, mais personne ne devais avoir la réponse.
Merci à toi de nous transmettre le fruit de tes recherches, ce sera utile pour le prochain qui demandera.

Login required to Post.


Powered by RebelBB and REBOL 2.7.8.4.2