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

Rev	Author	Line No.	Line
2434	Serge	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		2	;; ;;
2465	Serge	3	;; Copyright (C) KolibriOS team 2004-2012. All rights reserved. ;;
2434	Serge	4	;; Copyright (C) MenuetOS 2000-2004 Ville Mikael Turjanmaa ;;
		5	;; Distributed under terms of the GNU General Public License ;;
		6	;; ;;
		7	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		8
		9	$Revision: 3500 $
		10
		11	;==============================================================================
		12	;///// public functions ///////////////////////////////////////////////////////
		13	;==============================================================================
		14
		15	window.BORDER_SIZE = 5
		16
		17	macro FuncTable name, table_name, [label]
		18	{
		19	common
		20	align 4
		21	\label name#.#table_name dword
		22	forward
		23	dd name#.#label
		24	common
		25	name#.sizeof.#table_name = $ - name#.#table_name
		26	}
		27
		28	uglobal
		29	common_colours rd 32
		30	draw_limits RECT
		31	endg
		32
		33	align 4
		34	;------------------------------------------------------------------------------
		35	syscall_draw_window: ;///// system function 0 /////////////////////////////////
		36	;------------------------------------------------------------------------------
		37	;?
		38	;------------------------------------------------------------------------------
		39	mov eax, edx
		40	shr eax, 24
		41	and al, 0x0f
		42	cmp al, 5
		43	jae .exit
		44
		45	push eax
		46	call window._.sys_set_window
		47	pop eax
		48
		49	or al, al
		50	jnz @f
		51
		52	; type I - original style
		53	call drawwindow_I
		54	jmp window._.draw_window_caption.2
2439	Serge	55	;--------------------------------------
		56	align 4
		57	@@:
2434	Serge	58	dec al
		59	jnz @f
		60
		61	; type II - only reserve area, no draw
2439	Serge	62	; call sys_window_mouse
2465	Serge	63	; call [draw_pointer]
		64	call __sys_draw_pointer
2434	Serge	65	jmp .exit
2439	Serge	66	;--------------------------------------
		67	align 4
		68	@@:
2434	Serge	69	dec al
		70	jnz @f
		71
		72	; type III - new style
		73	call drawwindow_III
		74	jmp window._.draw_window_caption.2
		75
		76	; type IV & V - skinned window (resizable & not)
2439	Serge	77	;--------------------------------------
		78	align 4
		79	@@:
2434	Serge	80	mov eax, [TASK_COUNT]
		81	movzx eax, word[WIN_POS + eax * 2]
		82	cmp eax, [CURRENT_TASK]
		83	setz al
		84	movzx eax, al
		85	push eax
		86	call drawwindow_IV
		87	jmp window._.draw_window_caption.2
2439	Serge	88	;--------------------------------------
		89	align 4
		90	.exit:
2434	Serge	91	ret
2439	Serge	92	;------------------------------------------------------------------------------
2434	Serge	93	align 4
		94	;------------------------------------------------------------------------------
		95	syscall_display_settings: ;///// system function 48 ///////////////////////////
		96	;------------------------------------------------------------------------------
		97	;; Redraw screen:
		98	;< ebx = 0
		99	; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
		100	;; Set button style:
		101	;< ebx = 1
		102	;< ecx = 0 (flat) or 1 (with gradient)
		103	; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
		104	;; Set system color palette:
		105	;< ebx = 2
		106	;< ecx = pointer to color table
		107	;< edx = size of color table
		108	; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
		109	;; Get system color palette:
		110	;< ebx = 3
		111	;< ecx = pointer to color table buffer
		112	;< edx = size of color table buffer
		113	; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
		114	;; Get skinned caption height:
		115	;< ebx = 4
		116	;> eax = height in pixels
		117	; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
		118	;; Get screen working area:
		119	;< ebx = 5
		120	;> eax = pack[16(left), 16(right)]
		121	;> ebx = pack[16(top), 16(bottom)]
		122	; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
		123	;; Set screen working area:
		124	;< ebx = 6
		125	;< ecx = pack[16(left), 16(right)]
		126	;< edx = pack[16(top), 16(bottom)]
		127	; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
		128	;; Get skin margins:
		129	;< ebx = 7
		130	;> eax = pack[16(left), 16(right)]
		131	;> ebx = pack[16(top), 16(bottom)]
		132	; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
		133	;; Set skin:
		134	;< ebx = 8
		135	;< ecx = pointer to FileInfoBlock struct
		136	;> eax = FS error code
		137	;------------------------------------------------------------------------------
		138	cmp ebx, .sizeof.ftable / 4
		139	ja @f
		140	jmp [.ftable + ebx * 4]
2439	Serge	141	;--------------------------------------
		142	align 4
		143	@@:
2434	Serge	144	ret
2439	Serge	145	;------------------------------------------------------------------------------
2434	Serge	146	align 4
		147	syscall_display_settings.00:
		148	xor eax, eax
		149	inc ebx
		150	cmp [windowtypechanged], ebx
		151	jne .exit
		152	mov [windowtypechanged], eax
		153
		154	jmp syscall_display_settings._.redraw_whole_screen
2439	Serge	155	;--------------------------------------
		156	align 4
		157	.exit:
2434	Serge	158	ret
2439	Serge	159	;------------------------------------------------------------------------------
2434	Serge	160	align 4
		161	syscall_display_settings.01:
		162	and ecx, 1
		163	cmp ecx, [buttontype]
		164	je .exit
		165	mov [buttontype], ecx
		166	mov [windowtypechanged], ebx
2439	Serge	167	;--------------------------------------
		168	align 4
2434	Serge	169	.exit:
		170	ret
2439	Serge	171	;------------------------------------------------------------------------------
2434	Serge	172	align 4
		173	syscall_display_settings.02:
		174	dec ebx
		175	mov esi, ecx
		176	and edx, 127
		177	mov edi, common_colours
		178	mov ecx, edx
		179	rep movsb
		180	mov [windowtypechanged], ebx
		181	ret
2439	Serge	182	;------------------------------------------------------------------------------
2434	Serge	183	align 4
		184	syscall_display_settings.03:
		185	mov edi, ecx
		186	and edx, 127
		187	mov esi, common_colours
		188	mov ecx, edx
		189	rep movsb
		190	ret
2439	Serge	191	;------------------------------------------------------------------------------
2434	Serge	192	align 4
		193	syscall_display_settings.04:
		194	mov eax, [_skinh]
		195	mov [esp + 32], eax
		196	ret
2439	Serge	197	;------------------------------------------------------------------------------
2434	Serge	198	align 4
		199	syscall_display_settings.05:
		200	mov eax, [screen_workarea.left - 2]
		201	mov ax, word[screen_workarea.right]
		202	mov [esp + 32], eax
		203	mov eax, [screen_workarea.top - 2]
		204	mov ax, word[screen_workarea.bottom]
		205	mov [esp + 20], eax
		206	ret
2439	Serge	207	;------------------------------------------------------------------------------
2434	Serge	208	align 4
		209	syscall_display_settings.06:
		210	xor esi, esi
		211
		212	mov edi, [Screen_Max_X]
		213	mov eax, ecx
		214	movsx ebx, ax
		215	sar eax, 16
		216	cmp eax, ebx
		217	jge .check_horizontal
		218	inc esi
		219	or eax, eax
		220	jge @f
		221	xor eax, eax
2439	Serge	222	;--------------------------------------
		223	align 4
		224	@@:
2434	Serge	225	mov [screen_workarea.left], eax
		226	cmp ebx, edi
		227	jle @f
		228	mov ebx, edi
2439	Serge	229	;--------------------------------------
		230	align 4
		231	@@:
2434	Serge	232	mov [screen_workarea.right], ebx
2439	Serge	233	;--------------------------------------
		234	align 4
		235	.check_horizontal:
2434	Serge	236	mov edi, [Screen_Max_Y]
		237	mov eax, edx
		238	movsx ebx, ax
		239	sar eax, 16
		240	cmp eax, ebx
		241	jge .check_if_redraw_needed
		242	inc esi
		243	or eax, eax
		244	jge @f
		245	xor eax, eax
2439	Serge	246	;--------------------------------------
		247	align 4
		248	@@:
2434	Serge	249	mov [screen_workarea.top], eax
		250	cmp ebx, edi
		251	jle @f
		252	mov ebx, edi
2439	Serge	253	;--------------------------------------
		254	align 4
		255	@@:
2434	Serge	256	mov [screen_workarea.bottom], ebx
2439	Serge	257	;--------------------------------------
		258	align 4
		259	.check_if_redraw_needed:
2434	Serge	260	or esi, esi
		261	jz .exit
		262
		263	call repos_windows
		264	jmp syscall_display_settings._.calculate_whole_screen
2439	Serge	265	;--------------------------------------
		266	align 4
		267	.exit:
2434	Serge	268	ret
2439	Serge	269	;------------------------------------------------------------------------------
2434	Serge	270	align 4
		271	syscall_display_settings.07:
		272	mov eax, [_skinmargins + 0]
		273	mov [esp + 32], eax
		274	mov eax, [_skinmargins + 4]
		275	mov [esp + 20], eax
		276	ret
2439	Serge	277	;------------------------------------------------------------------------------
2434	Serge	278	align 4
		279	syscall_display_settings.08:
		280	mov ebx, ecx
		281	call read_skin_file
		282	mov [esp + 32], eax
		283	test eax, eax
		284	jnz .exit
		285
		286	call syscall_display_settings._.calculate_whole_screen
		287	jmp syscall_display_settings._.redraw_whole_screen
2439	Serge	288	;--------------------------------------
		289	align 4
		290	.exit:
2434	Serge	291	ret
2439	Serge	292	;------------------------------------------------------------------------------
		293	align 4
2434	Serge	294	syscall_display_settings._.calculate_whole_screen:
		295	xor eax, eax
		296	xor ebx, ebx
		297	mov ecx, [Screen_Max_X]
		298	mov edx, [Screen_Max_Y]
		299	jmp calculatescreen
2439	Serge	300	;------------------------------------------------------------------------------
		301	align 4
2434	Serge	302	syscall_display_settings._.redraw_whole_screen:
		303	xor eax, eax
		304	mov [draw_limits.left], eax
		305	mov [draw_limits.top], eax
		306	mov eax, [Screen_Max_X]
		307	mov [draw_limits.right], eax
		308	mov eax, [Screen_Max_Y]
		309	mov [draw_limits.bottom], eax
		310	mov eax, window_data
		311	jmp redrawscreen
2439	Serge	312	;------------------------------------------------------------------------------
2434	Serge	313	align 4
		314	;------------------------------------------------------------------------------
		315	syscall_set_window_shape: ;///// system function 50 ///////////////////////////
		316	;------------------------------------------------------------------------------
		317	;; Set window shape address:
		318	;> ebx = 0
		319	;> ecx = shape data address
		320	; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
		321	;; Set window shape scale:
		322	;> ebx = 1
		323	;> ecx = scale power (resulting scale is 2^ebx)
		324	;------------------------------------------------------------------------------
		325	mov edi, [current_slot]
		326
		327	test ebx, ebx
		328	jne .shape_scale
		329	mov [edi + APPDATA.wnd_shape], ecx
2439	Serge	330	;--------------------------------------
		331	align 4
		332	.shape_scale:
