WebSVN – Kolibri OS – Blame – /kernel/trunk/gui/event.inc

Rev	Author	Line No.	Line
431	serge	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		2	;; ;;
		3	;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
		4	;; Copyright (C) MenuetOS 2000-2004 Ville Mikael Turjanmaa ;;
		5	;; Distributed under terms of the GNU General Public License ;;
		6	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
227	serge	7
593	mikedld	8	$Revision: 665 $
		9
		10
227	serge	11	align 4
		12	init_events:
354	serge	13	stdcall kernel_alloc, 512*EVENT_SIZE
227	serge	14	mov [events], eax
		15	xor eax, eax
354	serge	16	mov [event_uid], eax
227	serge	17	not eax
		18	mov edi, event_map
		19	mov [event_start], edi
354	serge	20	mov ecx, 64/4
227	serge	21	cld
		22	rep stosd
		23	mov [event_end], edi
		24	ret
		25
		26	align 4
		27	proc alloc_event
		28
		29	pushfd
		30	cli
		31	mov ebx, [event_start]
		32	mov ecx, [event_end]
		33	.l1:
		34	bsf eax,[ebx]
		35	jnz .found
		36	add ebx,4
		37	cmp ebx, ecx
		38	jb .l1
		39	popfd
		40	xor eax,eax
		41	ret
		42	.found:
		43	btr [ebx], eax
		44	mov [event_start],ebx
354	serge	45	inc [event_uid]
		46
227	serge	47	sub ebx, event_map
254	serge	48	lea eax,[eax+ebx*8]
354	serge	49
		50	lea ebx, [eax+eax*4]
227	serge	51	shl eax,5
354	serge	52	lea eax,[eax+ebx4] ;eax=52 (EVENT_SIZE)
227	serge	53	add eax, [events]
354	serge	54	mov ebx, [event_uid]
227	serge	55	popfd
		56	ret
		57	endp
		58
		59	align 4
		60	free_event:
354	serge	61	sub eax, [events]
		62	mov ecx, EVENT_SIZE
		63	mov ebx, event_map
		64	cdq
		65	div ecx
		66
227	serge	67	pushfd
		68	cli
		69	bts [ebx], eax
		70	shr eax, 3
		71	and eax, not 3
		72	add eax, ebx
		73	cmp [event_start], eax
		74	ja @f
		75	popfd
		76	ret
		77	@@:
		78	mov [event_start], eax
		79	popfd
		80	ret
		81
354	serge	82	EVENT_WATCHED equ 0x10000000
		83	EVENT_SIGNALED equ 0x20000000
		84	MANUAL_RESET equ 0x40000000
		85	MANUAL_DESTROY equ 0x80000000
		86
		87
		88	; param
		89	; eax= event data
		90	; ebx= flags
		91	;
		92	; retval
		93	; eax= event
		94	; edx= id
		95
		96	create_event:
		97	.flags equ esp+4
		98	.data equ esp
		99
		100	push ebx
		101	push eax
		102
		103	call alloc_event
		104	test eax, eax
		105	jz .fail
		106
		107	mov [eax+APPOBJ.magic], 'EVNT'
363	serge	108	mov [eax+APPOBJ.destroy], destroy_event.internal
354	serge	109	mov [eax+EVENT.id], ebx
		110
		111	mov ebx, [CURRENT_TASK]
		112	shl ebx, 5
379	serge	113	mov ebx, [CURRENT_TASK+ebx+4]
354	serge	114	mov [eax+APPOBJ.pid], ebx
		115	mov edx, [.flags]
		116	mov [eax+EVENT.state], edx
		117
		118	mov esi, [.data]
		119	test esi, esi
		120	jz @F
		121	lea edi, [eax+EVENT.code]
		122	mov ecx, 6
		123	cld
		124	rep movsd
		125	@@:
465	serge	126	mov ecx, [current_slot]
		127	add ecx, APP_OBJ_OFFSET
