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

Rev	Author	Line No.	Line
1334	mikedld	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		2	;; ;;
5363	yogev_ezra	3	;; Copyright (C) KolibriOS team 2004-2015. All rights reserved. ;;
1334	mikedld	4	;; Copyright (C) MenuetOS 2000-2004 Ville Mikael Turjanmaa ;;
		5	;; Distributed under terms of the GNU General Public License ;;
		6	;; ;;
		7	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		8
		9	$Revision: 5363 $
		10
		11	;==============================================================================
		12	;///// public functions ///////////////////////////////////////////////////////
		13	;==============================================================================
		14
1391	mikedld	15	button.MAX_BUTTONS = 4095
		16
2384	hidnplayr	17	struct SYS_BUTTON
		18	pslot dw ?
		19	id_lo dw ?
		20	left dw ?
		21	width dw ?
		22	top dw ?
		23	height dw ?
		24	id_hi dw ?
		25	dw ?
		26	ends
1334	mikedld	27
		28	align 4
		29	;------------------------------------------------------------------------------
		30	syscall_button: ;///// system function 8 //////////////////////////////////////
		31	;------------------------------------------------------------------------------
1362	mikedld	32	;? Define/undefine GUI button object
1334	mikedld	33	;------------------------------------------------------------------------------
1362	mikedld	34	;; Define button:
		35	;> ebx = pack[16(x), 16(width)]
		36	;> ecx = pack[16(y), 16(height)]
		37	;> edx = pack[8(flags), 24(button identifier)]
		38	;> flags bits:
		39	;> 7 (31) = 0
		40	;> 6 (30) = don't draw button
		41	;> 5 (29) = don't draw button frame when pressed
		42	;> esi = button color
1334	mikedld	43	; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1362	mikedld	44	;; Undefine button:
		45	;> edx = pack[8(flags), 24(button identifier)]
		46	;> flags bits:
		47	;> 7 (31) = 1
1334	mikedld	48	;------------------------------------------------------------------------------
		49	; do we actually need to undefine the button?
		50	test edx, 0x80000000
		51	jnz .remove_button
		52
		53	; do we have free button slots available?
		54	mov edi, [BTN_ADDR]
		55	mov eax, [edi]