2434	Serge	333	dec ebx
		334	jnz .exit
		335	mov [edi + APPDATA.wnd_shape_scale], ecx
2439	Serge	336	;--------------------------------------
		337	align 4
		338	.exit:
2434	Serge	339	ret
2439	Serge	340	;------------------------------------------------------------------------------
2434	Serge	341	align 4
		342	;------------------------------------------------------------------------------
		343	syscall_move_window: ;///// system function 67 ////////////////////////////////
		344	;------------------------------------------------------------------------------
		345	;?
		346	;------------------------------------------------------------------------------
		347	mov edi, [CURRENT_TASK]
		348	shl edi, 5
		349	add edi, window_data
		350
		351	test [edi + WDATA.fl_wdrawn], 1
		352	jz .exit
		353
		354	test [edi + WDATA.fl_wstate], WSTATE_MAXIMIZED
		355	jnz .exit
		356
		357	cmp ebx, -1
		358	jne @f
		359	mov ebx, [edi + WDATA.box.left]
2439	Serge	360	;--------------------------------------
		361	align 4
		362	@@:
2434	Serge	363	cmp ecx, -1
		364	jne @f
		365	mov ecx, [edi + WDATA.box.top]
2439	Serge	366	;--------------------------------------
		367	align 4
		368	@@:
2434	Serge	369	cmp edx, -1
		370	jne @f
		371	mov edx, [edi + WDATA.box.width]
2439	Serge	372	;--------------------------------------
		373	align 4
		374	@@:
2434	Serge	375	cmp esi, -1
		376	jne @f
		377	mov esi, [edi + WDATA.box.height]
2439	Serge	378	;--------------------------------------
		379	align 4
		380	@@:
2434	Serge	381	push esi edx ecx ebx
		382	mov eax, esp
		383	mov bl, [edi + WDATA.fl_wstate]
3500	Serge	384	;--------------------------------------
		385	align 4
		386	@@:
		387	cmp [REDRAW_BACKGROUND], byte 0
		388	jz @f
		389	call change_task
		390	jmp @b
		391	;--------------------------------------
		392	align 4
		393	@@:
2434	Serge	394	call window._.set_window_box
		395	add esp, sizeof.BOX
		396
		397	; NOTE: do we really need this? to be reworked
		398	; mov byte[DONT_DRAW_MOUSE], 0 ; mouse pointer
		399	; mov byte[MOUSE_BACKGROUND], 0 ; no mouse under
		400	; mov byte[MOUSE_DOWN], 0 ; react to mouse up/down
		401
		402	; NOTE: do we really need this? to be reworked
		403	; call [draw_pointer]
2439	Serge	404	;--------------------------------------
		405	align 4
		406	.exit:
2434	Serge	407	ret
2439	Serge	408	;------------------------------------------------------------------------------
2434	Serge	409	align 4
		410	;------------------------------------------------------------------------------
		411	syscall_window_settings: ;///// system function 71 /////////////////////////////
		412	;------------------------------------------------------------------------------
		413	;?
		414	;------------------------------------------------------------------------------
		415	dec ebx ; subfunction #1 - set window caption
		416	jnz .exit_fail
		417
		418	; NOTE: only window owner thread can set its caption,
		419	; so there's no parameter for PID/TID
		420
		421	mov edi, [CURRENT_TASK]
		422	shl edi, 5
		423
		424	mov [edi * 8 + SLOT_BASE + APPDATA.wnd_caption], ecx
		425	or [edi + window_data + WDATA.fl_wstyle], WSTYLE_HASCAPTION
		426
		427	call window._.draw_window_caption
		428
		429	xor eax, eax ; eax = 0 (success)
		430	ret
		431
		432	; .get_window_caption:
		433	; dec eax ; subfunction #2 - get window caption
		434	; jnz .exit_fail
		435
		436	; not implemented yet
2439	Serge	437	;--------------------------------------
		438	align 4
		439	.exit_fail:
2434	Serge	440	xor eax, eax
		441	inc eax ; eax = 1 (fail)
		442	ret
2439	Serge	443	;------------------------------------------------------------------------------
2434	Serge	444	align 4
		445	;------------------------------------------------------------------------------
		446	set_window_defaults: ;/////////////////////////////////////////////////////////
		447	;------------------------------------------------------------------------------
		448	;?
		449	;------------------------------------------------------------------------------
		450	mov byte [window_data + 0x20 + WDATA.cl_titlebar + 3], 1 ; desktop is not movable
		451	push eax ecx
		452	xor eax, eax
		453	mov ecx, WIN_STACK
2439	Serge	454	;--------------------------------------
		455	align 4
		456	@@:
2434	Serge	457	inc eax
		458	add ecx, 2
		459	; process no
		460	mov [ecx + 0x000], ax
		461	; positions in stack
		462	mov [ecx + 0x400], ax
		463	cmp ecx, WIN_POS - 2
		464	jne @b
		465	pop ecx eax
		466	ret
2439	Serge	467	;------------------------------------------------------------------------------
2434	Serge	468	align 4
		469	;------------------------------------------------------------------------------
		470	calculatescreen: ;/////////////////////////////////////////////////////////////
		471	;------------------------------------------------------------------------------
		472	;? Scan all windows from bottom to top, calling `setscreen` for each one
		473	;? intersecting given screen area
		474	;------------------------------------------------------------------------------
		475	;> eax = left
		476	;> ebx = top
		477	;> ecx = right
		478	;> edx = bottom
		479	;------------------------------------------------------------------------------
		480	push esi
		481	pushfd
		482	cli
		483
		484	mov esi, 1
		485	call window._.set_screen
		486
		487	push ebp
		488
		489	mov ebp, [TASK_COUNT]
		490	cmp ebp, 1
		491	jbe .exit
		492
		493	push edx ecx ebx eax
2439	Serge	494	;--------------------------------------
		495	align 4
		496	.next_window:
2434	Serge	497	movzx edi, word[WIN_POS + esi * 2]
		498	shl edi, 5
		499
		500	cmp [CURRENT_TASK + edi + TASKDATA.state], TSTATE_FREE
		501	je .skip_window
		502
		503	add edi, window_data
		504	test [edi + WDATA.fl_wstate], WSTATE_MINIMIZED
		505	jnz .skip_window
		506
		507	mov eax, [edi + WDATA.box.left]
		508	cmp eax, [esp + RECT.right]
		509	jg .skip_window
		510	mov ebx, [edi + WDATA.box.top]
		511	cmp ebx, [esp + RECT.bottom]
		512	jg .skip_window
		513	mov ecx, [edi + WDATA.box.width]
		514	add ecx, eax
		515	cmp ecx, [esp + RECT.left]
		516	jl .skip_window
		517	mov edx, [edi + WDATA.box.height]
		518	add edx, ebx
		519	cmp edx, [esp + RECT.top]
		520	jl .skip_window
		521
		522	cmp eax, [esp + RECT.left]
		523	jae @f
		524	mov eax, [esp + RECT.left]
2439	Serge	525	;--------------------------------------
		526	align 4
		527	@@:
2434	Serge	528	cmp ebx, [esp + RECT.top]
		529	jae @f
		530	mov ebx, [esp + RECT.top]
2439	Serge	531	;--------------------------------------
		532	align 4
		533	@@:
2434	Serge	534	cmp ecx, [esp + RECT.right]
		535	jbe @f
		536	mov ecx, [esp + RECT.right]
2439	Serge	537	;--------------------------------------
		538	align 4
		539	@@:
2434	Serge	540	cmp edx, [esp + RECT.bottom]
		541	jbe @f
		542	mov edx, [esp + RECT.bottom]
2439	Serge	543	;--------------------------------------
		544	align 4
		545	@@:
2434	Serge	546	push esi
		547	movzx esi, word[WIN_POS + esi * 2]
		548	call window._.set_screen
		549	pop esi
2439	Serge	550	;--------------------------------------
		551	align 4
		552	.skip_window:
2434	Serge	553	inc esi
		554	dec ebp
		555	jnz .next_window
		556
		557	pop eax ebx ecx edx
2439	Serge	558	;--------------------------------------
		559	align 4
		560	.exit:
2434	Serge	561	pop ebp
		562	inc [_display.mask_seqno]
		563	popfd
		564	pop esi
		565	ret
2439	Serge	566	;------------------------------------------------------------------------------
2434	Serge	567	align 4
		568	;------------------------------------------------------------------------------
		569	repos_windows: ;///////////////////////////////////////////////////////////////
		570	;------------------------------------------------------------------------------
		571	;?
		572	;------------------------------------------------------------------------------
		573	mov ecx, [TASK_COUNT]
		574	mov edi, window_data + sizeof.WDATA * 2
		575	call force_redraw_background
		576	dec ecx
		577	jle .exit
2439	Serge	578	;--------------------------------------
		579	align 4
		580	.next_window:
2434	Serge	581	mov [edi + WDATA.fl_redraw], 1
		582	test [edi + WDATA.fl_wstate], WSTATE_MAXIMIZED
		583	jnz .fix_maximized
		584
		585	mov eax, [edi + WDATA.box.left]
		586	add eax, [edi + WDATA.box.width]
		587	mov ebx, [Screen_Max_X]
		588	cmp eax, ebx
		589	jle .fix_vertical
		590	mov eax, [edi + WDATA.box.width]
		591	sub eax, ebx
		592	jle @f
		593	mov [edi + WDATA.box.width], ebx
2439	Serge	594	;--------------------------------------
		595	align 4
		596	@@:
2434	Serge	597	sub ebx, [edi + WDATA.box.width]
		598	mov [edi + WDATA.box.left], ebx
2439	Serge	599	;--------------------------------------
		600	align 4
		601	.fix_vertical:
2434	Serge	602	mov eax, [edi + WDATA.box.top]
		603	add eax, [edi + WDATA.box.height]
		604	mov ebx, [Screen_Max_Y]
		605	cmp eax, ebx
		606	jle .fix_client_box
		607	mov eax, [edi + WDATA.box.height]
		608	sub eax, ebx
		609	jle @f
		610	mov [edi + WDATA.box.height], ebx
2439	Serge	611	;--------------------------------------
		612	align 4
		613	@@:
2434	Serge	614	sub ebx, [edi + WDATA.box.height]
		615	mov [edi + WDATA.box.top], ebx
2439	Serge	616	;--------------------------------------
		617	align 4
		618	.fix_client_box:
		619	call window._.set_window_clientbox
		620	add edi, sizeof.WDATA
		621	loop .next_window
		622	;--------------------------------------
		623	align 4
		624	.exit:
		625	ret
		626	;--------------------------------------
		627	align 4
		628	.fix_maximized:
2434	Serge	629	mov eax, [screen_workarea.left]
		630	mov [edi + WDATA.box.left], eax
		631	sub eax, [screen_workarea.right]
		632	neg eax
		633	mov [edi + WDATA.box.width], eax
		634	mov eax, [screen_workarea.top]
		635	mov [edi + WDATA.box.top], eax
		636	test [edi + WDATA.fl_wstate], WSTATE_ROLLEDUP
		637	jnz .fix_client_box
		638	sub eax, [screen_workarea.bottom]
		639	neg eax
		640	mov [edi + WDATA.box.height], eax
