WebSVN – Kolibri OS – Blame – /kernel/branches/Kolibri-acpi/gui/button.inc

Rev	Author	Line No.	Line
1334	mikedld	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		2	;; ;;
5565	serge	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: 5594 $
		10
		11	;==============================================================================
		12	;///// public functions ///////////////////////////////////////////////////////
		13	;==============================================================================
		14
1391	mikedld	15	button.MAX_BUTTONS = 4095
		16
2434	Serge	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
		103	; draw button body
		104
		105	pushad
		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
5594	serge	115	inc eax
1334	mikedld	116	shl eax, 16
		117	mov ax, bx
		118	add ax, word[esp + 16]
5594	serge	119	dec ax
1334	mikedld	120	mov ebx, ecx
		121	shl ebx, 16
		122	mov bx, cx
		123
		124	; calculate initial color
		125	mov ecx, esi
		126	cmp [buttontype], 0
		127	je @f
		128	call button._.incecx2
		129
		130	; set button height counter
2434	Serge	131	@@:
		132	mov edx, edi
5594	serge	133	add ebx, 0x00010001
		134	dec edx
1334	mikedld	135
		136	.next_line:
		137	call button._.button_dececx
		138	push edi
		139	xor edi, edi
2465	Serge	140	; call [draw_line]
		141	call __sys_draw_line
1334	mikedld	142	pop edi
		143	add ebx, 0x00010001
		144	dec edx
		145	jnz .next_line
		146
		147	popad
		148
		149	; draw button frame
		150
		151	push ebx ecx
		152
		153	; calculate window-relative coordinates
		154	shr ebx, 16
		155	shr ecx, 16
		156	mov eax, [TASK_BASE]
		157	add ebx, [eax - twdw + WDATA.box.left]
		158	add ecx, [eax - twdw + WDATA.box.top]
		159
		160	; top border
		161	mov eax, ebx
		162	shl eax, 16
		163	mov ax, bx
		164	add ax, [esp + 4]
		165	mov ebx, ecx
		166	shl ebx, 16
		167	mov bx, cx
		168	push ebx
		169	xor edi, edi
		170	mov ecx, esi
		171	call button._.incecx
2465	Serge	172	; call [draw_line]
		173	call __sys_draw_line
1334	mikedld	174
		175	; bottom border
		176	movzx edx, word[esp + 4 + 0]
		177	add ebx, edx
		178	shl edx, 16
		179	add ebx, edx
		180	mov ecx, esi
		181	call button._.dececx
2465	Serge	182	; call [draw_line]
		183	call __sys_draw_line
1334	mikedld	184
		185	; left border
		186	pop ebx
		187	push edx
		188	mov edx, eax
		189	shr edx, 16
		190	mov ax, dx
		191	mov edx, ebx
		192	shr edx, 16
		193	mov bx, dx
		194	add bx, [esp + 4 + 0]
		195	pop edx
		196	mov ecx, esi
		197	call button._.incecx
2465	Serge	198	; call [draw_line]
5594	serge	199	dec ebx
2465	Serge	200	call __sys_draw_line
1334	mikedld	201
		202	; right border
		203	mov dx, [esp + 4]
		204	add ax, dx
		205	shl edx, 16
		206	add eax, edx
		207	add ebx, 0x00010000
		208	mov ecx, esi
		209	call button._.dececx
2465	Serge	210	; call [draw_line]
		211	call __sys_draw_line
1334	mikedld	212
		213	pop ecx ebx
		214
		215	.exit:
		216	ret
		217
		218	; FIXME: mutex needed
		219	syscall_button.remove_button:
		220	and edx, 0x00ffffff
		221	mov edi, [BTN_ADDR]
		222	mov ebx, [edi]
		223	inc ebx
2434	Serge	224	imul esi, ebx, sizeof.SYS_BUTTON
1334	mikedld	225	add esi, edi
		226	xor ecx, ecx
2434	Serge	227	add ecx, -sizeof.SYS_BUTTON
		228	add esi, sizeof.SYS_BUTTON
1334	mikedld	229
		230	.next_button:
		231	dec ebx
		232	jz .exit
		233
2434	Serge	234	add ecx, sizeof.SYS_BUTTON
		235	add esi, -sizeof.SYS_BUTTON
1334	mikedld	236
		237	; does it belong to our process?
		238	mov ax, [CURRENT_TASK]
		239	cmp ax, [esi + SYS_BUTTON.pslot]
		240	jne .next_button
		241
		242	; does the identifier match?
		243	mov eax, dword[esi + SYS_BUTTON.id_hi - 2]
		244	mov ax, [esi + SYS_BUTTON.id_lo]
		245	and eax, 0x00ffffff
		246	cmp edx, eax
		247	jne .next_button
		248
		249	; okay, undefine it
1341	mikedld	250	push ebx
1334	mikedld	251	mov ebx, esi
2434	Serge	252	lea eax, [esi + sizeof.SYS_BUTTON]
1334	mikedld	253	call memmove
		254	dec dword[edi]
