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

Rev	Author	Line No.	Line
1391	mikedld	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		2	;; ;;
5363	yogev_ezra	3	;; Copyright (C) KolibriOS team 2010-2015. All rights reserved. ;;
1391	mikedld	4	;; Distributed under terms of the GNU General Public License ;;
		5	;; ;;
		6	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		7
1531	diamond	8	$Revision: 9850 $
1391	mikedld	9
		10	include 'mousepointer.inc'
		11
5851	pathoswith	12	;================================
		13	;/////// public functions ///////
		14	;================================
1391	mikedld	15
		16	mouse.LEFT_BUTTON_FLAG = 0001b
		17	mouse.RIGHT_BUTTON_FLAG = 0010b
		18	mouse.MIDDLE_BUTTON_FLAG = 0100b
		19
		20	mouse.BUTTONS_MASK = \
		21	mouse.LEFT_BUTTON_FLAG or \
		22	mouse.RIGHT_BUTTON_FLAG or \
		23	mouse.MIDDLE_BUTTON_FLAG
		24
		25	mouse.WINDOW_RESIZE_N_FLAG = 000001b
		26	mouse.WINDOW_RESIZE_W_FLAG = 000010b
		27	mouse.WINDOW_RESIZE_S_FLAG = 000100b
		28	mouse.WINDOW_RESIZE_E_FLAG = 001000b
		29	mouse.WINDOW_MOVE_FLAG = 010000b
		30
		31	mouse.WINDOW_RESIZE_SW_FLAG = \
		32	mouse.WINDOW_RESIZE_S_FLAG or \
		33	mouse.WINDOW_RESIZE_W_FLAG
		34	mouse.WINDOW_RESIZE_SE_FLAG = \
		35	mouse.WINDOW_RESIZE_S_FLAG or \
		36	mouse.WINDOW_RESIZE_E_FLAG
		37
		38	align 4
5851	pathoswith	39	;-----------------------------------------------------------------
		40	mouse_check_events:
		41	; Check if mouse buttons state or cursor position has changed
1391	mikedld	42	push eax ebx
		43	mov al, [BTN_DOWN]
		44	mov bl, [mouse.state.buttons]
		45	and al, mouse.BUTTONS_MASK
		46	mov cl, al
		47	xchg cl, [mouse.state.buttons]
		48	xor bl, al
		49	push eax ebx
		50
		51	; did any mouse button changed its state?
		52	or bl, bl
		53	jz .check_position
		54
		55	; yes it did, is that the first button of all pressed down?
		56	or cl, cl
		57	jnz .check_buttons_released
		58
		59	; yes it is, activate window user is pointing at, if needed
		60	call mouse._.activate_sys_window_under_cursor
		61
		62	; is there any system button under cursor?
2288	clevermous	63	call mouse._.find_sys_button_under_cursor
1391	mikedld	64	or eax, eax
		65	jz .check_buttons_released
		66
		67	; yes there is, activate it and exit
		68	mov [mouse.active_sys_button.pbid], eax
		69	mov [mouse.active_sys_button.coord], ebx
		70	mov cl, [mouse.state.buttons]
		71	mov [mouse.active_sys_button.buttons], cl
		72	call sys_button_activate_handler
		73	jmp .exit
		74
		75	.check_buttons_released:
		76	cmp [mouse.state.buttons], 0
		77	jnz .buttons_changed
		78
		79	; did we press some button earlier?
		80	cmp [mouse.active_sys_button.pbid], 0
		81	je .buttons_changed
		82
		83	; yes we did, deactivate it
		84	xor eax, eax
		85	xchg eax, [mouse.active_sys_button.pbid]
		86	mov ebx, [mouse.active_sys_button.coord]
		87	mov cl, [mouse.active_sys_button.buttons]
		88	push eax ebx
		89	call sys_button_deactivate_handler
		90	pop edx ecx
		91
		92	; is the button under cursor the one we deactivated?
		93	call mouse._.find_sys_button_under_cursor
		94	cmp eax, ecx
		95	jne .exit
		96	cmp ebx, edx
		97	jne .exit
		98
		99	; yes it is, perform associated action
		100	mov cl, [mouse.active_sys_button.buttons]
		101	call sys_button_perform_handler
		102	jmp .exit
		103
		104	.buttons_changed:
		105	test byte[esp], mouse.LEFT_BUTTON_FLAG
		106	jz @f
		107	mov eax, [esp + 4]
		108	call .call_left_button_handler
		109