1391	mikedld	56	cmp eax, button.MAX_BUTTONS
1334	mikedld	57	jge .exit
		58
		59	; does it have positive size? (otherwise it doesn't have sense)
		60	or bx, bx
		61	jle .exit
		62	or cx, cx
		63	jle .exit
		64
		65	; make coordinates clientbox-relative
		66	push eax
		67	mov eax, [current_slot]
		68	rol ebx, 16
		69	add bx, word[eax + APPDATA.wnd_clientbox.left]
		70	rol ebx, 16
		71	rol ecx, 16
		72	add cx, word[eax + APPDATA.wnd_clientbox.top]
		73	rol ecx, 16
		74	pop eax
		75
		76	; basic checks passed, define the button
		77	push ebx ecx edx
		78	inc eax
		79	mov [edi], ax
		80	shl eax, 4
		81	add edi, eax
		82	; NOTE: this code doesn't rely on SYS_BUTTON struct, please revise it
		83	; if you change something
		84	mov ax, [CURRENT_TASK]
		85	stosw
		86	mov ax, dx
		87	stosw ; button id number: bits 0-15
		88	mov eax, ebx
		89	rol eax, 16
		90	stosd ; x start \| x size
		91	mov eax, ecx
		92	rol eax, 16
		93	stosd ; y start \| y size
		94	mov eax, edx
		95	shr eax, 16
		96	stosw ; button id number: bits 16-31
		97	pop edx ecx ebx
		98
		99	; do we also need to draw the button?
		100	test edx, 0x40000000
		101	jnz .exit
		102
5185	mario79	103	; draw button body
		104
1334	mikedld	105	pushad
5185	mario79	106
		107	; calculate window-relative coordinates
		108	movzx edi, cx
		109	shr ebx, 16
		110	shr ecx, 16
		111	mov eax, [TASK_BASE]
		112	add ebx, [eax - twdw + WDATA.box.left]
		113	add ecx, [eax - twdw + WDATA.box.top]
		114	mov eax, ebx
		115	shl eax, 16
		116	mov ax, bx
		117	add ax, word[esp + 16]
		118	mov ebx, ecx
		119	shl ebx, 16
		120	mov bx, cx
		121
		122	; calculate initial color
1334	mikedld	123	mov ecx, esi
		124	cmp [buttontype], 0
5185	mario79	125	je @f
		126	call button._.incecx2
		127
		128	; set button height counter
		129	@@:
		130	mov edx, edi
		131
		132	.next_line:
1334	mikedld	133	call button._.button_dececx
5185	mario79	134	push edi
		135	xor edi, edi
		136	; call [draw_line]
2453	mario79	137	call __sys_draw_line
5185	mario79	138	pop edi
1334	mikedld	139	add ebx, 0x00010001
		140	dec edx
		141	jnz .next_line
5185	mario79	142
4970	Akyltist	143	popad
1334	mikedld	144
5185	mario79	145	; draw button frame
4970	Akyltist	146
5185	mario79	147	push ebx ecx
1334	mikedld	148
5185	mario79	149	; calculate window-relative coordinates
		150	shr ebx, 16
		151	shr ecx, 16
		152	mov eax, [TASK_BASE]
		153	add ebx, [eax - twdw + WDATA.box.left]
		154	add ecx, [eax - twdw + WDATA.box.top]
1334	mikedld	155
5185	mario79	156	; top border
		157	mov eax, ebx
		158	shl eax, 16
		159	mov ax, bx
		160	add ax, [esp + 4]
1334	mikedld	161	mov ebx, ecx
		162	shl ebx, 16
5185	mario79	163	mov bx, cx
		164	push ebx
1334	mikedld	165	xor edi, edi
5185	mario79	166	mov ecx, esi
		167	call button._.incecx
		168	; call [draw_line]
2453	mario79	169	call __sys_draw_line
1334	mikedld	170
5185	mario79	171	; bottom border
		172	movzx edx, word[esp + 4 + 0]
		173	add ebx, edx
		174	shl edx, 16
		175	add ebx, edx
		176	mov ecx, esi
		177	call button._.dececx
		178	; call [draw_line]
2453	mario79	179	call __sys_draw_line
1334	mikedld	180
5185	mario79	181	; left border
		182	pop ebx
		183	push edx
		184	mov edx, eax
		185	shr edx, 16
		186	mov ax, dx
		187	mov edx, ebx
		188	shr edx, 16
		189	mov bx, dx
		190	add bx, [esp + 4 + 0]
		191	pop edx
		192	mov ecx, esi
		193	call button._.incecx
		194	; call [draw_line]
2453	mario79	195	call __sys_draw_line
1334	mikedld	196
5185	mario79	197	; right border
		198	mov dx, [esp + 4]
		199	add ax, dx
		200	shl edx, 16
		201	add eax, edx
		202	add ebx, 0x00010000
		203	mov ecx, esi
		204	call button._.dececx
		205	; call [draw_line]
2453	mario79	206	call __sys_draw_line
5185	mario79	207
		208	pop ecx ebx
		209
		210	.exit:
1334	mikedld	211	ret
		212
		213	; FIXME: mutex needed
		214	syscall_button.remove_button:
		215	and edx, 0x00ffffff
		216	mov edi, [BTN_ADDR]
		217	mov ebx, [edi]
		218	inc ebx
2384	hidnplayr	219	imul esi, ebx, sizeof.SYS_BUTTON
1334	mikedld	220	add esi, edi
		221	xor ecx, ecx
2384	hidnplayr	222	add ecx, -sizeof.SYS_BUTTON
		223	add esi, sizeof.SYS_BUTTON
1334	mikedld	224
		225	.next_button:
		226	dec ebx
		227	jz .exit
		228
2384	hidnplayr	229	add ecx, sizeof.SYS_BUTTON
		230	add esi, -sizeof.SYS_BUTTON
1334	mikedld	231
		232	; does it belong to our process?
		233	mov ax, [CURRENT_TASK]
		234	cmp ax, [esi + SYS_BUTTON.pslot]
		235	jne .next_button
		236
		237	; does the identifier match?
		238	mov eax, dword[esi + SYS_BUTTON.id_hi - 2]
		239	mov ax, [esi + SYS_BUTTON.id_lo]
		240	and eax, 0x00ffffff
		241	cmp edx, eax
		242	jne .next_button
		243
		244	; okay, undefine it
1341	mikedld	245	push ebx
1334	mikedld	246	mov ebx, esi
2384	hidnplayr	247	lea eax, [esi + sizeof.SYS_BUTTON]
1334	mikedld	248	call memmove
		249	dec dword[edi]
2384	hidnplayr	250	add ecx, -sizeof.SYS_BUTTON
1341	mikedld	251	pop ebx
1334	mikedld	252	jmp .next_button
		253
		254	.exit:
		255	ret
		256
		257	align 4
		258	;------------------------------------------------------------------------------
1391	mikedld	259	sys_button_activate_handler: ;/////////////////////////////////////////////////
1334	mikedld	260	;------------------------------------------------------------------------------
1362	mikedld	261	;?
1334	mikedld	262	;------------------------------------------------------------------------------
1391	mikedld	263	;> eax = pack[8(process slot), 24(button id)]
		264	;> ebx = pack[16(button x coord), 16(button y coord)]
		265	;> cl = mouse button mask this system button was pressed with
		266	;------------------------------------------------------------------------------
		267	call button._.find_button
		268	or eax, eax
		269	jz .exit
1334	mikedld	270
1391	mikedld	271	mov ebx, dword[eax + SYS_BUTTON.id_hi - 2]
		272	call button._.negative_button
5185	mario79	273
1391	mikedld	274	.exit:
1334	mikedld	275	ret
		276
1391	mikedld	277	align 4
		278	;------------------------------------------------------------------------------
		279	sys_button_deactivate_handler: ;///////////////////////////////////////////////
		280	;------------------------------------------------------------------------------
		281	;?
		282	;------------------------------------------------------------------------------
		283	;> eax = pack[8(process slot), 24(button id)]
		284	;> ebx = pack[16(button x coord), 16(button y coord)]
		285	;> cl = mouse button mask this system button was pressed with
		286	;------------------------------------------------------------------------------
		287	call button._.find_button
		288	or eax, eax
		289	jz .exit
1334	mikedld	290
1391	mikedld	291	mov ebx, dword[eax + SYS_BUTTON.id_hi - 2]
1334	mikedld	292	call button._.negative_button
5185	mario79	293
1391	mikedld	294	.exit:
		295	ret
1334	mikedld	296
1391	mikedld	297	align 4
		298	;------------------------------------------------------------------------------
		299	sys_button_perform_handler: ;//////////////////////////////////////////////////
		300	;------------------------------------------------------------------------------
		301	;?
		302	;------------------------------------------------------------------------------
		303	;> eax = pack[8(process slot), 24(button id)]
		304	;> ebx = pack[16(button x coord), 16(button y coord)]
		305	;> cl = mouse button mask this system button was pressed with
		306	;------------------------------------------------------------------------------
		307	shl eax, 8
		308	mov al, cl
		309	movzx ebx, byte[BTN_COUNT]
		310	mov [BTN_BUFF + ebx * 4], eax
		311	inc bl
		312	mov [BTN_COUNT], bl
		313	ret
1334	mikedld	314
1391	mikedld	315	;==============================================================================
		316	;///// private functions //////////////////////////////////////////////////////
		317	;==============================================================================
1334	mikedld	318
1391	mikedld	319	;------------------------------------------------------------------------------
		320	button._.find_button: ;////////////////////////////////////////////////////////
		321	;------------------------------------------------------------------------------
		322	;? Find system button by specified process slot, id and coordinates
		323	;------------------------------------------------------------------------------
		324	;> eax = pack[8(process slot), 24(button id)] or 0
		325	;> ebx = pack[16(button x coord), 16(button y coord)]
		326	;------------------------------------------------------------------------------
		327	;< eax = pointer to SYS_BUTTON struct or 0
		328	;------------------------------------------------------------------------------
		329	push ecx edx esi edi
1334	mikedld	330
1391	mikedld	331	mov edx, eax
		332	shr edx, 24
		333	and eax, 0x0ffffff
1334	mikedld	334
1391	mikedld	335	mov edi, [BTN_ADDR]
		336	mov ecx, [edi]
2384	hidnplayr	337	imul esi, ecx, sizeof.SYS_BUTTON
1391	mikedld	338	add esi, edi
		339	inc ecx
2384	hidnplayr	340	add esi, sizeof.SYS_BUTTON
1334	mikedld	341
1391	mikedld	342	.next_button:
		343	dec ecx
		344	jz .not_found
1334	mikedld	345
2384	hidnplayr	346	add esi, -sizeof.SYS_BUTTON
1334	mikedld	347
1391	mikedld	348	; does it belong to our process?
		349	cmp dx, [esi + SYS_BUTTON.pslot]
		350	jne .next_button
1334	mikedld	351
1391	mikedld	352	; does id match?
		353	mov edi, dword[esi + SYS_BUTTON.id_hi - 2]
		354	mov di, [esi + SYS_BUTTON.id_lo]
		355	and edi, 0x0ffffff
		356	cmp eax, edi
		357	jne .next_button
1334	mikedld	358
1391	mikedld	359	; does coordinates match?
		360	mov edi, dword[esi + SYS_BUTTON.left - 2]
		361	mov di, [esi + SYS_BUTTON.top]
		362	cmp ebx, edi
		363	jne .next_button
1334	mikedld	364
1391	mikedld	365	; okay, return it
		366	mov eax, esi
		367	jmp .exit
1334	mikedld	368
1391	mikedld	369	.not_found:
		370	xor eax, eax
1334	mikedld	371
1391	mikedld	372	.exit:
		373	pop edi esi edx ecx
1334	mikedld	374	ret
		375
		376	;------------------------------------------------------------------------------
5185	mario79	377	button._.dececx: ;/////////////////////////////////////////////////////////////
1334	mikedld	378	;------------------------------------------------------------------------------
1362	mikedld	379	;?
1334	mikedld	380	;------------------------------------------------------------------------------
5185	mario79	381	sub cl, 0x20
1334	mikedld	382	jnc @f
		383	xor cl, cl
2288	clevermous	384	@@:
5185	mario79	385	sub ch, 0x20
1334	mikedld	386	jnc @f
		387	xor ch, ch
2288	clevermous	388	@@:
		389	rol ecx, 16
5185	mario79	390	sub cl, 0x20
1334	mikedld	391	jnc @f
		392	xor cl, cl
2288	clevermous	393	@@:
		394	rol ecx, 16
5185	mario79	395	ret
1334	mikedld	396
5185	mario79	397	;------------------------------------------------------------------------------
		398	button._.incecx: ;/////////////////////////////////////////////////////////////
		399	;------------------------------------------------------------------------------
		400	;?
		401	;------------------------------------------------------------------------------
		402	add cl, 0x20
		403	jnc @f
		404	or cl, -1
		405	@@:
		406	add ch, 0x20
		407	jnc @f
		408	or ch, -1
		409	@@:
		410	rol ecx, 16
		411	add cl, 0x20
		412	jnc @f
		413	or cl, -1
		414	@@:
		415	rol ecx, 16
		416	ret
4970	Akyltist	417
1334	mikedld	418	;------------------------------------------------------------------------------
5185	mario79	419	button._.incecx2: ;////////////////////////////////////////////////////////////
1334	mikedld	420	;------------------------------------------------------------------------------
1362	mikedld	421	;?
1334	mikedld	422	;------------------------------------------------------------------------------
		423	add cl, 0x14
		424	jnc @f
		425	or cl, -1
2288	clevermous	426	@@:
		427	add ch, 0x14
1334	mikedld	428	jnc @f
		429	or ch, -1
2288	clevermous	430	@@:
		431	rol ecx, 16
1334	mikedld	432	add cl, 0x14
		433	jnc @f
		434	or cl, -1
2288	clevermous	435	@@:
		436	rol ecx, 16
1334	mikedld	437	ret
5185	mario79	438
1334	mikedld	439	;------------------------------------------------------------------------------
5185	mario79	440	button._.button_dececx: ;//////////////////////////////////////////////////////
1334	mikedld	441	;------------------------------------------------------------------------------
1362	mikedld	442	;?
1334	mikedld	443	;------------------------------------------------------------------------------
5185	mario79	444	cmp [buttontype], 1
		445	jne .finish
		446
		447	push eax
		448	mov al, 1
		449	cmp edi, 20
		450	jg @f
		451	mov al, 2
		452
		453	@@:
		454	sub cl, al
		455	jnc @f
		456	xor cl, cl
		457	@@:
		458	sub ch, al
		459	jnc @f
		460	xor ch, ch
		461	@@:
		462	rol ecx, 16
		463	sub cl, al
		464	jnc @f
		465	xor cl, cl
		466	@@:
		467	rol ecx, 16
		468
		469	pop eax
		470
		471	.finish:
1334	mikedld	472	ret
		473
		474	;------------------------------------------------------------------------------
		475	button._.negative_button: ;////////////////////////////////////////////////////
		476	;------------------------------------------------------------------------------
1391	mikedld	477	;? Invert system button border
1334	mikedld	478	;------------------------------------------------------------------------------
1362	mikedld	479	; if requested, do not display button border on press.
1334	mikedld	480	test ebx, 0x20000000
1362	mikedld	481	jnz .exit
1334	mikedld	482
		483	pushad
5185	mario79	484
1362	mikedld	485	xchg esi, eax
1334	mikedld	486
1362	mikedld	487	movzx ecx, [esi + SYS_BUTTON.pslot]
		488	shl ecx, 5
		489	add ecx, window_data
1334	mikedld	490
1362	mikedld	491	mov eax, dword[esi + SYS_BUTTON.left]
		492	mov ebx, dword[esi + SYS_BUTTON.top]
		493	add eax, [ecx + WDATA.box.left]
		494	add ebx, [ecx + WDATA.box.top]
		495	push eax ebx
		496	pop edx ecx
		497	rol eax, 16
		498	rol ebx, 16
		499	add ax, cx
		500	add bx, dx
1334	mikedld	501
1362	mikedld	502	mov esi, 0x01000000
		503	call draw_rectangle.forced
5185	mario79	504
1362	mikedld	505	popad
5185	mario79	506
		507	.exit:
1334	mikedld	508	ret

Subversion Repositories Kolibri OS

(root)/kernel/trunk/gui/button.inc – Rev 5363