2434	Serge	255	add ecx, -sizeof.SYS_BUTTON
1341	mikedld	256	pop ebx
1334	mikedld	257	jmp .next_button
		258
		259	.exit:
		260	ret
		261
		262	align 4
		263	;------------------------------------------------------------------------------
1391	mikedld	264	sys_button_activate_handler: ;/////////////////////////////////////////////////
1334	mikedld	265	;------------------------------------------------------------------------------
1362	mikedld	266	;?
1334	mikedld	267	;------------------------------------------------------------------------------
1391	mikedld	268	;> eax = pack[8(process slot), 24(button id)]
		269	;> ebx = pack[16(button x coord), 16(button y coord)]
		270	;> cl = mouse button mask this system button was pressed with
		271	;------------------------------------------------------------------------------
		272	call button._.find_button
		273	or eax, eax
		274	jz .exit
1334	mikedld	275
1391	mikedld	276	mov ebx, dword[eax + SYS_BUTTON.id_hi - 2]
		277	call button._.negative_button
1334	mikedld	278
1391	mikedld	279	.exit:
1334	mikedld	280	ret
		281
1391	mikedld	282	align 4
		283	;------------------------------------------------------------------------------
		284	sys_button_deactivate_handler: ;///////////////////////////////////////////////
		285	;------------------------------------------------------------------------------
		286	;?
		287	;------------------------------------------------------------------------------
		288	;> eax = pack[8(process slot), 24(button id)]
		289	;> ebx = pack[16(button x coord), 16(button y coord)]
		290	;> cl = mouse button mask this system button was pressed with
		291	;------------------------------------------------------------------------------
		292	call button._.find_button
		293	or eax, eax
		294	jz .exit
1334	mikedld	295
1391	mikedld	296	mov ebx, dword[eax + SYS_BUTTON.id_hi - 2]
1334	mikedld	297	call button._.negative_button
		298
1391	mikedld	299	.exit:
		300	ret
1334	mikedld	301
1391	mikedld	302	align 4
		303	;------------------------------------------------------------------------------
		304	sys_button_perform_handler: ;//////////////////////////////////////////////////
		305	;------------------------------------------------------------------------------
		306	;?
		307	;------------------------------------------------------------------------------
		308	;> eax = pack[8(process slot), 24(button id)]
		309	;> ebx = pack[16(button x coord), 16(button y coord)]
		310	;> cl = mouse button mask this system button was pressed with
		311	;------------------------------------------------------------------------------
		312	shl eax, 8
		313	mov al, cl
		314	movzx ebx, byte[BTN_COUNT]
		315	mov [BTN_BUFF + ebx * 4], eax
		316	inc bl
		317	mov [BTN_COUNT], bl
		318	ret
1334	mikedld	319
1391	mikedld	320	;==============================================================================
		321	;///// private functions //////////////////////////////////////////////////////
		322	;==============================================================================
1334	mikedld	323
1391	mikedld	324	;------------------------------------------------------------------------------
		325	button._.find_button: ;////////////////////////////////////////////////////////
		326	;------------------------------------------------------------------------------
		327	;? Find system button by specified process slot, id and coordinates
		328	;------------------------------------------------------------------------------
		329	;> eax = pack[8(process slot), 24(button id)] or 0
		330	;> ebx = pack[16(button x coord), 16(button y coord)]
		331	;------------------------------------------------------------------------------
		332	;< eax = pointer to SYS_BUTTON struct or 0
		333	;------------------------------------------------------------------------------
		334	push ecx edx esi edi
1334	mikedld	335
1391	mikedld	336	mov edx, eax
		337	shr edx, 24
		338	and eax, 0x0ffffff
1334	mikedld	339
1391	mikedld	340	mov edi, [BTN_ADDR]
		341	mov ecx, [edi]
2434	Serge	342	imul esi, ecx, sizeof.SYS_BUTTON
1391	mikedld	343	add esi, edi
		344	inc ecx
2434	Serge	345	add esi, sizeof.SYS_BUTTON
1334	mikedld	346
1391	mikedld	347	.next_button:
		348	dec ecx
		349	jz .not_found
1334	mikedld	350
2434	Serge	351	add esi, -sizeof.SYS_BUTTON
1334	mikedld	352
1391	mikedld	353	; does it belong to our process?
		354	cmp dx, [esi + SYS_BUTTON.pslot]
		355	jne .next_button
1334	mikedld	356
1391	mikedld	357	; does id match?
		358	mov edi, dword[esi + SYS_BUTTON.id_hi - 2]
		359	mov di, [esi + SYS_BUTTON.id_lo]
		360	and edi, 0x0ffffff
		361	cmp eax, edi
		362	jne .next_button
1334	mikedld	363
1391	mikedld	364	; does coordinates match?
		365	mov edi, dword[esi + SYS_BUTTON.left - 2]
		366	mov di, [esi + SYS_BUTTON.top]
		367	cmp ebx, edi
		368	jne .next_button
1334	mikedld	369
1391	mikedld	370	; okay, return it
		371	mov eax, esi
		372	jmp .exit