2288	clevermous	110	@@:
		111	test byte[esp], mouse.RIGHT_BUTTON_FLAG
1391	mikedld	112	jz @f
		113	mov eax, [esp + 4]
		114	call .call_right_button_handler
		115
2288	clevermous	116	@@:
		117	test byte[esp], mouse.MIDDLE_BUTTON_FLAG
1391	mikedld	118	jz .check_position
		119	mov eax, [esp + 4]
		120	call .call_middle_button_handler
		121
		122	.check_position:
		123	movzx eax, word[MOUSE_X]
		124	movzx ebx, word[MOUSE_Y]
		125	cmp eax, [mouse.state.pos.x]
		126	jne .position_changed
		127	cmp ebx, [mouse.state.pos.y]
		128	je .exit
		129
		130	.position_changed:
		131	xchg eax, [mouse.state.pos.x]
		132	xchg ebx, [mouse.state.pos.y]
		133
		134	call mouse._.move_handler
		135
		136	.exit:
		137	add esp, 8
		138	pop ebx eax
		139	ret
		140
		141	.call_left_button_handler:
		142	test eax, mouse.LEFT_BUTTON_FLAG
		143	jnz mouse._.left_button_press_handler
		144	jmp mouse._.left_button_release_handler
		145
		146	.call_right_button_handler:
		147	test eax, mouse.RIGHT_BUTTON_FLAG
		148	jnz mouse._.right_button_press_handler
		149	jmp mouse._.right_button_release_handler
		150
		151	.call_middle_button_handler:
		152	test eax, mouse.MIDDLE_BUTTON_FLAG
		153	jnz mouse._.middle_button_press_handler
		154	jmp mouse._.middle_button_release_handler
		155
5851	pathoswith	156	;===============================
		157	;////// private functions //////
		158	;===============================
1391	mikedld	159
		160	uglobal
		161	mouse.state:
		162	.pos POINT
		163	.buttons db ?
		164
5851	pathoswith	165	; NOTE: since there's no unique and lifetime-constant button identifiers,
		166	; we are using two dwords to identify each of them:
		167	; * pbid - process slot (high 8 bits) and button id (low 24 bits) pack
		168	; * coord - left (high 16 bits) and top (low 16 bits) coordinates pack
1391	mikedld	169	align 4
		170	mouse.active_sys_button:
		171	.pbid dd ?
		172	.coord dd ?
		173	.buttons db ?
		174
		175	align 4
		176	mouse.active_sys_window:
		177	.pslot dd ?
		178	.old_box BOX
		179	.new_box BOX
		180	.delta POINT
		181	.last_ticks dd ?
		182	.action db ?
		183	endg
		184
5870	GerdtR	185	iglobal
		186	fl_moving db 0
		187	rb 3
		188	endg
		189
1391	mikedld	190	align 4
5851	pathoswith	191	;-----------------------------------------------------------------
		192	mouse._.left_button_press_handler:
		193	; Called when left mouse button has been pressed down
		194	bts word [BTN_DOWN], 8
		195	mov eax, [timer_ticks]
		196	mov ebx, eax
		197	xchg ebx, [mouse.active_sys_window.last_ticks]
		198	sub eax, ebx
		199	movzx ebx, [mouse_doubleclick_delay]
		200	cmp eax, ebx
		201	jg @f
		202	bts dword [BTN_DOWN], 24
		203	@@:
1391	mikedld	204	test [mouse.state.buttons], not mouse.LEFT_BUTTON_FLAG
		205	jnz .exit
		206
		207	call mouse._.find_sys_window_under_cursor
		208	call mouse._.check_sys_window_actions
		209	mov [mouse.active_sys_window.action], al
		210	or eax, eax
		211	jz .exit
		212
		213	xchg eax, edx
		214	test dl, mouse.WINDOW_MOVE_FLAG
		215	jz @f
		216
5851	pathoswith	217	bt dword [BTN_DOWN], 24
		218	jnc @f
1391	mikedld	219
		220	mov [mouse.active_sys_window.last_ticks], 0
		221	call sys_window_maximize_handler
		222	jmp .exit
		223
2288	clevermous	224	@@:
		225	test [edi + WDATA.fl_wstate], WSTATE_MAXIMIZED
1391	mikedld	226	jnz .exit
		227	mov [mouse.active_sys_window.pslot], esi
		228	lea eax, [edi + WDATA.box]
		229	mov ebx, mouse.active_sys_window.old_box