354	serge	128
		129	pushfd
		130	cli
		131	mov edx, [ecx+APPOBJ.fd]
		132	mov [eax+APPOBJ.fd], edx
		133	mov [eax+APPOBJ.bk], ecx
		134	mov [ecx+APPOBJ.fd], eax
		135	mov [edx+APPOBJ.bk], eax
		136	popfd
		137	mov edx, [eax+EVENT.id]
		138	.fail:
		139	add esp, 8
		140	ret
		141
		142	restore .flags
		143	restore .data
		144
		145	; param
		146	; eax= event
		147	; ebx= id
		148
		149	destroy_event:
		150
		151	cmp [eax+APPOBJ.magic], 'EVNT'
		152	jne .fail
		153	cmp [eax+EVENT.id], ebx
		154	jne .fail
363	serge	155	.internal:
354	serge	156	mov ebx, [eax+APPOBJ.fd]
		157	mov ecx, [eax+APPOBJ.bk]
		158	mov [ebx+APPOBJ.bk], ecx
		159	mov [ecx+APPOBJ.fd], ebx
363	serge	160	.force:
354	serge	161	xor edx, edx ;clear common header
		162	mov [eax], edx
		163	mov [eax+4], edx
		164	mov [eax+8], edx
		165	mov [eax+12], edx
		166	mov [eax+16], edx
		167
		168	call free_event ;release object memory
		169	.fail:
		170	ret
		171
227	serge	172	align 4
		173	proc send_event stdcall pid:dword, event:dword
		174	locals
		175	slot dd ?
		176	endl
		177
		178	mov eax, [pid]
		179	call pid_to_slot
		180	test eax, eax
		181	jz .fail
		182
		183	shl eax, 8
380	serge	184	cmp [SLOT_BASE+eax+APPDATA.ev_count], 32
227	serge	185	ja .fail
		186
		187	mov [slot], eax
354	serge	188
227	serge	189	call alloc_event
		190	test eax, eax
		191	jz .fail
		192
354	serge	193	lea edi, [eax+EVENT.code]
227	serge	194	mov ecx, 6
		195	mov esi, [event]
		196	cld
		197	rep movsd
		198
354	serge	199	mov ecx, [slot]
380	serge	200	add ecx, SLOT_BASE+APP_EV_OFFSET
354	serge	201
		202	mov [eax+APPOBJ.magic], 'EVNT'
		203	mov [eax+APPOBJ.destroy], destroy_event
		204	mov ebx, [pid]
		205	mov [eax+APPOBJ.pid], ebx
		206	mov [eax+EVENT.state], EVENT_SIGNALED
		207
		208	pushfd
		209	cli ;insert event into
		210	mov edx, [ecx+APPOBJ.fd] ;events list
		211	mov [eax+APPOBJ.fd], edx ;and set events flag
		212	mov [eax+APPOBJ.bk], ecx
		213	mov [ecx+APPOBJ.fd], eax
		214	mov [edx+APPOBJ.bk], eax
		215	inc [ecx+APPDATA.ev_count-APP_EV_OFFSET]
		216	or [ecx+APPDATA.event_mask-APP_EV_OFFSET], EVENT_EXTENDED
		217	popfd
227	serge	218	.fail:
		219	ret
		220	endp
		221
354	serge	222	; timeout ignored
		223
227	serge	224	align 4
		225	proc get_event_ex stdcall, p_ev:dword, timeout:dword
		226
		227	.wait:
465	serge	228	mov edx,[current_slot]
380	serge	229	; cmp [SLOT_BASE+edx+APPDATA.ev_count], 0
377	serge	230	; je .switch
227	serge	231
465	serge	232	add edx, APP_EV_OFFSET
227	serge	233
377	serge	234	mov eax, [edx+APPOBJ.fd]
354	serge	235	cmp eax, edx
		236	je .switch
		237
		238	lea esi, [eax+EVENT.code]
		239	mov edi, [p_ev] ;copy event data
227	serge	240	mov ecx, 6
		241	cld
		242	rep movsd
354	serge	243
		244	and dword [edi-24], 0xFF00FFFF ;clear priority field
377	serge	245	;
354	serge	246	test [eax+EVENT.state], MANUAL_RESET
		247	jnz .done
		248
		249	pushfd
		250	cli ;remove event from events
		251	mov ebx, [eax+APPOBJ.fd] ;list (reset event)
		252	mov ecx, [eax+APPOBJ.bk] ;and clear events flag
		253	mov [ebx+APPOBJ.bk], ecx ;if no active events
		254	mov [ecx+APPOBJ.fd], ebx