2439	Serge	641	jmp .fix_client_box
2434	Serge	642	;------------------------------------------------------------------------------
2439	Serge	643	;align 4
2434	Serge	644	;------------------------------------------------------------------------------
2439	Serge	645	;sys_window_mouse: ;////////////////////////////////////////////////////////////
		646	;------------------------------------------------------------------------------
2434	Serge	647	;?
		648	;------------------------------------------------------------------------------
		649	; NOTE: commented out since doesn't provide necessary functionality
		650	; anyway, to be reworked
		651	; push eax
		652	;
		653	; mov eax, [timer_ticks]
		654	; cmp [new_window_starting], eax
		655	; jb .exit
		656	;
		657	; mov byte[MOUSE_BACKGROUND], 0
		658	; mov byte[DONT_DRAW_MOUSE], 0
		659	;
		660	; mov [new_window_starting], eax
		661	;
		662	; .exit:
		663	; pop eax
2439	Serge	664	; ret
		665	;------------------------------------------------------------------------------
2434	Serge	666	align 4
		667	;------------------------------------------------------------------------------
		668	draw_rectangle: ;//////////////////////////////////////////////////////////////
		669	;------------------------------------------------------------------------------
		670	;> eax = pack[16(left), 16(right)]
		671	;> ebx = pack[16(top), 16(bottom)]
		672	;> esi = color
		673	; ?? RR GG BB ; 0x01000000 negation
		674	; ; 0x02000000 used for draw_rectangle without top line
		675	; ; for example drawwindow_III and drawwindow_IV
		676	;------------------------------------------------------------------------------
		677	push eax ebx ecx edi
		678
		679	xor edi, edi
2439	Serge	680	;--------------------------------------
		681	align 4
		682	.flags_set:
2434	Serge	683	push ebx
		684
		685	; set line color
		686	mov ecx, esi
		687	; draw top border
		688	rol ebx, 16
		689	push ebx
		690	rol ebx, 16
		691	pop bx
		692	test ecx, 1 shl 25
		693	jnz @f
		694	sub ecx, 1 shl 25
2465	Serge	695	; call [draw_line]
		696	call __sys_draw_line
2439	Serge	697	;--------------------------------------
		698	align 4
2434	Serge	699	@@:
		700	; draw bottom border
		701	mov ebx, [esp - 2]
		702	pop bx
2465	Serge	703	; call [draw_line]
		704	call __sys_draw_line
2434	Serge	705
		706	pop ebx
		707	add ebx, 1 * 65536 - 1
		708
		709	; draw left border
		710	rol eax, 16
		711	push eax
		712	rol eax, 16
		713	pop ax
2465	Serge	714	; call [draw_line]
		715	call __sys_draw_line
2434	Serge	716
		717	; draw right border
		718	mov eax, [esp - 2]
		719	pop ax
2465	Serge	720	; call [draw_line]
		721	call __sys_draw_line
2434	Serge	722
		723	pop edi ecx ebx eax
		724	ret
2439	Serge	725	;--------------------------------------
		726	align 4
		727	.forced:
2434	Serge	728	push eax ebx ecx edi
		729	xor edi, edi
		730	inc edi
		731	jmp .flags_set
2439	Serge	732	;------------------------------------------------------------------------------
2434	Serge	733	align 4
		734	;------------------------------------------------------------------------------
		735	drawwindow_I_caption: ;////////////////////////////////////////////////////////
		736	;------------------------------------------------------------------------------
		737	;?
		738	;------------------------------------------------------------------------------
		739	push [edx + WDATA.cl_titlebar]
		740	mov esi, edx
		741
		742	mov edx, [esi + WDATA.box.top]
		743	mov eax, edx
		744	lea ebx, [edx + 21]
		745	inc edx
		746	add eax, [esi + WDATA.box.height]
		747
		748	cmp ebx, eax
		749	jbe @f
		750	mov ebx, eax
2439	Serge	751	;--------------------------------------
		752	align 4
		753	@@:
2434	Serge	754	push ebx
		755
		756	xor edi, edi
2439	Serge	757	;--------------------------------------
		758	align 4
		759	.next_line:
2434	Serge	760	mov ebx, edx
		761	shl ebx, 16
		762	add ebx, edx
		763	mov eax, [esi + WDATA.box.left]
		764	inc eax
		765	shl eax, 16
		766	add eax, [esi + WDATA.box.left]
		767	add eax, [esi + WDATA.box.width]
		768	dec eax
		769	mov ecx, [esi + WDATA.cl_titlebar]
		770	test ecx, 0x80000000
		771	jz @f
		772	sub ecx, 0x00040404
		773	mov [esi + WDATA.cl_titlebar], ecx
2439	Serge	774	;--------------------------------------
		775	align 4
		776	@@:
2434	Serge	777	and ecx, 0x00ffffff
2465	Serge	778	; call [draw_line]
		779	call __sys_draw_line
2434	Serge	780	inc edx
		781	cmp edx, [esp]
		782	jb .next_line
		783
		784	add esp, 4
		785	pop [esi + WDATA.cl_titlebar]
		786	ret
2439	Serge	787	;------------------------------------------------------------------------------
2434	Serge	788	align 4
		789	;------------------------------------------------------------------------------
		790	drawwindow_I: ;////////////////////////////////////////////////////////////////
		791	;------------------------------------------------------------------------------
		792	;?
		793	;------------------------------------------------------------------------------
		794	pushad
		795
		796	; window border
		797
		798	mov eax, [edx + WDATA.box.left - 2]
		799	mov ax, word[edx + WDATA.box.left]
		800	add ax, word[edx + WDATA.box.width]
		801	mov ebx, [edx + WDATA.box.top - 2]
		802	mov bx, word[edx + WDATA.box.top]
		803	add bx, word[edx + WDATA.box.height]
		804
		805	mov esi, [edx + WDATA.cl_frames]
		806	call draw_rectangle
		807
		808	; window caption
		809
		810	call drawwindow_I_caption
		811
		812	; window client area
		813
		814	; do we need to draw it?
		815	mov edi, [esi + WDATA.cl_workarea]
		816	test edi, 0x40000000
		817	jnz .exit
		818
		819	; does client area have a positive size on screen?
		820	mov edx, [esi + WDATA.box.top]
		821	add edx, 21 + 5
		822	mov ebx, [esi + WDATA.box.top]
		823	add ebx, [esi + WDATA.box.height]
		824	cmp edx, ebx
		825	jg .exit
		826
		827	; okay, let's draw it
		828	mov eax, 1
		829	mov ebx, 21
		830	mov ecx, [esi + WDATA.box.width]
		831	mov edx, [esi + WDATA.box.height]
2465	Serge	832	; call [drawbar]
		833	call vesa20_drawbar
2439	Serge	834	;--------------------------------------
		835	align 4
		836	.exit:
2434	Serge	837	popad
		838	ret
2439	Serge	839	;------------------------------------------------------------------------------
2434	Serge	840	align 4
		841	;------------------------------------------------------------------------------
		842	drawwindow_III_caption: ;/////////////////////////////////////////////////////
		843	;------------------------------------------------------------------------------
		844	;?
		845	;------------------------------------------------------------------------------
		846	mov ecx, [edx + WDATA.cl_titlebar]
		847	push ecx
		848	mov esi, edx
		849	mov edx, [esi + WDATA.box.top]
		850	add edx, 4
		851	mov ebx, [esi + WDATA.box.top]
		852	add ebx, 20
		853	mov eax, [esi + WDATA.box.top]
		854	add eax, [esi + WDATA.box.height]
		855
		856	cmp ebx, eax
		857	jb @f
		858	mov ebx, eax
2439	Serge	859	;--------------------------------------
		860	align 4
		861	@@:
2434	Serge	862	push ebx
		863
		864	xor edi, edi
2439	Serge	865	;--------------------------------------
		866	align 4
		867	.next_line:
2434	Serge	868	mov ebx, edx
		869	shl ebx, 16
		870	add ebx, edx
		871	mov eax, [esi + WDATA.box.left]
		872	shl eax, 16
		873	add eax, [esi + WDATA.box.left]
		874	add eax, [esi + WDATA.box.width]
		875	add eax, 4 * 65536 - 4
		876	mov ecx, [esi + WDATA.cl_titlebar]
		877	test ecx, 0x40000000
		878	jz @f
		879	add ecx, 0x00040404
2439	Serge	880	;--------------------------------------
		881	align 4
		882	@@:
2434	Serge	883	test ecx, 0x80000000
		884	jz @f
		885	sub ecx, 0x00040404
2439	Serge	886	;--------------------------------------
		887	align 4
		888	@@:
2434	Serge	889	mov [esi + WDATA.cl_titlebar], ecx
		890	and ecx, 0x00ffffff
2465	Serge	891	; call [draw_line]
		892	call __sys_draw_line
2434	Serge	893	inc edx
		894	cmp edx, [esp]
		895	jb .next_line
		896
		897	add esp, 4
		898	pop [esi + WDATA.cl_titlebar]
		899	ret
2439	Serge	900	;------------------------------------------------------------------------------
2434	Serge	901	align 4
		902	;------------------------------------------------------------------------------
		903	drawwindow_III: ;//////////////////////////////////////////////////////////////
		904	;------------------------------------------------------------------------------
		905	;?
		906	;------------------------------------------------------------------------------
		907	pushad
		908
		909	; window border
		910
		911	mov eax, [edx + WDATA.box.left - 2]
		912	mov ax, word[edx + WDATA.box.left]
		913	add ax, word[edx + WDATA.box.width]
		914	mov ebx, [edx + WDATA.box.top - 2]
		915	mov bx, word[edx + WDATA.box.top]
		916	add bx, word[edx + WDATA.box.height]
		917
		918	mov esi, [edx + WDATA.cl_frames]
		919	shr esi, 1
		920	and esi, 0x007f7f7f
		921	call draw_rectangle
		922
		923	push esi
		924	mov ecx, 3
		925	mov esi, [edx + WDATA.cl_frames]
2439	Serge	926	;--------------------------------------
		927	align 4
		928	.next_frame:
2434	Serge	929	add eax, 1 * 65536 - 1
2465	Serge	930	add ebx, 1 * 65536 - 1
2434	Serge	931	call draw_rectangle
		932	dec ecx
		933	jnz .next_frame
		934
		935	pop esi
		936	add eax, 1 * 65536 - 1
2465	Serge	937	add ebx, 1 * 65536 - 1
2434	Serge	938	call draw_rectangle
		939
		940	; window caption
		941
		942	call drawwindow_III_caption
		943
		944	; window client area
		945
		946	; do we need to draw it?
		947	mov edi, [esi + WDATA.cl_workarea]
		948	test edi, 0x40000000
		949	jnz .exit
		950
		951	; does client area have a positive size on screen?
		952	mov edx, [esi + WDATA.box.top]
		953	add edx, 21 + 5
		954	mov ebx, [esi + WDATA.box.top]
		955	add ebx, [esi + WDATA.box.height]
		956	cmp edx, ebx
		957	jg .exit
		958
		959	; okay, let's draw it
		960	mov eax, 5
		961	mov ebx, 20
		962	mov ecx, [esi + WDATA.box.width]
		963	mov edx, [esi + WDATA.box.height]
		964	sub ecx, 4
		965	sub edx, 4
2465	Serge	966	; call [drawbar]
		967	call vesa20_drawbar
2439	Serge	968	;--------------------------------------
		969	align 4
		970	.exit:
2434	Serge	971	popad
		972	ret