2381	hidnplayr	230	mov ecx, sizeof.BOX
1391	mikedld	231	call memmove
		232	mov ebx, mouse.active_sys_window.new_box
		233	call memmove
		234	test edx, mouse.WINDOW_MOVE_FLAG
		235	jz @f
		236
		237	call .calculate_n_delta
		238	call .calculate_w_delta
		239	jmp .call_window_handler
		240
2288	clevermous	241	@@:
		242	test dl, mouse.WINDOW_RESIZE_W_FLAG
1391	mikedld	243	jz @f
		244	call .calculate_w_delta
		245
2288	clevermous	246	@@:
		247	test dl, mouse.WINDOW_RESIZE_S_FLAG
1391	mikedld	248	jz @f
		249	call .calculate_s_delta
		250
2288	clevermous	251	@@:
		252	test dl, mouse.WINDOW_RESIZE_E_FLAG
1391	mikedld	253	jz .call_window_handler
		254	call .calculate_e_delta
		255
		256	.call_window_handler:
		257	.exit:
		258	ret
		259
		260	.calculate_n_delta:
		261	mov eax, [mouse.state.pos.y]
		262	sub eax, [mouse.active_sys_window.old_box.top]
		263	mov [mouse.active_sys_window.delta.y], eax
		264	ret
		265
		266	.calculate_w_delta:
		267	mov eax, [mouse.state.pos.x]
		268	sub eax, [mouse.active_sys_window.old_box.left]
		269	mov [mouse.active_sys_window.delta.x], eax
		270	ret
		271
		272	.calculate_s_delta:
		273	mov eax, [mouse.active_sys_window.old_box.top]
		274	add eax, [mouse.active_sys_window.old_box.height]
		275	sub eax, [mouse.state.pos.y]
		276	mov [mouse.active_sys_window.delta.y], eax
		277	ret
		278
		279	.calculate_e_delta:
		280	mov eax, [mouse.active_sys_window.old_box.left]
		281	add eax, [mouse.active_sys_window.old_box.width]
		282	sub eax, [mouse.state.pos.x]
		283	mov [mouse.active_sys_window.delta.x], eax
		284	ret
		285
		286	align 4
5851	pathoswith	287	;-----------------------------------------------------------------
		288	mouse._.left_button_release_handler:
		289	; Called when left mouse button has been released
		290	bts dword [BTN_DOWN], 16
1391	mikedld	291	xor esi, esi
		292	xchg esi, [mouse.active_sys_window.pslot]
		293	or esi, esi
		294	jz .exit
		295
		296	mov eax, esi
		297	shl eax, 5
		298	add eax, window_data + WDATA.box
		299	mov ebx, mouse.active_sys_window.old_box
2381	hidnplayr	300	mov ecx, sizeof.BOX
1391	mikedld	301	call memmove
		302
		303	mov eax, mouse.active_sys_window.old_box
		304	mov ebx, mouse.active_sys_window.new_box
		305	call sys_window_end_moving_handler
		306
		307	.exit:
2011	mikedld	308	and [mouse.active_sys_window.action], 0
5870	GerdtR	309	mov [fl_moving], 0
1391	mikedld	310	ret
		311
5851	pathoswith	312	mouse._.right_button_press_handler:
		313	bts word [BTN_DOWN], 9
1391	mikedld	314	test [mouse.state.buttons], not mouse.RIGHT_BUTTON_FLAG
5851	pathoswith	315	jnz @f
1391	mikedld	316	call mouse._.find_sys_window_under_cursor
		317	call mouse._.check_sys_window_actions
		318	test al, mouse.WINDOW_MOVE_FLAG
5851	pathoswith	319	jz @f
		320	jmp sys_window_rollup_handler
1391	mikedld	321
5851	pathoswith	322	mouse._.right_button_release_handler:
		323	bts dword [BTN_DOWN], 17
		324	@@:
1391	mikedld	325	ret
		326
5851	pathoswith	327	mouse._.middle_button_press_handler:
		328	bts word [BTN_DOWN], 10
1391	mikedld	329	ret
		330
5851	pathoswith	331	mouse._.middle_button_release_handler:
		332	bts dword [BTN_DOWN], 18
1391	mikedld	333	ret
		334
		335	align 4
5851	pathoswith	336	;-----------------------------------------------------------------
		337	mouse._.move_handler:
		338	; Called when cursor has been moved
1391	mikedld	339	;> eax = old x coord
		340	;> ebx = old y coord