377	serge	255
		256	and [eax+EVENT.state], not (EVENT_SIGNALED+EVENT_WATCHED)
		257
354	serge	258	dec [edx+APPDATA.ev_count-APP_EV_OFFSET]
		259	jnz @F
		260	and [edx+APPDATA.event_mask-APP_EV_OFFSET], not EVENT_EXTENDED
377	serge	261	@@:
354	serge	262	popfd
		263
		264	test [eax+EVENT.state], MANUAL_DESTROY
		265	jz .destroy
		266
		267	add edx, (APP_OBJ_OFFSET-APP_EV_OFFSET)
		268
		269	pushfd
		270	cli
377	serge	271	mov ebx, [edx+APPOBJ.fd] ;insert event into
		272	mov [eax+APPOBJ.fd], ebx ;objects list
		273	mov [eax+APPOBJ.bk], edx
		274	mov [edx+APPOBJ.fd], eax
		275	mov [ebx+APPOBJ.bk], eax
354	serge	276	popfd
		277	.done:
227	serge	278	ret
354	serge	279
		280	.destroy:
363	serge	281	call destroy_event.force
354	serge	282	ret
227	serge	283	.switch:
379	serge	284	mov eax, [TASK_BASE]
227	serge	285	mov [eax+TASKDATA.state], byte 5
		286	call change_task
		287	jmp .wait
		288	endp
		289
354	serge	290	; param
		291	; eax= event
		292	; ebx= id
		293
		294	align 4
		295	wait_event:
		296	.event equ esp
		297	push eax
		298	.wait:
		299	cmp [eax+APPOBJ.magic], 'EVNT'
		300	jne .done
		301	cmp [eax+EVENT.id], ebx
		302	jne .done
		303
		304	test [eax+EVENT.state], EVENT_SIGNALED
		305	jz .switch
		306
		307	test [eax+EVENT.state], MANUAL_RESET
		308	jnz .done
		309
465	serge	310	mov edx,[current_slot]
354	serge	311
		312	pushfd
		313	cli ;remove event from events
		314	mov ebx, [eax+APPOBJ.fd] ;list (reset event)
		315	mov ecx, [eax+APPOBJ.bk] ;and clear events flag
		316	mov [ebx+APPOBJ.bk], ecx ;if no active events
		317	mov [ecx+APPOBJ.fd], ebx
		318	dec [edx+APPDATA.ev_count]
		319	jnz @F
		320	and [edx+APPDATA.event_mask], not EVENT_EXTENDED
		321	@@:
		322	and [eax+EVENT.state], not (EVENT_SIGNALED+EVENT_WATCHED)
		323	popfd
		324
		325	test [eax+EVENT.state], MANUAL_DESTROY
		326	jz .destroy
		327
		328	add edx, APP_OBJ_OFFSET
		329
		330	pushfd
		331	cli
		332	mov ecx, [edx+APPOBJ.fd] ;insert event into
		333	mov [eax+APPOBJ.fd], ecx ;objects list
		334	mov [eax+APPOBJ.bk], edx
		335	mov [edx+APPOBJ.fd], eax
		336	mov [ecx+APPOBJ.bk], eax
		337	popfd
		338	.done:
		339	add esp, 4
		340	ret
		341	.destroy:
363	serge	342	call destroy_event.force
354	serge	343	add esp, 4
		344	ret
		345	.switch:
		346	or [eax+EVENT.state], EVENT_WATCHED
379	serge	347	mov eax, [TASK_BASE]
354	serge	348	mov [eax+TASKDATA.state], byte 5
		349	call change_task
		350	mov eax, [.event]
		351	jmp .wait
		352	restore .event
		353
		354	; param
		355	; eax= event
		356	; ebx= id
		357	; ecx= flags
377	serge	358	; edx= event data
354	serge	359
		360	raise_event:
		361	.event equ esp
		362	push eax
		363
		364	cmp [eax+APPOBJ.magic], 'EVNT'
		365	jne .fail
		366	cmp [eax+EVENT.id], ebx
		367	jne .fail
		368
		369	mov eax, [eax+APPOBJ.pid]
		370	call pid_to_slot
		371	test eax, eax
		372	jz .fail
		373