2439	Serge	973	;------------------------------------------------------------------------------
2434	Serge	974	align 4
		975	;------------------------------------------------------------------------------
		976	waredraw: ;////////////////////////////////////////////////////////////////////
		977	;------------------------------------------------------------------------------
		978	;? Activate window, redrawing if necessary
		979	;------------------------------------------------------------------------------
		980	push -1
		981	mov eax, [TASK_COUNT]
		982	lea eax, [WIN_POS + eax * 2]
		983	cmp eax, esi
		984	pop eax
		985	je .exit
		986
		987	; is it overlapped by another window now?
		988	push ecx
		989	call window._.check_window_draw
		990	test ecx, ecx
		991	pop ecx
		992	jz .do_not_draw
		993
		994	; yes it is, activate and update screen buffer
		995	mov byte[MOUSE_DOWN], 1
		996	call window._.window_activate
		997
		998	pushad
		999	mov edi, [TASK_COUNT]
		1000	movzx esi, word[WIN_POS + edi * 2]
		1001	shl esi, 5
		1002	add esi, window_data
		1003
		1004	mov eax, [esi + WDATA.box.left]
		1005	mov ebx, [esi + WDATA.box.top]
		1006	mov ecx, [esi + WDATA.box.width]
		1007	mov edx, [esi + WDATA.box.height]
		1008
		1009	add ecx, eax
		1010	add edx, ebx
		1011
		1012	mov edi, [TASK_COUNT]
		1013	movzx esi, word[WIN_POS + edi * 2]
		1014	call window._.set_screen
		1015	inc [_display.mask_seqno]
		1016	popad
		1017
		1018	; tell application to redraw itself
		1019	mov [edi + WDATA.fl_redraw], 1
		1020	xor eax, eax
		1021	jmp .exit
2439	Serge	1022	;--------------------------------------
		1023	align 4
		1024	.do_not_draw:
2434	Serge	1025	; no it's not, just activate the window
		1026	call window._.window_activate
		1027	xor eax, eax
		1028	mov byte[MOUSE_BACKGROUND], al
		1029	mov byte[DONT_DRAW_MOUSE], al
2439	Serge	1030	;--------------------------------------
		1031	align 4
		1032	.exit:
2434	Serge	1033	mov byte[MOUSE_DOWN], 0
		1034	inc eax
		1035	ret
2439	Serge	1036	;------------------------------------------------------------------------------
2434	Serge	1037	align 4
		1038	;------------------------------------------------------------------------------
2987	Serge	1039	minimize_all_window:
		1040	push ebx ecx edx esi edi
		1041	pushfd
		1042	cli
		1043	xor edx, edx
		1044	mov eax, 2 ; we do not minimize the kernel thread N1
		1045	mov ebx, [TASK_COUNT]
		1046	;--------------------------------------
		1047	align 4
		1048	.loop:
		1049	movzx edi, word[WIN_POS + eax * 2]
		1050	shl edi, 5
		1051	; it is a unused slot?
		1052	cmp dword [edi+CURRENT_TASK+TASKDATA.state], 9
		1053	je @f
		1054	; it is a hidden thread?
		1055	lea esi, [edi*8+SLOT_BASE+APPDATA.app_name]
		1056	cmp [esi], byte '@'
		1057	je @f
		1058	; is it already minimized?
		1059	test [edi + window_data+WDATA.fl_wstate], WSTATE_MINIMIZED
		1060	jnz @f
		1061	; no it's not, let's do that
		1062	or [edi + window_data+WDATA.fl_wstate], WSTATE_MINIMIZED
		1063	inc edx
		1064	;--------------------------------------
		1065	align 4
		1066	@@:
		1067	inc eax
		1068	cmp eax, ebx
		1069	jbe .loop
		1070	; If nothing has changed
		1071	test edx, edx
		1072	jz @f
		1073
		1074	push edx
		1075	call syscall_display_settings._.calculate_whole_screen
		1076	call syscall_display_settings._.redraw_whole_screen
		1077	pop edx
		1078	;--------------------------------------
		1079	align 4
		1080	@@:
		1081	mov eax, edx
		1082	popfd
		1083	pop edi esi edx ecx ebx
		1084	ret
		1085	;------------------------------------------------------------------------------
		1086	align 4
		1087	;------------------------------------------------------------------------------
2434	Serge	1088	minimize_window: ;/////////////////////////////////////////////////////////////
		1089	;------------------------------------------------------------------------------
		1090	;> eax = window number on screen
		1091	;------------------------------------------------------------------------------
		1092	;# corrupts [dl*]
		1093	;------------------------------------------------------------------------------
		1094	push edi
		1095	pushfd
		1096	cli
		1097
		1098	; is it already minimized?
		1099	movzx edi, word[WIN_POS + eax * 2]
		1100	shl edi, 5
		1101	add edi, window_data
		1102	test [edi + WDATA.fl_wstate], WSTATE_MINIMIZED
		1103	jnz .exit
		1104
		1105	push eax ebx ecx edx esi
		1106
		1107	; no it's not, let's do that
		1108	or [edi + WDATA.fl_wstate], WSTATE_MINIMIZED
2987	Serge	1109	; If the window width is 0, then the action is not needed.
		1110	cmp [edi + WDATA.box.width], dword 0
		1111	je @f
		1112	; If the window height is 0, then the action is not needed.
		1113	cmp [edi + WDATA.box.height], dword 0
		1114	je @f
		1115
2434	Serge	1116	mov eax, [edi + WDATA.box.left]
		1117	mov [draw_limits.left], eax
		1118	mov ecx, eax
		1119	add ecx, [edi + WDATA.box.width]
		1120	mov [draw_limits.right], ecx
		1121	mov ebx, [edi + WDATA.box.top]
		1122	mov [draw_limits.top], ebx
		1123	mov edx, ebx
		1124	add edx, [edi + WDATA.box.height]
		1125	mov [draw_limits.bottom], edx
2987	Serge	1126
		1127	; DEBUGF 1, "K : minimize_window\n"
		1128	; DEBUGF 1, "K : dl_left %x\n",[draw_limits.left]
		1129	; DEBUGF 1, "K : dl_right %x\n",[draw_limits.right]
		1130	; DEBUGF 1, "K : dl_top %x\n",[draw_limits.top]
		1131	; DEBUGF 1, "K : dl_bottom %x\n",[draw_limits.bottom]
2434	Serge	1132	call calculatescreen
2987	Serge	1133	; xor esi, esi
		1134	; xor eax, eax
		1135	mov eax, edi
2434	Serge	1136	call redrawscreen
2987	Serge	1137	;--------------------------------------
		1138	align 4
		1139	@@:
2434	Serge	1140	pop esi edx ecx ebx eax
2439	Serge	1141	;--------------------------------------
		1142	align 4
		1143	.exit:
2434	Serge	1144	popfd
		1145	pop edi
		1146	ret
2439	Serge	1147	;------------------------------------------------------------------------------
2434	Serge	1148	align 4
		1149	;------------------------------------------------------------------------------
		1150	restore_minimized_window: ;////////////////////////////////////////////////////
		1151	;------------------------------------------------------------------------------
		1152	;> eax = window number on screen
		1153	;------------------------------------------------------------------------------
		1154	;# corrupts [dl*]
		1155	;------------------------------------------------------------------------------
		1156	pushad
		1157	pushfd
		1158	cli
		1159
		1160	; is it already restored?
		1161	movzx esi, word[WIN_POS + eax * 2]
		1162	mov edi, esi
		1163	shl edi, 5
		1164	add edi, window_data
		1165	test [edi + WDATA.fl_wstate], WSTATE_MINIMIZED
		1166	jz .exit
		1167
		1168	; no it's not, let's do that
		1169	mov [edi + WDATA.fl_redraw], 1
		1170	and [edi + WDATA.fl_wstate], not WSTATE_MINIMIZED
		1171	mov ebp, window._.set_screen
		1172	cmp eax, [TASK_COUNT]
		1173	jz @f
		1174	mov ebp, calculatescreen
2439	Serge	1175	;--------------------------------------
		1176	align 4
		1177	@@:
2434	Serge	1178	mov eax, [edi + WDATA.box.left]
		1179	mov ebx, [edi + WDATA.box.top]
		1180	mov ecx, [edi + WDATA.box.width]
		1181	mov edx, [edi + WDATA.box.height]
		1182	add ecx, eax
		1183	add edx, ebx
		1184	call ebp
		1185	inc [_display.mask_seqno]
		1186	mov byte[MOUSE_BACKGROUND], 0
2439	Serge	1187	;--------------------------------------
		1188	align 4
		1189	.exit:
2434	Serge	1190	popfd
		1191	popad
		1192	ret
2439	Serge	1193	;------------------------------------------------------------------------------
2434	Serge	1194	align 4
		1195	; TODO: remove this proc
		1196	;------------------------------------------------------------------------------
		1197	window_check_events: ;/////////////////////////////////////////////////////////
		1198	;------------------------------------------------------------------------------
		1199	;?
		1200	;------------------------------------------------------------------------------
		1201	; do we have window minimize/restore request?
		1202	cmp [window_minimize], 0
		1203	je .exit
		1204
		1205	; okay, minimize or restore top-most window and exit
		1206	mov eax, [TASK_COUNT]
		1207	mov bl, 0
		1208	xchg [window_minimize], bl
		1209	dec bl
		1210	jnz @f
		1211	call minimize_window
		1212	jmp .exit
2439	Serge	1213	;--------------------------------------
		1214	align 4
		1215	@@:
2434	Serge	1216	call restore_minimized_window
2439	Serge	1217	;--------------------------------------
		1218	align 4
		1219	.exit:
2434	Serge	1220	ret
2439	Serge	1221	;------------------------------------------------------------------------------
2434	Serge	1222	align 4
		1223	;------------------------------------------------------------------------------
		1224	sys_window_maximize_handler: ;/////////////////////////////////////////////////
		1225	;------------------------------------------------------------------------------
		1226	;?
		1227	;------------------------------------------------------------------------------
		1228	;> esi = process slot
		1229	;------------------------------------------------------------------------------
		1230	mov edi, esi
		1231	shl edi, 5
		1232	add edi, window_data
		1233
		1234	; can window change its height?
		1235	; only types 2 and 3 can be resized
		1236	mov dl, [edi + WDATA.fl_wstyle]
		1237	test dl, 2
		1238	jz .exit
		1239
		1240	; toggle normal/maximized window state
		1241	mov bl, [edi + WDATA.fl_wstate]
		1242	xor bl, WSTATE_MAXIMIZED
		1243
		1244	; calculate and set appropriate window bounds
		1245	test bl, WSTATE_MAXIMIZED
		1246	jz .restore_size
		1247
		1248	mov eax, [screen_workarea.left]
		1249	mov ecx, [screen_workarea.top]
		1250	push [screen_workarea.bottom] \
		1251	[screen_workarea.right] \
		1252	ecx \
		1253	eax
		1254	sub [esp + BOX.width], eax
		1255	sub [esp + BOX.height], ecx
		1256	mov eax, esp
		1257	jmp .set_box
2439	Serge	1258	;--------------------------------------
		1259	align 4
		1260	.restore_size:
2434	Serge	1261	mov eax, esi
		1262	shl eax, 8
		1263	add eax, SLOT_BASE + APPDATA.saved_box
		1264	push [eax + BOX.height] \
		1265	[eax + BOX.width] \
		1266	[eax + BOX.top] \
		1267	[eax + BOX.left]
		1268	mov eax, esp
2439	Serge	1269	;--------------------------------------
		1270	align 4
		1271	.set_box:
2434	Serge	1272	test bl, WSTATE_ROLLEDUP
		1273	jz @f
		1274
		1275	xchg eax, ecx
		1276	call window._.get_rolledup_height
		1277	mov [ecx + BOX.height], eax
		1278	xchg eax, ecx
2439	Serge	1279	;--------------------------------------
		1280	align 4
		1281	@@:
2434	Serge	1282	call window._.set_window_box
		1283	add esp, sizeof.BOX
2439	Serge	1284	;--------------------------------------
		1285	align 4
		1286	.exit:
2434	Serge	1287	inc [_display.mask_seqno]
		1288	ret
2439	Serge	1289	;------------------------------------------------------------------------------
2434	Serge	1290	align 4
		1291	;------------------------------------------------------------------------------
		1292	sys_window_rollup_handler: ;///////////////////////////////////////////////////
		1293	;------------------------------------------------------------------------------
		1294	;?
		1295	;------------------------------------------------------------------------------
		1296	;> esi = process slot
		1297	;------------------------------------------------------------------------------
		1298	mov edx, esi
		1299	shl edx, 8
		1300	add edx, SLOT_BASE
		1301
		1302	; toggle normal/rolled up window state
		1303	mov bl, [edi + WDATA.fl_wstate]
		1304	xor bl, WSTATE_ROLLEDUP
		1305
		1306	; calculate and set appropriate window bounds
		1307	test bl, WSTATE_ROLLEDUP
		1308	jz .restore_size
		1309
		1310	call window._.get_rolledup_height
		1311	push eax \
		1312	[edi + WDATA.box.width] \
		1313	[edi + WDATA.box.top] \
		1314	[edi + WDATA.box.left]
		1315	mov eax, esp
		1316	jmp .set_box
2439	Serge	1317	;--------------------------------------
		1318	align 4
		1319	.restore_size:
2434	Serge	1320	test bl, WSTATE_MAXIMIZED
		1321	jnz @f
		1322	add esp, -sizeof.BOX
		1323	lea eax, [edx + APPDATA.saved_box]
		1324	jmp .set_box
2439	Serge	1325	;--------------------------------------
		1326	align 4
		1327	@@:
2434	Serge	1328	mov eax, [screen_workarea.top]
		1329	push [screen_workarea.bottom] \
		1330	[edi + WDATA.box.width] \
		1331	eax \
		1332	[edi + WDATA.box.left]
		1333	sub [esp + BOX.height], eax
		1334	mov eax, esp
2439	Serge	1335	;--------------------------------------
		1336	align 4
		1337	.set_box:
2434	Serge	1338	call window._.set_window_box
		1339	add esp, sizeof.BOX
		1340	ret
2439	Serge	1341	;------------------------------------------------------------------------------
2434	Serge	1342	align 4
		1343	;------------------------------------------------------------------------------
2987	Serge	1344	;sys_window_start_moving_handler: ;/////////////////////////////////////////////
2434	Serge	1345	;------------------------------------------------------------------------------
		1346	;?
		1347	;------------------------------------------------------------------------------
		1348	;> eax = old (original) window box
		1349	;> esi = process slot
		1350	;------------------------------------------------------------------------------
2987	Serge	1351	; mov edi, eax
		1352	; call window._.draw_negative_box
		1353	; ret
2439	Serge	1354	;------------------------------------------------------------------------------
2434	Serge	1355	align 4
		1356	;------------------------------------------------------------------------------
		1357	sys_window_end_moving_handler: ;///////////////////////////////////////////////
		1358	;------------------------------------------------------------------------------
		1359	;?
		1360	;------------------------------------------------------------------------------
		1361	;> eax = old (original) window box
		1362	;> ebx = new (final) window box
		1363	;> esi = process slot
		1364	;------------------------------------------------------------------------------
2987	Serge	1365	; mov edi, ebx
		1366	; call window._.end_moving__box
2434	Serge	1367
		1368	mov edi, esi
		1369	shl edi, 5
		1370	add edi, window_data
		1371
		1372	mov eax, ebx
		1373	mov bl, [edi + WDATA.fl_wstate]
		1374	call window._.set_window_box
		1375	ret
2439	Serge	1376	;------------------------------------------------------------------------------
2434	Serge	1377	align 4
		1378	;------------------------------------------------------------------------------
		1379	sys_window_moving_handler: ;///////////////////////////////////////////////////
		1380	;------------------------------------------------------------------------------
		1381	;?
		1382	;------------------------------------------------------------------------------
		1383	;> eax = old (from previous call) window box
		1384	;> ebx = new (current) window box
		1385	;> esi = process_slot
		1386	;------------------------------------------------------------------------------
		1387	mov edi, eax
		1388	call window._.draw_negative_box
		1389	mov edi, ebx
		1390	call window._.draw_negative_box
		1391	ret
		1392	;==============================================================================
		1393	;///// private functions //////////////////////////////////////////////////////
		1394	;==============================================================================
		1395
		1396	iglobal
		1397	FuncTable syscall_display_settings, ftable, \
		1398	00, 01, 02, 03, 04, 05, 06, 07, 08
		1399
		1400	align 4
		1401	window_topleft dd \
		1402	1, 21, \ ;type 0
		1403	0, 0, \ ;type 1
		1404	5, 20, \ ;type 2
		1405	5, ?, \ ;type 3 {set by skin}
		1406	5, ? ;type 4 {set by skin}
		1407	endg
		1408
		1409	;uglobal
		1410	; NOTE: commented out since doesn't provide necessary functionality anyway,
		1411	; to be reworked
		1412	; new_window_starting dd ?
		1413	;endg
2439	Serge	1414	;------------------------------------------------------------------------------
2434	Serge	1415	align 4
		1416	;------------------------------------------------------------------------------
		1417	window._.invalidate_screen: ;//////////////////////////////////////////////////
		1418	;------------------------------------------------------------------------------
		1419	;?
		1420	;------------------------------------------------------------------------------
		1421	;> eax = old (original) window box
		1422	;> ebx = new (final) window box
		1423	;> edi = pointer to WDATA struct
		1424	;------------------------------------------------------------------------------
		1425	push eax ebx
		1426
		1427	; TODO: do we really need `draw_limits`?
		1428	; Yes, they are used by background drawing code.
2987	Serge	1429
		1430	; we need only to restore the background windows at the old place!
		1431	mov ecx, [ebx + BOX.left]
2434	Serge	1432	mov [draw_limits.left], ecx
2987	Serge	1433	add ecx, [ebx + BOX.width]
2434	Serge	1434	mov [draw_limits.right], ecx
2987	Serge	1435	mov ecx, [ebx + BOX.top]
2434	Serge	1436	mov [draw_limits.top], ecx
2987	Serge	1437	add ecx, [ebx + BOX.height]
2434	Serge	1438	mov [draw_limits.bottom], ecx
2987	Serge	1439	; recalculate screen buffer at old position
2434	Serge	1440	push ebx
		1441	mov edx, [eax + BOX.height]
		1442	mov ecx, [eax + BOX.width]
		1443	mov ebx, [eax + BOX.top]
		1444	mov eax, [eax + BOX.left]
		1445	add ecx, eax
		1446	add edx, ebx
		1447	call calculatescreen
		1448	pop eax
2987	Serge	1449	; recalculate screen buffer at new position
2434	Serge	1450	mov edx, [eax + BOX.height]
		1451	mov ecx, [eax + BOX.width]
		1452	mov ebx, [eax + BOX.top]
		1453	mov eax, [eax + BOX.left]
		1454	add ecx, eax
		1455	add edx, ebx
		1456	call calculatescreen
		1457
		1458	mov eax, edi
		1459	call redrawscreen
		1460
		1461	; tell window to redraw itself
		1462	mov [edi + WDATA.fl_redraw], 1
		1463
		1464	pop ebx eax
		1465	ret
2439	Serge	1466	;------------------------------------------------------------------------------
2434	Serge	1467	align 4
		1468	;------------------------------------------------------------------------------
		1469	window._.set_window_box: ;/////////////////////////////////////////////////////
		1470	;------------------------------------------------------------------------------
		1471	;?
		1472	;------------------------------------------------------------------------------
		1473	;> eax = pointer to BOX struct
		1474	;> bl = new window state flags
		1475	;> edi = pointer to WDATA struct
		1476	;------------------------------------------------------------------------------
		1477	push eax ebx esi
		1478
		1479	; don't do anything if the new box is identical to the old
		1480	cmp bl, [edi + WDATA.fl_wstate]
		1481	jnz @f
		1482	mov esi, eax
		1483	push edi
		1484	if WDATA.box
		1485	add edi, WDATA.box
		1486	end if
		1487	mov ecx, 4
		1488	repz cmpsd
		1489	pop edi
		1490	jz .exit
2439	Serge	1491	;--------------------------------------
		1492	align 4
2434	Serge	1493	@@:
		1494	add esp, -sizeof.BOX
		1495	mov ebx, esp
		1496	if WDATA.box
		1497	lea esi, [edi + WDATA.box]
		1498	else
		1499	mov esi, edi ; optimization for WDATA.box = 0
		1500	end if
		1501	xchg eax, esi
		1502	mov ecx, sizeof.BOX
		1503	call memmove
		1504	xchg eax, esi
		1505	xchg ebx, esi
		1506	call memmove
		1507	mov eax, ebx
		1508	mov ebx, esi
		1509
		1510	call window._.check_window_position
		1511	call window._.set_window_clientbox
		1512	call window._.invalidate_screen
		1513
		1514	add esp, sizeof.BOX
		1515
		1516	mov cl, [esp + 4]
		1517	mov ch, cl
		1518	xchg cl, [edi + WDATA.fl_wstate]
		1519
		1520	or cl, ch
		1521	test cl, WSTATE_MAXIMIZED
		1522	jnz .exit
		1523
		1524	mov eax, edi
		1525	sub eax, window_data
		1526	shl eax, 3
		1527	add eax, SLOT_BASE
		1528
		1529	lea ebx, [edi + WDATA.box]
		1530	xchg esp, ebx
		1531
		1532	pop [eax + APPDATA.saved_box.left] \
		1533	[eax + APPDATA.saved_box.top] \
		1534	[eax + APPDATA.saved_box.width] \
		1535	edx
		1536
		1537	xchg esp, ebx
		1538
		1539	test ch, WSTATE_ROLLEDUP
		1540	jnz .exit
		1541
		1542	mov [eax + APPDATA.saved_box.height], edx
2439	Serge	1543	;--------------------------------------
		1544	align 4
		1545	.exit:
2434	Serge	1546	pop esi ebx eax
		1547	ret