9848	rgimad	341	push eax ebx
		342
		343	call mouse._.find_sys_window_under_cursor
		344	call mouse._.check_sys_window_actions
		345
9850	rgimad	346	; if now we are resizing the window, dont change the cursor
		347	mov bl, [mouse.active_sys_window.action]
		348	and bl, mouse.WINDOW_RESIZE_S_FLAG or mouse.WINDOW_RESIZE_W_FLAG or mouse.WINDOW_RESIZE_E_FLAG
		349	test bl, bl
		350	jnz .end1
		351
9848	rgimad	352	cmp al, mouse.WINDOW_RESIZE_SW_FLAG
		353	jne .not_sw
		354	; DEBUGF 1, "RESIZE SOUTH-WEST\n"
		355
		356	mov eax, [def_cursor_dresize2]
		357
		358	jmp .set_resizing_cursor
		359	.not_sw:
		360	cmp al, mouse.WINDOW_RESIZE_SE_FLAG
		361	jne .not_se
		362	; DEBUGF 1, "RESIZE SOUTH-EAST\n"
		363
		364	mov eax, [def_cursor_dresize1]
		365
		366	jmp .set_resizing_cursor
		367	.not_se:
		368	cmp al, mouse.WINDOW_RESIZE_W_FLAG
		369	jne .not_w
		370	; DEBUGF 1, "RESIZE WEST\n"
		371
		372	mov eax, [def_cursor_hresize]
		373
		374	jmp .set_resizing_cursor
		375	.not_w:
		376	cmp al, mouse.WINDOW_RESIZE_S_FLAG
		377	jne .not_s
		378	; DEBUGF 1, "RESIZE SOUTH\n"
		379
		380	mov eax, [def_cursor_vresize]
		381
		382	jmp .set_resizing_cursor
		383	.not_s:
		384	cmp al, mouse.WINDOW_RESIZE_E_FLAG
		385	jne .not_in_resize_area
		386	; DEBUGF 1, "RESIZE EAST\n"
		387
		388	mov eax, [def_cursor_hresize]
		389
		390	.set_resizing_cursor:
9850	rgimad	391	; DEBUGF 1, ".set_resizing_cursor eax = %x\n", eax
9848	rgimad	392	; change cursor to resizing cursor
		393	shl esi, BSF sizeof.APPDATA
		394	add esi, SLOT_BASE
		395
		396	; if resizing cursor we need (eax) isnt set already, set it
		397	cmp eax, [esi + APPDATA.cursor]
		398	je @f
		399