377	serge	374	mov esi, edx
		375	test esi, esi
354	serge	376	mov edx, [.event]
377	serge	377	jz @F
		378
		379	push ecx
		380	lea edi, [edx+EVENT.code]
		381	mov ecx, 6
		382	cld
		383	rep movsd
		384	pop ecx
		385	@@:
354	serge	386	test [edx+EVENT.state], EVENT_SIGNALED
		387	jnz .done
		388
		389	test ecx, EVENT_WATCHED
		390	jz @F
		391	test [edx+EVENT.state], EVENT_WATCHED
		392	jz .done
		393	@@:
		394	shl eax, 8
380	serge	395	add eax, SLOT_BASE+APP_EV_OFFSET
354	serge	396
		397	pushfd
		398	cli
		399	mov ebx, [edx+APPOBJ.fd]
		400	mov ecx, [edx+APPOBJ.bk]
		401	mov [ebx+APPOBJ.bk], ecx
		402	mov [ecx+APPOBJ.fd], ebx
		403
		404	mov ecx, [eax+APPOBJ.fd]
		405	mov [edx+APPOBJ.fd], ecx
		406	mov [edx+APPOBJ.bk], eax
		407	mov [eax+APPOBJ.fd], edx
		408	mov [ecx+APPOBJ.bk], edx
		409	or [edx+EVENT.state], EVENT_SIGNALED
		410
		411	inc [eax+APPDATA.ev_count-APP_EV_OFFSET]
		412	or [eax+APPDATA.event_mask-APP_EV_OFFSET], EVENT_EXTENDED
		413	popfd
		414	.fail:
		415	.done:
		416	add esp, 4
		417	ret
		418	restore .event
		419
377	serge	420	; param
		421	; eax= event
		422	; ebx= id
		423	align 4
		424	clear_event:
		425	.event equ esp
		426	push eax
		427
		428	cmp [eax+APPOBJ.magic], 'EVNT'
		429	jne .fail
		430	cmp [eax+EVENT.id], ebx
		431	jne .fail
		432
		433	mov eax, [eax+APPOBJ.pid]
		434	call pid_to_slot
		435	test eax, eax
		436	jz .fail
		437
		438	shl eax, 8
380	serge	439	add eax, SLOT_BASE+APP_EV_OFFSET
377	serge	440	mov edx, [.event]
		441	pushfd
		442	cli ;remove event from events
		443	mov ebx, [edx+APPOBJ.fd] ;list (reset event)
		444	mov ecx, [edx+APPOBJ.bk] ;and clear events flag
		445	mov [ebx+APPOBJ.bk], ecx ;if no active events
		446	mov [ecx+APPOBJ.fd], ebx
		447
		448	and [edx+EVENT.state], not (EVENT_SIGNALED+EVENT_WATCHED)
		449
		450	dec [eax+APPDATA.ev_count-APP_EV_OFFSET]
		451	jnz @F
		452	and [eax+APPDATA.event_mask-APP_EV_OFFSET], not EVENT_EXTENDED
		453	@@:
		454	add eax, (APP_OBJ_OFFSET-APP_EV_OFFSET)
		455
		456	mov ecx, [eax+APPOBJ.fd] ;insert event into
		457	mov [edx+APPOBJ.fd], ecx ;objects list
		458	mov [edx+APPOBJ.bk], eax
		459	mov [eax+APPOBJ.fd], edx
		460	mov [ecx+APPOBJ.bk], edx
		461	popfd
		462	.fail:
		463	.done:
		464	add esp, 4
		465	ret
		466	restore .event
		467
1	ha	468	sys_getevent:
		469
		470	call get_event_for_app
		471	mov [esp+36],eax
		472	ret
		473
531	diamond	474	sys_waitforevent:
		475	or eax, 0xFFFFFFFF ; infinite timeout
		476	jmp @f
1	ha	477
		478	sys_wait_event_timeout:
531	diamond	479	add eax, [timer_ticks]
		480	@@:
		481	mov ebx, [current_slot]
		482	mov [ebx + APPDATA.wait_timeout], eax
		483	call get_event_for_app
		484	test eax, eax
		485	jnz eventoccur
1	ha	486
531	diamond	487	mov eax, [TASK_BASE]
		488	mov [eax+TASKDATA.state], byte 5
		489	call change_task