2439	Serge	1548	;------------------------------------------------------------------------------
2434	Serge	1549	align 4
		1550	;------------------------------------------------------------------------------
		1551	window._.set_window_clientbox: ;///////////////////////////////////////////////
		1552	;------------------------------------------------------------------------------
		1553	;?
		1554	;------------------------------------------------------------------------------
		1555	;> edi = pointer to WDATA struct
		1556	;------------------------------------------------------------------------------
		1557	push eax ecx edi
		1558
		1559	mov eax, [_skinh]
		1560	mov [window_topleft + 8 * 3 + 4], eax
		1561	mov [window_topleft + 8 * 4 + 4], eax
		1562
		1563	mov ecx, edi
		1564	sub edi, window_data
		1565	shl edi, 3
		1566	test [ecx + WDATA.fl_wstyle], WSTYLE_CLIENTRELATIVE
		1567	jz .whole_window
		1568
		1569	movzx eax, [ecx + WDATA.fl_wstyle]
		1570	and eax, 0x0F
		1571	mov eax, [eax * 8 + window_topleft + 0]
		1572	mov [edi + SLOT_BASE + APPDATA.wnd_clientbox.left], eax
		1573	shl eax, 1
		1574	neg eax
		1575	add eax, [ecx + WDATA.box.width]
		1576	mov [edi + SLOT_BASE + APPDATA.wnd_clientbox.width], eax
		1577
		1578	movzx eax, [ecx + WDATA.fl_wstyle]
		1579	and eax, 0x0F
		1580	push [eax * 8 + window_topleft + 0]
		1581	mov eax, [eax * 8 + window_topleft + 4]
		1582	mov [edi + SLOT_BASE + APPDATA.wnd_clientbox.top], eax
		1583	neg eax
		1584	sub eax, [esp]
		1585	add eax, [ecx + WDATA.box.height]
		1586	mov [edi + SLOT_BASE + APPDATA.wnd_clientbox.height], eax
		1587	add esp, 4
		1588	jmp .exit
2439	Serge	1589	;--------------------------------------
		1590	align 4
		1591	.whole_window:
2434	Serge	1592	xor eax, eax
		1593	mov [edi + SLOT_BASE + APPDATA.wnd_clientbox.left], eax
		1594	mov [edi + SLOT_BASE + APPDATA.wnd_clientbox.top], eax
		1595	mov eax, [ecx + WDATA.box.width]
		1596	mov [edi + SLOT_BASE + APPDATA.wnd_clientbox.width], eax
		1597	mov eax, [ecx + WDATA.box.height]
		1598	mov [edi + SLOT_BASE + APPDATA.wnd_clientbox.height], eax
2439	Serge	1599	;--------------------------------------
		1600	align 4
		1601	.exit:
2434	Serge	1602	pop edi ecx eax
		1603	ret
2439	Serge	1604	;------------------------------------------------------------------------------
2434	Serge	1605	align 4
		1606	;------------------------------------------------------------------------------
		1607	window._.sys_set_window: ;/////////////////////////////////////////////////////
		1608	;------------------------------------------------------------------------------
		1609	;?
		1610	;------------------------------------------------------------------------------
		1611	;< edx = pointer to WDATA struct
		1612	;------------------------------------------------------------------------------
		1613	mov eax, [CURRENT_TASK]
		1614	shl eax, 5
		1615	add eax, window_data
		1616
		1617	; save window colors
		1618	mov [eax + WDATA.cl_workarea], edx
		1619	mov [eax + WDATA.cl_titlebar], esi
		1620	mov [eax + WDATA.cl_frames], edi
		1621
		1622	mov edi, eax
		1623
		1624	; was it already defined before?
		1625	test [edi + WDATA.fl_wdrawn], 1
		1626	jnz .set_client_box
		1627	or [edi + WDATA.fl_wdrawn], 1
2987	Serge	1628	; After first draw_window we need redraw mouse necessarily!
		1629	; Otherwise the user can see cursor specified by f.37.5 from another window.
		1630	; He will be really unhappy! He is terrible in rage - usually he throws stones!
		1631	mov [redrawmouse_unconditional], 1
2434	Serge	1632	; NOTE: commented out since doesn't provide necessary functionality
		1633	; anyway, to be reworked
		1634	; mov eax, [timer_ticks] ; [0xfdf0]
		1635	; add eax, 100
		1636	; mov [new_window_starting], eax
		1637
		1638	; no it wasn't, performing initial window definition
		1639	movzx eax, bx
		1640	mov [edi + WDATA.box.width], eax
		1641	movzx eax, cx
		1642	mov [edi + WDATA.box.height], eax
		1643	sar ebx, 16
		1644	sar ecx, 16
		1645	mov [edi + WDATA.box.left], ebx
		1646	mov [edi + WDATA.box.top], ecx
		1647
		1648	call window._.check_window_position
		1649
		1650	push ecx edi
		1651
		1652	mov cl, [edi + WDATA.fl_wstyle]
		1653	mov eax, [edi + WDATA.cl_frames]
		1654
		1655	sub edi, window_data
		1656	shl edi, 3
		1657	add edi, SLOT_BASE
		1658
		1659	and cl, 0x0F
		1660	cmp cl, 3
		1661	je @f
		1662	cmp cl, 4
		1663	je @f
		1664
		1665	xor eax, eax
2439	Serge	1666	;--------------------------------------
		1667	align 4
		1668	@@:
2434	Serge	1669	mov [edi + APPDATA.wnd_caption], eax
		1670
		1671	mov esi, [esp]
		1672	add edi, APPDATA.saved_box
		1673	movsd
		1674	movsd
		1675	movsd
		1676	movsd
		1677
		1678	pop edi ecx
		1679
		1680	mov esi, [CURRENT_TASK]
		1681	movzx esi, word[WIN_STACK + esi * 2]
		1682	lea esi, [WIN_POS + esi * 2]
		1683	call waredraw
		1684
		1685	mov eax, [edi + WDATA.box.left]
		1686	mov ebx, [edi + WDATA.box.top]
		1687	mov ecx, [edi + WDATA.box.width]
		1688	mov edx, [edi + WDATA.box.height]
		1689	add ecx, eax
		1690	add edx, ebx
		1691	call calculatescreen
		1692
		1693	mov byte[KEY_COUNT], 0 ; empty keyboard buffer
		1694	mov byte[BTN_COUNT], 0 ; empty button buffer
2439	Serge	1695	;--------------------------------------
		1696	align 4
		1697	.set_client_box:
2434	Serge	1698	; update window client box coordinates
		1699	call window._.set_window_clientbox
		1700
		1701	; reset window redraw flag and exit
		1702	mov [edi + WDATA.fl_redraw], 0
		1703	mov edx, edi
		1704	ret
2439	Serge	1705	;------------------------------------------------------------------------------
2434	Serge	1706	align 4
		1707	;------------------------------------------------------------------------------
		1708	window._.check_window_position: ;//////////////////////////////////////////////
		1709	;------------------------------------------------------------------------------
		1710	;? Check if window is inside screen area
		1711	;------------------------------------------------------------------------------
		1712	;> edi = pointer to WDATA
		1713	;------------------------------------------------------------------------------
		1714	push eax ebx ecx edx esi
		1715
		1716	mov eax, [edi + WDATA.box.left]
		1717	mov ebx, [edi + WDATA.box.top]
		1718	mov ecx, [edi + WDATA.box.width]
		1719	mov edx, [edi + WDATA.box.height]
		1720
		1721	mov esi, [Screen_Max_X]
		1722	cmp ecx, esi
		1723	ja .fix_width_high
2439	Serge	1724	;--------------------------------------
		1725	align 4
		1726	.check_left:
2434	Serge	1727	or eax, eax
		1728	jl .fix_left_low
		1729	add eax, ecx
		1730	cmp eax, esi
		1731	jg .fix_left_high
2439	Serge	1732	;--------------------------------------
		1733	align 4
		1734	.check_height:
2434	Serge	1735	mov esi, [Screen_Max_Y]
		1736	cmp edx, esi
		1737	ja .fix_height_high
2439	Serge	1738	;--------------------------------------
		1739	align 4
		1740	.check_top:
2434	Serge	1741	or ebx, ebx
		1742	jl .fix_top_low
		1743	add ebx, edx
		1744	cmp ebx, esi
		1745	jg .fix_top_high
2439	Serge	1746	;--------------------------------------
		1747	align 4
		1748	.exit:
2434	Serge	1749	pop esi edx ecx ebx eax
		1750	ret
2439	Serge	1751	;--------------------------------------
		1752	align 4
		1753	.fix_width_high:
2434	Serge	1754	mov ecx, esi
		1755	mov [edi + WDATA.box.width], esi
		1756	jmp .check_left
2439	Serge	1757	;--------------------------------------
		1758	align 4
		1759	.fix_left_low:
2434	Serge	1760	xor eax, eax
		1761	mov [edi + WDATA.box.left], eax
		1762	jmp .check_height
2439	Serge	1763	;--------------------------------------
		1764	align 4
		1765	.fix_left_high:
2434	Serge	1766	mov eax, esi
		1767	sub eax, ecx
		1768	mov [edi + WDATA.box.left], eax
		1769	jmp .check_height
2439	Serge	1770	;--------------------------------------
		1771	align 4
		1772	.fix_height_high:
2434	Serge	1773	mov edx, esi
		1774	mov [edi + WDATA.box.height], esi
		1775	jmp .check_top
2439	Serge	1776	;--------------------------------------
		1777	align 4
		1778	.fix_top_low:
2434	Serge	1779	xor ebx, ebx
		1780	mov [edi + WDATA.box.top], ebx
		1781	jmp .exit
2439	Serge	1782	;--------------------------------------
		1783	align 4
		1784	.fix_top_high:
2434	Serge	1785	mov ebx, esi
		1786	sub ebx, edx
		1787	mov [edi + WDATA.box.top], ebx
		1788	jmp .exit
2439	Serge	1789	;------------------------------------------------------------------------------
2434	Serge	1790	align 4
		1791	;------------------------------------------------------------------------------
		1792	window._.get_titlebar_height: ;////////////////////////////////////////////////
		1793	;------------------------------------------------------------------------------
		1794	;?
		1795	;------------------------------------------------------------------------------
		1796	;> edi = pointer to WDATA
		1797	;------------------------------------------------------------------------------
		1798	mov al, [edi + WDATA.fl_wstyle]
		1799	and al, 0x0f
		1800	cmp al, 0x03
		1801	jne @f
		1802	mov eax, [_skinh]
		1803	ret
2439	Serge	1804	;--------------------------------------
		1805	align 4
		1806	@@:
2434	Serge	1807	mov eax, 21
		1808	ret
2439	Serge	1809	;------------------------------------------------------------------------------
2434	Serge	1810	align 4
		1811	;------------------------------------------------------------------------------
		1812	window._.get_rolledup_height: ;////////////////////////////////////////////////
		1813	;------------------------------------------------------------------------------
		1814	;?
		1815	;------------------------------------------------------------------------------
		1816	;> edi = pointer to WDATA
		1817	;------------------------------------------------------------------------------
		1818	mov al, [edi + WDATA.fl_wstyle]
		1819	and al, 0x0f
		1820	cmp al, 0x03
		1821	jb @f
		1822	mov eax, [_skinh]
		1823	add eax, 3
		1824	ret
2439	Serge	1825	;--------------------------------------
		1826	align 4
		1827	@@:
2434	Serge	1828	or al, al
		1829	jnz @f
		1830	mov eax, 21
		1831	ret
2439	Serge	1832	;--------------------------------------
		1833	align 4
		1834	@@:
2434	Serge	1835	mov eax, 21 + 2
		1836	ret