9850	rgimad	400	; DEBUGF 1, "changing cursor to resizing\n"
9848	rgimad	401	xchg eax, [esi + APPDATA.cursor] ; set resizing cursor, prev cursor goes to eax
		402	; save previous cursor (will be restored when we'll get out of the resizing area)
		403	; if we change resizing cursor to resizing cursor then dont update previous cursor
		404	cmp eax, [def_cursor_hresize]
		405	je @f
		406	cmp eax, [def_cursor_vresize]
		407	je @f
		408	cmp eax, [def_cursor_dresize1]
		409	je @f
		410	cmp eax, [def_cursor_dresize2]
		411	je @f
		412
		413	mov [esi + APPDATA.temp_cursor], eax ; save prev cursor
		414
		415	@@:
		416	jmp .end1
		417	.not_in_resize_area:
9850	rgimad	418	; DEBUGF 1, ".not_in_resize_area\n"
		419
9848	rgimad	420	shl esi, BSF sizeof.APPDATA
		421	add esi, SLOT_BASE
		422	mov eax, [esi + APPDATA.temp_cursor]
		423
		424	test eax, eax
		425	jz .end1
		426
		427	; restore prev cursor
		428	mov [esi + APPDATA.temp_cursor], 0
		429	mov [esi + APPDATA.cursor], eax
		430
		431	.end1:
		432	pop ebx eax
		433
1391	mikedld	434	cmp [mouse.active_sys_button.pbid], 0
		435	jnz .exit
		436
		437	mov esi, [mouse.active_sys_window.pslot]
		438	or esi, esi
		439	jz .exit
		440
		441	mov eax, mouse.active_sys_window.new_box
		442	mov ebx, mouse.active_sys_window.old_box
2381	hidnplayr	443	mov ecx, sizeof.BOX
1391	mikedld	444	call memmove
		445
		446	mov dl, [mouse.active_sys_window.action]
		447	test dl, mouse.WINDOW_MOVE_FLAG
		448	jz .check_resize_w
		449
		450	mov eax, [mouse.state.pos.x]
		451	sub eax, [mouse.active_sys_window.delta.x]
		452	mov [mouse.active_sys_window.new_box.left], eax
		453	mov eax, [mouse.state.pos.y]
		454	sub eax, [mouse.active_sys_window.delta.y]
		455	mov [mouse.active_sys_window.new_box.top], eax
		456
		457	mov eax, [mouse.active_sys_window.new_box.left]
		458	or eax, eax
		459	jge @f
		460	xor eax, eax
		461	mov [mouse.active_sys_window.new_box.left], eax
2288	clevermous	462	@@:
		463	add eax, [mouse.active_sys_window.new_box.width]
5350	serge	464	cmp eax, [_display.width]
1391	mikedld	465	jl @f
5350	serge	466	sub eax, [_display.width]
8928	dunkaist	467	inc eax
1391	mikedld	468	sub [mouse.active_sys_window.new_box.left], eax
2288	clevermous	469	@@:
		470	mov eax, [mouse.active_sys_window.new_box.top]
1391	mikedld	471	or eax, eax
		472	jge @f
		473	xor eax, eax
		474	mov [mouse.active_sys_window.new_box.top], eax
2288	clevermous	475	@@:
		476	add eax, [mouse.active_sys_window.new_box.height]
5350	serge	477	cmp eax, [_display.height]
		478	jl .call_window_handler
		479	sub eax, [_display.height]
8928	dunkaist	480	inc eax
1391	mikedld	481	sub [mouse.active_sys_window.new_box.top], eax
		482	jmp .call_window_handler
		483
		484	.check_resize_w:
		485	test dl, mouse.WINDOW_RESIZE_W_FLAG
		486	jz .check_resize_s
		487
		488	mov eax, [mouse.state.pos.x]
		489	sub eax, [mouse.active_sys_window.delta.x]
		490	mov [mouse.active_sys_window.new_box.left], eax
		491	sub eax, [mouse.active_sys_window.old_box.left]
		492	sub [mouse.active_sys_window.new_box.width], eax
		493
		494	mov eax, [mouse.active_sys_window.new_box.width]
		495	sub eax, 127
		496	jge @f
		497	add [mouse.active_sys_window.new_box.left], eax
		498	mov [mouse.active_sys_window.new_box.width], 127
2288	clevermous	499	@@:
		500	mov eax, [mouse.active_sys_window.new_box.left]
1391	mikedld	501	or eax, eax
		502	jge .check_resize_s
		503	add [mouse.active_sys_window.new_box.width], eax
		504	xor eax, eax
		505	mov [mouse.active_sys_window.new_box.left], eax
		506
		507	.check_resize_s:
		508	test dl, mouse.WINDOW_RESIZE_S_FLAG
		509	jz .check_resize_e
		510
		511	mov eax, [mouse.state.pos.y]
		512	add eax, [mouse.active_sys_window.delta.y]
		513	sub eax, [mouse.active_sys_window.old_box.top]
		514	mov [mouse.active_sys_window.new_box.height], eax
		515
		516	push eax
		517	mov edi, esi
		518	shl edi, 5
		519	add edi, window_data
		520	call window._.get_rolledup_height
		521	mov ecx, eax
		522	pop eax
		523	mov eax, [mouse.active_sys_window.new_box.height]
		524	cmp eax, ecx
		525	jge @f
		526	mov eax, ecx
		527	mov [mouse.active_sys_window.new_box.height], eax
2288	clevermous	528	@@:
		529	add eax, [mouse.active_sys_window.new_box.top]
5350	serge	530	cmp eax, [_display.height]
		531	jl .check_resize_e
		532	sub eax, [_display.height]
1391	mikedld	533	neg eax
		534	add [mouse.active_sys_window.new_box.height], eax
5350	serge	535	mov ecx, [_display.height]
1391	mikedld	536	cmp ecx, eax
5350	serge	537	jg .check_resize_e
1391	mikedld	538	mov [mouse.active_sys_window.new_box.height], ecx
		539
		540	.check_resize_e:
		541	test dl, mouse.WINDOW_RESIZE_E_FLAG
		542	jz .call_window_handler
		543
		544	mov eax, [mouse.state.pos.x]
		545	add eax, [mouse.active_sys_window.delta.x]
		546	sub eax, [mouse.active_sys_window.old_box.left]
		547	mov [mouse.active_sys_window.new_box.width], eax
		548
		549	mov eax, [mouse.active_sys_window.new_box.width]
		550	cmp eax, 127
		551	jge @f
		552	mov eax, 127
		553	mov [mouse.active_sys_window.new_box.width], eax
2288	clevermous	554	@@:
		555	add eax, [mouse.active_sys_window.new_box.left]
5350	serge	556	cmp eax, [_display.width]
		557	jl .call_window_handler
		558	sub eax, [_display.width]
1391	mikedld	559	neg eax
		560	add [mouse.active_sys_window.new_box.width], eax
5350	serge	561	mov ecx, [_display.width]
1391	mikedld	562	cmp ecx, eax
5350	serge	563	jg .call_window_handler
1391	mikedld	564	mov [mouse.active_sys_window.new_box.width], ecx
		565
		566	.call_window_handler:
		567	mov eax, mouse.active_sys_window.old_box
		568	mov ebx, mouse.active_sys_window.new_box
		569
		570	push esi
		571	mov esi, mouse.active_sys_window.old_box
		572	mov edi, mouse.active_sys_window.new_box
2381	hidnplayr	573	mov ecx, sizeof.BOX / 4
1391	mikedld	574	repe
		575	cmpsd
		576	pop esi
		577	je .exit
		578
5870	GerdtR	579	test [fl_moving], 1
		580	jnz @f
		581
		582	mov [fl_moving], 1
		583	push edi
		584	mov edi, esi
		585	shl edi, 5
		586	add edi, WDATA.box + window_data
		587	call window._.draw_negative_box
		588	pop edi
		589	@@:
		590
		591
1391	mikedld	592	mov [mouse.active_sys_window.last_ticks], 0
		593	call sys_window_moving_handler
		594
		595	.exit:
		596	ret
		597
		598	align 4
5851	pathoswith	599	;-----------------------------------------------------------------
		600	mouse._.find_sys_window_under_cursor:
		601	; Find system window object which is currently visible on screen
		602	; and has mouse cursor within its bounds
1391	mikedld	603	;< esi = process slot
		604	;< edi = pointer to WDATA struct
2446	mario79	605	mov esi, [mouse.state.pos.y]
		606	mov esi, [d_width_calc_area + esi*4]
		607
5351	serge	608	add esi, [_display.win_map]
1391	mikedld	609	add esi, [mouse.state.pos.x]
		610	movzx esi, byte[esi]
		611	mov edi, esi
		612	shl edi, 5
		613	add edi, window_data
		614	ret
		615
		616	align 4
5851	pathoswith	617	;-----------------------------------------------------------------
		618	mouse._.activate_sys_window_under_cursor:
		619	; activate and redraw window under cursor (if necessary)
1391	mikedld	620	call mouse._.find_sys_window_under_cursor
		621	movzx esi, word[WIN_STACK + esi * 2]
		622	lea esi, [WIN_POS + esi * 2]
		623	jmp waredraw
		624
		625	align 4
5851	pathoswith	626	;-----------------------------------------------------------------
		627	mouse._.find_sys_button_under_cursor:
		628	; Find system button object which is currently visible on screen
		629	; and has mouse cursor within its bounds
1391	mikedld	630	;< eax = pack[8(process slot), 24(button id)] or 0
		631	;< ebx = pack[16(button x coord), 16(button y coord)]
		632	push ecx edx esi edi
		633
		634	call mouse._.find_sys_window_under_cursor
		635	mov edx, esi
		636
		637	; check if any process button contains cursor
		638	mov eax, [BTN_ADDR]
		639	mov ecx, [eax]
2384	hidnplayr	640	imul esi, ecx, sizeof.SYS_BUTTON
1391	mikedld	641	add esi, eax
		642	inc ecx
2384	hidnplayr	643	add esi, sizeof.SYS_BUTTON
1391	mikedld	644
		645	.next_button:
		646	dec ecx
		647	jz .not_found
		648
2384	hidnplayr	649	add esi, -sizeof.SYS_BUTTON
1391	mikedld	650
		651	; does it belong to our process?
		652	cmp dx, [esi + SYS_BUTTON.pslot]
		653	jne .next_button
		654
		655	; does it contain cursor coordinates?
		656	mov eax, [mouse.state.pos.x]
		657	sub eax, [edi + WDATA.box.left]
		658	sub ax, [esi + SYS_BUTTON.left]
		659	jl .next_button
		660	sub ax, [esi + SYS_BUTTON.width]
		661	jge .next_button
		662	mov eax, [mouse.state.pos.y]
		663	sub eax, [edi + WDATA.box.top]
		664	sub ax, [esi + SYS_BUTTON.top]
		665	jl .next_button
		666	sub ax, [esi + SYS_BUTTON.height]
		667	jge .next_button
		668
		669	; okay, return it
		670	shl edx, 24
		671	mov eax, dword[esi + SYS_BUTTON.id_hi - 2]
		672	mov ax, [esi + SYS_BUTTON.id_lo]
		673	and eax, 0x0ffffff
		674	or eax, edx
		675	mov ebx, dword[esi + SYS_BUTTON.left - 2]
		676	mov bx, [esi + SYS_BUTTON.top]
		677	jmp .exit
		678
		679	.not_found:
		680	xor eax, eax
		681	xor ebx, ebx
		682
		683	.exit:
		684	pop edi esi edx ecx
		685	ret
		686
		687	align 4
5851	pathoswith	688	;-----------------------------------------------------------------
		689	mouse._.check_sys_window_actions:
1391	mikedld	690	;< eax = action flags or 0
		691	; is window movable?
		692	test byte[edi + WDATA.cl_titlebar + 3], 0x01
		693	jnz .no_action
		694
		695	mov eax, [mouse.state.pos.x]
		696	mov ebx, [mouse.state.pos.y]
		697	sub eax, [edi + WDATA.box.left]
		698	sub ebx, [edi + WDATA.box.top]
		699
		700	; is there a window titlebar under cursor?
		701	push eax
		702	call window._.get_titlebar_height
		703	cmp ebx, eax
		704	pop eax
		705	jl .move_action
		706
		707	; no there isn't, can it be resized then?
		708	mov dl, [edi + WDATA.fl_wstyle]
		709	and dl, 0x0f
5851	pathoswith	710	; NOTE: dangerous optimization, revise if window types changed
		711	; this currently implies only types 2 and 3 could be resized
1391	mikedld	712	test dl, 2
		713	jz .no_action
		714
		715	mov ecx, [edi + WDATA.box.width]
		716	add ecx, -window.BORDER_SIZE
		717	mov edx, [edi + WDATA.box.height]
		718	add edx, -window.BORDER_SIZE
		719
		720	; is it rolled up?
		721	test [edi + WDATA.fl_wstate], WSTATE_ROLLEDUP
		722	jnz .resize_w_or_e_action
		723
		724	cmp eax, window.BORDER_SIZE
		725	jl .resize_w_action
		726	cmp eax, ecx
		727	jg .resize_e_action
		728	cmp ebx, edx
		729	jle .no_action
		730
		731	.resize_s_action:
		732	cmp eax, window.BORDER_SIZE + 10
		733	jl .resize_sw_action
		734	add ecx, -10
		735	cmp eax, ecx
		736	jge .resize_se_action
		737	mov eax, mouse.WINDOW_RESIZE_S_FLAG
		738	jmp .exit
		739
		740	.resize_w_or_e_action:
		741	cmp eax, window.BORDER_SIZE + 10
		742	jl .resize_w_action.direct
		743	add ecx, -10
		744	cmp eax, ecx
		745	jg .resize_e_action.direct
		746	jmp .no_action
		747
		748	.resize_w_action:
		749	add edx, -10
		750	cmp ebx, edx
		751	jge .resize_sw_action
		752	.resize_w_action.direct:
		753	mov eax, mouse.WINDOW_RESIZE_W_FLAG
		754	jmp .exit
		755
		756	.resize_e_action:
		757	add edx, -10
		758	cmp ebx, edx
		759	jge .resize_se_action
		760	.resize_e_action.direct:
		761	mov eax, mouse.WINDOW_RESIZE_E_FLAG
		762	jmp .exit
		763
		764	.resize_sw_action:
		765	mov eax, mouse.WINDOW_RESIZE_SW_FLAG
		766	jmp .exit
		767
		768	.resize_se_action:
		769	mov eax, mouse.WINDOW_RESIZE_SE_FLAG
		770	jmp .exit
		771
		772	.move_action:
		773	mov eax, mouse.WINDOW_MOVE_FLAG
		774	jmp .exit
		775
		776	.no_action:
		777	xor eax, eax
		778
		779	.exit:
		780	ret
9514	rgimad	781	;-----------------------------------------------------------------------------
		782
		783	align 4
		784	readmousepos:
		785	; eax=0 screen relative
		786	; eax=1 window relative
		787	; eax=2 buttons pressed
		788	; eax=3 buttons pressed ext
		789	; eax=4 load cursor
		790	; eax=5 set cursor
		791	; eax=6 delete cursor
		792	; eax=7 get mouse_z
		793	; eax=8 load cursor unicode
		794	cmp ebx, 8
		795	ja @f
		796	jmp dword[.mousefn+ebx*4]
		797
		798	align 4
		799	.mousefn:
		800	dd .msscreen
		801	dd .mswin
		802	dd .msbutton
		803	dd .msbuttonExt
		804	dd .app_load_cursor
		805	dd .app_set_cursor
		806	dd .app_delete_cursor
		807	dd .msz
		808	dd .loadCursorUni
		809
		810	.msscreen:
		811	mov eax, [MOUSE_X]
		812	shl eax, 16
		813	mov ax, [MOUSE_Y]
9831	dunkaist	814	mov [esp + SYSCALL_STACK.eax], eax
9514	rgimad	815	@@:
		816	ret
		817
		818	.mswin:
		819	mov eax, [MOUSE_X]
		820	shl eax, 16
		821	mov ax, [MOUSE_Y]
9709	Doczom	822	mov esi, [current_slot_idx]
		823	shl esi, BSF sizeof.WDATA
		824	mov bx, word [esi + window_data + WDATA.box.left]
9514	rgimad	825	shl ebx, 16
9709	Doczom	826	mov bx, word [esi + window_data + WDATA.box.top]
9514	rgimad	827	sub eax, ebx
9828	Doczom	828	mov edi, [current_slot]
		829	sub ax, word[edi + APPDATA.wnd_clientbox.top]
9514	rgimad	830	rol eax, 16
9828	Doczom	831	sub ax, word[edi + APPDATA.wnd_clientbox.left]
9514	rgimad	832	rol eax, 16
9831	dunkaist	833	mov [esp + SYSCALL_STACK.eax], eax
9514	rgimad	834	ret
		835
		836	.msbutton:
		837	movzx eax, byte [BTN_DOWN]
9831	dunkaist	838	mov [esp + SYSCALL_STACK.eax], eax
9514	rgimad	839	ret
		840
		841	.msbuttonExt:
		842	mov eax, [BTN_DOWN]
9831	dunkaist	843	mov [esp + SYSCALL_STACK.eax], eax
9514	rgimad	844	ret
		845
		846	.app_load_cursor:
		847	cmp ecx, OS_BASE
		848	jae @f
		849	stdcall load_cursor, ecx, edx
9831	dunkaist	850	mov [esp + SYSCALL_STACK.eax], eax
9514	rgimad	851	@@:
		852	ret
		853
		854	.loadCursorUni:
		855	cmp ecx, OS_BASE
		856	jae @b
		857	push ecx edx
		858	stdcall kernel_alloc, maxPathLength
		859	mov edi, eax
		860	pop eax esi
		861	push edi
		862	call getFullPath
		863	pop ebp
		864	test eax, eax
		865	jz @f
		866	stdcall load_cursor, ebp, LOAD_FROM_FILE
9831	dunkaist	867	mov [esp + SYSCALL_STACK.eax], eax
9514	rgimad	868	@@:
		869	stdcall kernel_free, ebp
		870	ret
		871
		872	.app_set_cursor:
		873	stdcall set_cursor, ecx
9831	dunkaist	874	mov [esp + SYSCALL_STACK.eax], eax
9514	rgimad	875	ret
		876
		877	.app_delete_cursor:
		878	stdcall delete_cursor, ecx
9831	dunkaist	879	mov [esp + SYSCALL_STACK.eax], eax
9514	rgimad	880	ret
		881
		882	.msz:
		883	mov edi, [thread_count]
		884	movzx edi, word [WIN_POS + edi*2]
		885	cmp edi, [current_slot_idx]
		886	jne @f
		887	mov ax, [MOUSE_SCROLL_H]
		888	shl eax, 16
		889	mov ax, [MOUSE_SCROLL_V]
9831	dunkaist	890	mov [esp + SYSCALL_STACK.eax], eax
9514	rgimad	891	and [MOUSE_SCROLL_H], word 0
		892	and [MOUSE_SCROLL_V], word 0
		893	ret
		894	@@:
9831	dunkaist	895	and [esp + SYSCALL_STACK.eax], dword 0
		896	ret

Subversion Repositories Kolibri OS

(root)/kernel/trunk/gui/mouse.inc – Rev 9850