1	ha	490
531	diamond	491	mov eax, [event_sched]
		492	eventoccur:
		493	mov [esp+36], eax
		494	ret
1	ha	495
665	diamond	496	sys_sendwindowmsg:
		497	dec eax
		498	jnz .ret
		499	cmp ebx, 3
		500	jz .sendbtn
		501	cmp ebx, 2
		502	jnz .ret
		503	.sendkey:
		504	pushf
		505	cli
		506	movzx eax, byte [KEY_COUNT]
		507	cmp al, 120
		508	jae .overflow
		509	inc eax
		510	mov [KEY_COUNT], al
		511	mov [KEY_COUNT+eax], cl
		512	jmp .ok
		513	.overflow:
		514	popf
		515	mov dword [esp+36], 1
		516	ret
		517	.sendbtn:
		518	pushf
		519	cli
		520	cmp byte [BTN_COUNT], 0
		521	jnz .overflow
		522	mov byte [BTN_COUNT], 1
		523	mov [BTN_BUFF], ecx
		524	.ok:
		525	popf
		526	and dword [esp+36], 0
		527	.ret:
		528	ret
		529
1	ha	530	get_event_for_app:
		531
		532	pushad
		533
379	serge	534	mov edi,[TASK_BASE] ; WINDOW REDRAW
531	diamond	535	test [edi+TASKDATA.event_mask], 1
1	ha	536	jz no_eventoccur1
379	serge	537	;mov edi,[TASK_BASE]
115	poddubny	538	cmp [edi-twdw+WDATA.fl_redraw],byte 0
1	ha	539	je no_eventoccur1
		540	popad
		541	mov eax,1
		542	ret
		543	no_eventoccur1:
		544
379	serge	545	;mov edi,[TASK_BASE] ; KEY IN BUFFER
115	poddubny	546	test [edi+TASKDATA.event_mask],dword 2
1	ha	547	jz no_eventoccur2
379	serge	548	mov ecx, [CURRENT_TASK]
380	serge	549	movzx edx,word [WIN_STACK+ecx*2]
379	serge	550	mov eax, [TASK_COUNT]
1	ha	551	cmp eax,edx
92	diamond	552	jne no_eventoccur2x
381	serge	553	cmp [KEY_COUNT],byte 0
92	diamond	554	je no_eventoccur2x
		555	eventoccur2:
1	ha	556	popad
		557	mov eax,2
		558	ret
92	diamond	559	no_eventoccur2x:
		560	mov eax, hotkey_buffer
		561	@@:
		562	cmp [eax], ecx
		563	jz eventoccur2
		564	add eax, 8
		565	cmp eax, hotkey_buffer+120*8
		566	jb @b
1	ha	567	no_eventoccur2:
		568
379	serge	569	;mov edi,[TASK_BASE] ; BUTTON IN BUFFER
115	poddubny	570	test [edi+TASKDATA.event_mask],dword 4
1	ha	571	jz no_eventoccur3
381	serge	572	cmp [BTN_COUNT],byte 0
21	poddubny	573	je no_eventoccur3
379	serge	574	mov ecx, [CURRENT_TASK]
380	serge	575	movzx edx, word [WIN_STACK+ecx*2]
379	serge	576	mov eax, [TASK_COUNT]
1	ha	577	cmp eax,edx
		578	jnz no_eventoccur3
		579	popad
381	serge	580	mov eax,[BTN_BUFF]
1	ha	581	cmp eax,65535
		582	je no_event_1
		583	mov eax,3
		584	ret
		585
		586	no_event_1:
		587	mov [window_minimize],1
381	serge	588	mov [BTN_COUNT],byte 0
1	ha	589	xor eax, eax
		590	ret
		591
465	serge	592	no_eventoccur3:
227	serge	593
379	serge	594	;mov edi,[TASK_BASE] ; mouse event
473	diamond	595	mov eax, [CURRENT_TASK]
		596	shl eax, 8
		597	add eax, SLOT_BASE
115	poddubny	598	test [edi+TASKDATA.event_mask],dword 00100000b
21	poddubny	599	jz no_mouse_event
465	serge	600
473	diamond	601	test [eax+APPDATA.event_mask],dword 00100000b
21	poddubny	602	jz no_mouse_event
473	diamond	603	and [eax+APPDATA.event_mask],dword (not 00100000b)
21	poddubny	604	popad
		605	mov eax,6
		606	ret