2439	Serge	1837	;------------------------------------------------------------------------------
2434	Serge	1838	align 4
		1839	;------------------------------------------------------------------------------
		1840	window._.set_screen: ;/////////////////////////////////////////////////////////
		1841	;------------------------------------------------------------------------------
		1842	;? Reserve window area in screen buffer
		1843	;------------------------------------------------------------------------------
		1844	;> eax = left
		1845	;> ebx = top
		1846	;> ecx = right
		1847	;> edx = bottom
		1848	;> esi = process number
		1849	;------------------------------------------------------------------------------
		1850	virtual at esp
		1851	ff_x dd ?
		1852	ff_y dd ?
		1853	ff_width dd ?
		1854	ff_xsz dd ?
		1855	ff_ysz dd ?
		1856	ff_scale dd ?
		1857	end virtual
		1858
		1859	pushad
		1860
		1861	cmp esi, 1
		1862	jz .check_for_shaped_window
		1863	mov edi, esi
		1864	shl edi, 5
		1865	cmp [window_data + edi + WDATA.box.width], 0
		1866	jnz .check_for_shaped_window
		1867	cmp [window_data + edi + WDATA.box.height], 0
		1868	jz .exit
2439	Serge	1869	;--------------------------------------
		1870	align 4
		1871	.check_for_shaped_window:
2434	Serge	1872	mov edi, esi
		1873	shl edi, 8
		1874	add edi, SLOT_BASE
		1875	cmp [edi + APPDATA.wnd_shape], 0
		1876	jne .shaped_window
		1877
		1878	; get x&y size
		1879	sub ecx, eax
		1880	sub edx, ebx
		1881	inc ecx
		1882	inc edx
		1883
		1884	; get WinMap start
		1885	push esi
2465	Serge	1886	; mov edi, [Screen_Max_X]
		1887	; inc edi
		1888	; mov esi, edi
		1889	mov esi, [Screen_Max_X]
		1890	inc esi
		1891	; imul edi, ebx
		1892	mov edi, [d_width_calc_area + ebx*4]
		1893
2434	Serge	1894	add edi, eax
		1895	add edi, [_WinMapAddress]
		1896	pop eax
		1897	mov ah, al
		1898	push ax
		1899	shl eax, 16
		1900	pop ax
2439	Serge	1901	;--------------------------------------
		1902	align 4
		1903	.next_line:
2434	Serge	1904	push ecx
		1905	shr ecx, 2
		1906	rep stosd
		1907	mov ecx, [esp]
		1908	and ecx, 3
		1909	rep stosb
		1910	pop ecx
		1911	add edi, esi
		1912	sub edi, ecx
		1913	dec edx
		1914	jnz .next_line
		1915
		1916	jmp .exit
2439	Serge	1917	;--------------------------------------
		1918	align 4
		1919	.shaped_window:
2434	Serge	1920	; for (y=0; y <= x_size; y++)
		1921	; for (x=0; x <= x_size; x++)
		1922	; if (shape[coord(x,y,scale)]==1)
		1923	; set_pixel(x, y, process_number);
		1924
		1925	sub ecx, eax
		1926	sub edx, ebx
		1927	inc ecx
		1928	inc edx
		1929
		1930	push [edi + APPDATA.wnd_shape_scale] ; push scale first -> for loop
		1931
		1932	; get WinMap start -> ebp
		1933	push eax
2465	Serge	1934	; mov eax, [Screen_Max_X] ; screen_sx
		1935	; inc eax
		1936	; imul eax, ebx
		1937	mov eax, [d_width_calc_area + ebx*4]
		1938
2434	Serge	1939	add eax, [esp]
		1940	add eax, [_WinMapAddress]
		1941	mov ebp, eax
		1942
		1943	mov edi, [edi + APPDATA.wnd_shape]
		1944	pop eax
		1945
		1946	; eax = x_start
		1947	; ebx = y_start
		1948	; ecx = x_size
		1949	; edx = y_size
		1950	; esi = process_number
		1951	; edi = &shape
		1952	; [scale]
		1953	push edx ecx ; for loop - x,y size
		1954
		1955	mov ecx, esi
		1956	shl ecx, 5
		1957	mov edx, [window_data + ecx + WDATA.box.top]
		1958	push [window_data + ecx + WDATA.box.width] ; for loop - width
		1959	mov ecx, [window_data + ecx + WDATA.box.left]
		1960	sub ebx, edx
		1961	sub eax, ecx
		1962	push ebx eax ; for loop - x,y
		1963
		1964	add [ff_xsz], eax
		1965	add [ff_ysz], ebx
		1966
		1967	mov ebx, [ff_y]
2439	Serge	1968	;--------------------------------------
		1969	align 4
		1970	.ff_new_y:
2434	Serge	1971	mov edx, [ff_x]
2439	Serge	1972	;--------------------------------------
		1973	align 4
		1974	.ff_new_x:
2434	Serge	1975	; -- body --
		1976	mov ecx, [ff_scale]
		1977	mov eax, [ff_width]
		1978	inc eax
		1979	shr eax, cl
		1980	push ebx edx
		1981	shr ebx, cl
		1982	shr edx, cl
		1983	imul eax, ebx
		1984	add eax, edx
		1985	pop edx ebx
		1986	add eax, edi
		1987	call .read_byte
		1988	test al, al
		1989	jz @f
		1990	mov eax, esi
		1991	mov [ebp], al
		1992	; -- end body --
2439	Serge	1993	;--------------------------------------
		1994	align 4
		1995	@@:
2434	Serge	1996	inc ebp
		1997	inc edx
		1998	cmp edx, [ff_xsz]
		1999	jb .ff_new_x
		2000
		2001	sub ebp, [ff_xsz]
		2002	add ebp, [ff_x]
		2003	add ebp, [Screen_Max_X] ; screen.x
		2004	inc ebp
		2005	inc ebx
		2006	cmp ebx, [ff_ysz]
		2007	jb .ff_new_y
		2008
		2009	add esp, 24
2439	Serge	2010	;--------------------------------------
		2011	align 4
		2012	.exit:
2434	Serge	2013	popad
		2014	inc [_display.mask_seqno]
		2015	ret
2439	Serge	2016	;--------------------------------------
		2017	align 4
		2018	.read_byte:
2434	Serge	2019	; eax - address
		2020	; esi - slot
		2021	push eax ecx edx esi
		2022	xchg eax, esi
		2023	lea ecx, [esp + 12]
		2024	mov edx, 1
		2025	call read_process_memory
		2026	pop esi edx ecx eax
		2027	ret
2439	Serge	2028	;------------------------------------------------------------------------------
2434	Serge	2029	align 4
		2030	;------------------------------------------------------------------------------
		2031	window._.window_activate: ;////////////////////////////////////////////////////
		2032	;------------------------------------------------------------------------------
		2033	;? Activate window
		2034	;------------------------------------------------------------------------------
		2035	;> esi = pointer to WIN_POS+ window data
		2036	;------------------------------------------------------------------------------
		2037	push eax ebx
		2038
		2039	; if type of current active window is 3 or 4, it must be redrawn
		2040	mov ebx, [TASK_COUNT]
		2041
		2042	; DEBUGF 1, "K : TASK_COUNT (0x%x)\n", ebx
		2043
		2044	movzx ebx, word[WIN_POS + ebx * 2]
		2045	shl ebx, 5
		2046	add eax, window_data
		2047	mov al, [window_data + ebx + WDATA.fl_wstyle]
		2048	and al, 0x0f
		2049	cmp al, 0x03
		2050	je .set_window_redraw_flag
		2051	cmp al, 0x04
		2052	jne .move_others_down
2439	Serge	2053	;--------------------------------------
		2054	align 4
		2055	.set_window_redraw_flag:
2434	Serge	2056	mov [window_data + ebx + WDATA.fl_redraw], 1
2439	Serge	2057	;--------------------------------------
		2058	align 4
		2059	.move_others_down:
2434	Serge	2060	; ax <- process no
		2061	movzx ebx, word[esi]
		2062	; ax <- position in window stack
		2063	movzx ebx, word[WIN_STACK + ebx * 2]
		2064
		2065	; drop others
		2066	xor eax, eax
2439	Serge	2067	;--------------------------------------
		2068	align 4
		2069	.next_stack_window:
2434	Serge	2070	cmp eax, [TASK_COUNT]
		2071	jae .move_self_up
		2072	inc eax
		2073
		2074	; push ebx
		2075	; xor ebx,ebx
		2076	; mov bx,[WIN_STACK + eax * 2]
		2077	; DEBUGF 1, "K : DEC WIN_STACK (0x%x)\n",ebx
		2078	; pop ebx
		2079
		2080	cmp [WIN_STACK + eax * 2], bx
		2081	jbe .next_stack_window
		2082	dec word[WIN_STACK + eax * 2]
		2083	jmp .next_stack_window
2439	Serge	2084	;--------------------------------------
		2085	align 4
		2086	.move_self_up:
2434	Serge	2087	movzx ebx, word[esi]
		2088	; number of processes
		2089	mov ax, [TASK_COUNT]
		2090	; this is the last (and the upper)
		2091	mov [WIN_STACK + ebx * 2], ax
		2092
		2093	; update on screen - window stack
		2094	xor eax, eax
2439	Serge	2095	;--------------------------------------
		2096	align 4
		2097	.next_window_pos:
2434	Serge	2098	cmp eax, [TASK_COUNT]
		2099	jae .reset_vars
		2100	inc eax
		2101	movzx ebx, word[WIN_STACK + eax * 2]
		2102	mov [WIN_POS + ebx * 2], ax
		2103	jmp .next_window_pos
2439	Serge	2104	;--------------------------------------
		2105	align 4
		2106	.reset_vars:
2434	Serge	2107	mov byte[KEY_COUNT], 0
		2108	mov byte[BTN_COUNT], 0
		2109	mov word[MOUSE_SCROLL_H], 0
		2110	mov word[MOUSE_SCROLL_V], 0
		2111
		2112	pop ebx eax
		2113	ret
		2114	;------------------------------------------------------------------------------
		2115	window._.window_deactivate: ;////////////////////////////////////////////////////
		2116	;------------------------------------------------------------------------------
		2117	;? Deactivate window
		2118	;------------------------------------------------------------------------------
		2119	;> esi = pointer to WIN_POS+ window data
		2120	;------------------------------------------------------------------------------
		2121	push eax ebx
2439	Serge	2122	;--------------------------------------
		2123	align 4
2434	Serge	2124	.move_others_up:
		2125	; ax <- process no
		2126	movzx ebx, word[esi]
		2127	; ax <- position in window stack
		2128	movzx ebx, word[WIN_STACK + ebx * 2]
		2129	; up others
		2130	xor eax, eax
2439	Serge	2131	;--------------------------------------
		2132	align 4
2434	Serge	2133	.next_stack_window:
		2134	cmp eax, [TASK_COUNT]
		2135	jae .move_self_down
		2136	inc eax
		2137	cmp [WIN_STACK + eax * 2], bx
		2138	jae .next_stack_window
		2139	inc word[WIN_STACK + eax * 2]
		2140	jmp .next_stack_window
2439	Serge	2141	;--------------------------------------
		2142	align 4
2434	Serge	2143	.move_self_down:
		2144	movzx ebx, word[esi]
		2145	; this is the last (and the low)
		2146	mov [WIN_STACK + ebx * 2], word 1
		2147	; update on screen - window stack
		2148	xor eax, eax