1334	mikedld	373
1391	mikedld	374	.not_found:
		375	xor eax, eax
1334	mikedld	376
1391	mikedld	377	.exit:
		378	pop edi esi edx ecx
1334	mikedld	379	ret
		380
		381	;------------------------------------------------------------------------------
		382	button._.dececx: ;/////////////////////////////////////////////////////////////
		383	;------------------------------------------------------------------------------
1362	mikedld	384	;?
1334	mikedld	385	;------------------------------------------------------------------------------
		386	sub cl, 0x20
		387	jnc @f
		388	xor cl, cl
2434	Serge	389	@@:
		390	sub ch, 0x20
1334	mikedld	391	jnc @f
		392	xor ch, ch
2434	Serge	393	@@:
		394	rol ecx, 16
1334	mikedld	395	sub cl, 0x20
		396	jnc @f
		397	xor cl, cl
2434	Serge	398	@@:
		399	rol ecx, 16
1334	mikedld	400	ret
		401
		402	;------------------------------------------------------------------------------
		403	button._.incecx: ;/////////////////////////////////////////////////////////////
		404	;------------------------------------------------------------------------------
1362	mikedld	405	;?
1334	mikedld	406	;------------------------------------------------------------------------------
		407	add cl, 0x20
		408	jnc @f
		409	or cl, -1
2434	Serge	410	@@:
		411	add ch, 0x20
1334	mikedld	412	jnc @f
		413	or ch, -1
2434	Serge	414	@@:
		415	rol ecx, 16
1334	mikedld	416	add cl, 0x20
		417	jnc @f
		418	or cl, -1
2434	Serge	419	@@:
		420	rol ecx, 16
1334	mikedld	421	ret
		422
		423	;------------------------------------------------------------------------------
		424	button._.incecx2: ;////////////////////////////////////////////////////////////
		425	;------------------------------------------------------------------------------
1362	mikedld	426	;?
1334	mikedld	427	;------------------------------------------------------------------------------
		428	add cl, 0x14
		429	jnc @f
		430	or cl, -1
2434	Serge	431	@@:
		432	add ch, 0x14
1334	mikedld	433	jnc @f
		434	or ch, -1
2434	Serge	435	@@:
		436	rol ecx, 16
1334	mikedld	437	add cl, 0x14
		438	jnc @f
		439	or cl, -1
2434	Serge	440	@@:
		441	rol ecx, 16
1334	mikedld	442	ret
		443
		444	;------------------------------------------------------------------------------
		445	button._.button_dececx: ;//////////////////////////////////////////////////////
		446	;------------------------------------------------------------------------------
1362	mikedld	447	;?
1334	mikedld	448	;------------------------------------------------------------------------------
		449	cmp [buttontype], 1
		450	jne .finish
		451
		452	push eax
		453	mov al, 1
		454	cmp edi, 20
		455	jg @f
		456	mov al, 2
		457
2434	Serge	458	@@:
		459	sub cl, al
1334	mikedld	460	jnc @f
		461	xor cl, cl
2434	Serge	462	@@:
		463	sub ch, al
1334	mikedld	464	jnc @f
		465	xor ch, ch
2434	Serge	466	@@:
		467	rol ecx, 16
1334	mikedld	468	sub cl, al
		469	jnc @f
		470	xor cl, cl
2434	Serge	471	@@:
		472	rol ecx, 16
1334	mikedld	473
		474	pop eax
		475
		476	.finish:
		477	ret
		478
		479	;------------------------------------------------------------------------------
		480	button._.negative_button: ;////////////////////////////////////////////////////
		481	;------------------------------------------------------------------------------
1391	mikedld	482	;? Invert system button border
1334	mikedld	483	;------------------------------------------------------------------------------
1362	mikedld	484	; if requested, do not display button border on press.
1334	mikedld	485	test ebx, 0x20000000
1362	mikedld	486	jnz .exit
1334	mikedld	487
		488	pushad
		489
1362	mikedld	490	xchg esi, eax
1334	mikedld	491
1362	mikedld	492	movzx ecx, [esi + SYS_BUTTON.pslot]
		493	shl ecx, 5
		494	add ecx, window_data
1334	mikedld	495
1362	mikedld	496	mov eax, dword[esi + SYS_BUTTON.left]
		497	mov ebx, dword[esi + SYS_BUTTON.top]
		498	add eax, [ecx + WDATA.box.left]
		499	add ebx, [ecx + WDATA.box.top]
		500	push eax ebx
		501	pop edx ecx
		502	rol eax, 16
		503	rol ebx, 16
		504	add ax, cx
		505	add bx, dx
1334	mikedld	506
1362	mikedld	507	mov esi, 0x01000000
		508	call draw_rectangle.forced
1334	mikedld	509
1362	mikedld	510	popad
1334	mikedld	511
1362	mikedld	512	.exit:
1334	mikedld	513	ret

Subversion Repositories Kolibri OS

(root)/kernel/branches/Kolibri-acpi/gui/button.inc – Rev 5594