465	serge	607	no_mouse_event:
1	ha	608
379	serge	609	;mov edi,[TASK_BASE] ; DESKTOP BACKGROUND REDRAW
473	diamond	610	test [edi+TASKDATA.event_mask], 16
1	ha	611	jz no_eventoccur5
473	diamond	612	; cmp [REDRAW_BACKGROUND],byte 2
		613	; jnz no_eventoccur5
		614	test [eax+APPDATA.event_mask], 16
		615	jz no_eventoccur5
		616	and [eax+APPDATA.event_mask], not 16
1	ha	617	popad
		618	mov eax,5
		619	ret
465	serge	620	no_eventoccur5:
1	ha	621
379	serge	622	;mov edi,[TASK_BASE] ; IPC
115	poddubny	623	test [edi+TASKDATA.event_mask],dword 01000000b
1	ha	624	jz no_ipc
473	diamond	625	test [eax+APPDATA.event_mask],dword 01000000b
1	ha	626	jz no_ipc
473	diamond	627	and [eax+APPDATA.event_mask],dword 0xffffffff-01000000b
1	ha	628	popad
		629	mov eax,7
		630	ret
465	serge	631	no_ipc:
1	ha	632
379	serge	633	;mov edi,[TASK_BASE] ; STACK
115	poddubny	634	test [edi+TASKDATA.event_mask],dword 10000000b
1	ha	635	jz no_stack_event
473	diamond	636	test [eax+APPDATA.event_mask],dword 10000000b
1	ha	637	jz no_stack_event
473	diamond	638	and [eax+APPDATA.event_mask],dword 0xffffffff-10000000b
1	ha	639	popad
21	poddubny	640	mov eax,8
1	ha	641	ret
465	serge	642	no_stack_event:
1	ha	643
115	poddubny	644	test byte [edi+TASKDATA.event_mask+1], 1 ; DEBUG
354	serge	645	jz .test_IRQ
473	diamond	646	test byte [eax+APPDATA.event_mask+1], byte 1
354	serge	647	jz .test_IRQ
473	diamond	648	and byte [eax+APPDATA.event_mask+1], not 1
40	halyavin	649	popad
		650	mov eax, 9
		651	ret
		652
354	serge	653	;.test_ext:
379	serge	654	; mov eax, [CURRENT_TASK]
354	serge	655	; shl eax, 8
380	serge	656	; test dword [eax+SLOT_BASE+APPDATA.event_mask], EVENT_EXTENDED
354	serge	657	; jz .test_IRQ
		658	; popad
		659	; mov eax, 10
		660	; ret
227	serge	661
		662	.test_IRQ:
115	poddubny	663	cmp dword [edi+TASKDATA.event_mask], 0xFFFF
21	poddubny	664	jbe no_events
1	ha	665
381	serge	666	mov esi,IRQ_SAVE ; IRQ'S AND DATA
1	ha	667	mov ebx,0x00010000
		668	xor ecx, ecx
		669	irq_event_test:
379	serge	670	mov edi,[TASK_BASE]
115	poddubny	671	test [edi+TASKDATA.event_mask],ebx
1	ha	672	jz no_irq_event
		673	mov edi,ecx
		674	shl edi,2
		675	add edi,irq_owner
		676	mov edx,[edi]
379	serge	677	mov eax,[TASK_BASE]
115	poddubny	678	mov eax,[eax+TASKDATA.pid]
1	ha	679	cmp edx,eax
		680	jne no_irq_event
		681	cmp [esi],dword 0
		682	jz no_irq_event
		683	mov eax,ecx
		684	add eax,16
		685	mov [esp+28],eax
		686	popad
		687	ret
		688	no_irq_event:
		689	add esi,0x1000
		690	shl ebx,1
		691	inc ecx
		692	cmp ecx,16
		693	jb irq_event_test
		694
21	poddubny	695	no_events:
1	ha	696	popad
		697	xor eax, eax
		698	ret
		699

Subversion Repositories Kolibri OS

(root)/kernel/trunk/gui/event.inc – Rev 665