2439	Serge	2149	;--------------------------------------
		2150	align 4
2434	Serge	2151	.next_window_pos:
		2152	cmp eax, [TASK_COUNT]
		2153	jae .reset_vars
		2154	inc eax
		2155	movzx ebx, word[WIN_STACK + eax * 2]
		2156	mov [WIN_POS + ebx * 2], ax
		2157	jmp .next_window_pos
2439	Serge	2158	;--------------------------------------
		2159	align 4
2434	Serge	2160	.reset_vars:
		2161	mov byte[KEY_COUNT], 0
		2162	mov byte[BTN_COUNT], 0
		2163	mov word[MOUSE_SCROLL_H], 0
		2164	mov word[MOUSE_SCROLL_V], 0
		2165	pop ebx eax
		2166	ret
		2167	;------------------------------------------------------------------------------
		2168	align 4
		2169	;------------------------------------------------------------------------------
		2170	window._.check_window_draw: ;//////////////////////////////////////////////////
		2171	;------------------------------------------------------------------------------
		2172	;? Check if window is necessary to draw
		2173	;------------------------------------------------------------------------------
		2174	;> edi = pointer to WDATA
		2175	;------------------------------------------------------------------------------
		2176	mov cl, [edi + WDATA.fl_wstyle]
		2177	and cl, 0x0f
		2178	cmp cl, 3
		2179	je .exit.redraw ; window type 3
		2180	cmp cl, 4
		2181	je .exit.redraw ; window type 4
		2182
		2183	push eax ebx edx esi
		2184
		2185	mov eax, edi
		2186	sub eax, window_data
		2187	shr eax, 5
		2188
		2189	movzx eax, word[WIN_STACK + eax * 2] ; get value of the curr process
		2190	lea esi, [WIN_POS + eax * 2] ; get address of this process at 0xC400
2439	Serge	2191	;--------------------------------------
		2192	align 4
		2193	.next_window:
2434	Serge	2194	add esi, 2
		2195
		2196	mov eax, [TASK_COUNT]
		2197	lea eax, word[WIN_POS + eax * 2] ; number of the upper window
		2198
		2199	cmp esi, eax
		2200	ja .exit.no_redraw
		2201
		2202	movzx edx, word[esi]
		2203	shl edx, 5
		2204	cmp [CURRENT_TASK + edx + TASKDATA.state], TSTATE_FREE
		2205	je .next_window
		2206
		2207	mov eax, [edi + WDATA.box.top]
		2208	mov ebx, [edi + WDATA.box.height]
		2209	add ebx, eax
		2210
		2211	mov ecx, [window_data + edx + WDATA.box.top]
		2212	cmp ecx, ebx
		2213	jge .next_window
		2214	add ecx, [window_data + edx + WDATA.box.height]
		2215	cmp eax, ecx
		2216	jge .next_window
		2217
		2218	mov eax, [edi + WDATA.box.left]
		2219	mov ebx, [edi + WDATA.box.width]
		2220	add ebx, eax
		2221
		2222	mov ecx, [window_data + edx + WDATA.box.left]
		2223	cmp ecx, ebx
		2224	jge .next_window
		2225	add ecx, [window_data + edx + WDATA.box.width]
		2226	cmp eax, ecx
		2227	jge .next_window
		2228
		2229	pop esi edx ebx eax
2439	Serge	2230	;--------------------------------------
		2231	align 4
		2232	.exit.redraw:
2434	Serge	2233	xor ecx, ecx
		2234	inc ecx
		2235	ret
2439	Serge	2236	;--------------------------------------
		2237	align 4
		2238	.exit.no_redraw:
2434	Serge	2239	pop esi edx ebx eax
		2240	xor ecx, ecx
		2241	ret
2439	Serge	2242	;------------------------------------------------------------------------------
2434	Serge	2243	align 4
		2244	;------------------------------------------------------------------------------
		2245	window._.draw_window_caption: ;////////////////////////////////////////////////
		2246	;------------------------------------------------------------------------------
		2247	;?
		2248	;------------------------------------------------------------------------------
		2249	xor eax, eax
		2250	mov edx, [TASK_COUNT]
		2251	movzx edx, word[WIN_POS + edx * 2]
		2252	cmp edx, [CURRENT_TASK]
		2253	jne @f
		2254	inc eax
2439	Serge	2255	;--------------------------------------
		2256	align 4
		2257	@@:
2434	Serge	2258	mov edx, [CURRENT_TASK]
		2259	shl edx, 5
		2260	add edx, window_data
		2261	movzx ebx, [edx + WDATA.fl_wstyle]
		2262	and bl, 0x0F
		2263	cmp bl, 3
		2264	je .draw_caption_style_3
		2265	cmp bl, 4
		2266	je .draw_caption_style_3
		2267
		2268	jmp .not_style_3
2439	Serge	2269	;--------------------------------------
		2270	align 4
		2271	.draw_caption_style_3:
2434	Serge	2272	push edx
		2273	call drawwindow_IV_caption
		2274	add esp, 4
		2275	jmp .2
2439	Serge	2276	;--------------------------------------
		2277	align 4
		2278	.not_style_3:
2434	Serge	2279	cmp bl, 2
		2280	jne .not_style_2
		2281
		2282	call drawwindow_III_caption
		2283	jmp .2
2439	Serge	2284	;--------------------------------------
		2285	align 4
		2286	.not_style_2:
2434	Serge	2287	cmp bl, 0
		2288	jne .2
		2289
		2290	call drawwindow_I_caption
2439	Serge	2291	;--------------------------------------
		2292	align 4
		2293	.2:
2434	Serge	2294	mov edi, [CURRENT_TASK]
		2295	shl edi, 5
		2296	test [edi + window_data + WDATA.fl_wstyle], WSTYLE_HASCAPTION
		2297	jz .exit
		2298	mov edx, [edi * 8 + SLOT_BASE + APPDATA.wnd_caption]
		2299	or edx, edx
		2300	jz .exit
		2301
		2302	movzx eax, [edi + window_data + WDATA.fl_wstyle]
		2303	and al, 0x0F
		2304	cmp al, 3
		2305	je .skinned
		2306	cmp al, 4
		2307	je .skinned
		2308
		2309	jmp .not_skinned
2439	Serge	2310	;--------------------------------------
		2311	align 4
		2312	.skinned:
2434	Serge	2313	mov ebp, [edi + window_data + WDATA.box.left - 2]
		2314	mov bp, word[edi + window_data + WDATA.box.top]
		2315	movzx eax, word[edi + window_data + WDATA.box.width]
		2316	sub ax, [_skinmargins.left]
		2317	sub ax, [_skinmargins.right]
		2318	push edx
		2319	cwde
		2320	cdq
		2321	mov ebx, 6
		2322	idiv ebx
		2323	pop edx
		2324	or eax, eax
		2325	js .exit
		2326
		2327	mov esi, eax
		2328	mov ebx, dword[_skinmargins.left - 2]
		2329	mov bx, word[_skinh]
		2330	sub bx, [_skinmargins.bottom]
		2331	sub bx, [_skinmargins.top]
		2332	sar bx, 1
		2333	adc bx, 0
		2334	add bx, [_skinmargins.top]
		2335	add bx, -3
		2336	add ebx, ebp
		2337	jmp .dodraw
2439	Serge	2338	;--------------------------------------
		2339	align 4
		2340	.not_skinned:
2434	Serge	2341	cmp al, 1
		2342	je .exit
		2343
		2344	mov ebp, [edi + window_data + WDATA.box.left - 2]
		2345	mov bp, word[edi + window_data + WDATA.box.top]
		2346	movzx eax, word[edi + window_data + WDATA.box.width]
		2347	sub eax, 16
		2348	push edx
		2349	cwde
		2350	cdq
		2351	mov ebx, 6
		2352	idiv ebx
		2353	pop edx
		2354	or eax, eax
		2355	js .exit
		2356
		2357	mov esi, eax
		2358	mov ebx, 0x00080007
		2359	add ebx, ebp
2439	Serge	2360	;--------------------------------------
		2361	align 4
		2362	.dodraw:
2434	Serge	2363	mov ecx, [common_colours + 16]
		2364	or ecx, 0x80000000
		2365	xor edi, edi
		2366	call dtext_asciiz_esi
2439	Serge	2367	;--------------------------------------
		2368	align 4
		2369	.exit:
2465	Serge	2370	; call [draw_pointer]
		2371	call __sys_draw_pointer
2434	Serge	2372	ret
2439	Serge	2373	;------------------------------------------------------------------------------
2434	Serge	2374	align 4
		2375	;------------------------------------------------------------------------------
		2376	window._.draw_negative_box: ;//////////////////////////////////////////////////
		2377	;------------------------------------------------------------------------------
		2378	;? Draw negative box
		2379	;------------------------------------------------------------------------------
		2380	;> edi = pointer to BOX struct
		2381	;------------------------------------------------------------------------------
		2382	push eax ebx esi
		2383	mov esi, 0x01000000
2439	Serge	2384	;--------------------------------------
		2385	align 4
2434	Serge	2386	.1:
		2387	mov eax, [edi + BOX.left - 2]
		2388	mov ax, word[edi + BOX.left]
		2389	add ax, word[edi + BOX.width]
		2390	mov ebx, [edi + BOX.top - 2]
		2391	mov bx, word[edi + BOX.top]
		2392	add bx, word[edi + BOX.height]
		2393	call draw_rectangle.forced
		2394	pop esi ebx eax
		2395	ret
		2396	;------------------------------------------------------------------------------
2987	Serge	2397	;align 4
2439	Serge	2398	;------------------------------------------------------------------------------
2987	Serge	2399	;window._.end_moving__box: ;//////////////////////////////////////////////////
2434	Serge	2400	;------------------------------------------------------------------------------
		2401	;? Draw positive box
		2402	;------------------------------------------------------------------------------
		2403	;> edi = pointer to BOX struct
		2404	;------------------------------------------------------------------------------
2987	Serge	2405	; push eax ebx esi
		2406	; xor esi, esi
		2407	; jmp window._.draw_negative_box.1
2434	Serge	2408	;------------------------------------------------------------------------------
2439	Serge	2409	align 4
		2410	;------------------------------------------------------------------------------
2434	Serge	2411	window._.get_rect: ;/////////////////////////////////////////////////////
		2412	;------------------------------------------------------------------------------
		2413	;? void __fastcall get_window_rect(struct RECT* rc);
		2414	;------------------------------------------------------------------------------
		2415	;> ecx = pointer to RECT
		2416	;------------------------------------------------------------------------------
		2417	mov eax, [TASK_BASE]
		2418
		2419	mov edx, [eax-twdw + WDATA.box.left]
		2420	mov [ecx+RECT.left], edx
		2421
		2422	add edx, [eax-twdw + WDATA.box.width]
		2423	mov [ecx+RECT.right], edx
		2424
		2425	mov edx, [eax-twdw + WDATA.box.top]
		2426	mov [ecx+RECT.top], edx
		2427
		2428	add edx, [eax-twdw + WDATA.box.height]
		2429	mov [ecx+RECT.bottom], edx
		2430	ret
2439	Serge	2431	;------------------------------------------------------------------------------

Subversion Repositories Kolibri OS

(root)/kernel/branches/Kolibri-acpi/gui/window.inc – Rev 3500