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: 3555 $
		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	call window._.window_activate
		996
		997	pushad
		998	mov edi, [TASK_COUNT]
		999	movzx esi, word[WIN_POS + edi * 2]
		1000	shl esi, 5
		1001	add esi, window_data
		1002
		1003	mov eax, [esi + WDATA.box.left]
		1004	mov ebx, [esi + WDATA.box.top]
		1005	mov ecx, [esi + WDATA.box.width]
		1006	mov edx, [esi + WDATA.box.height]
		1007
		1008	add ecx, eax
		1009	add edx, ebx
		1010
		1011	mov edi, [TASK_COUNT]
		1012	movzx esi, word[WIN_POS + edi * 2]
		1013	call window._.set_screen
		1014	inc [_display.mask_seqno]
		1015	popad
		1016
		1017	; tell application to redraw itself
		1018	mov [edi + WDATA.fl_redraw], 1
		1019	xor eax, eax
		1020	jmp .exit
2439	Serge	1021	;--------------------------------------
		1022	align 4
		1023	.do_not_draw:
2434	Serge	1024	; no it's not, just activate the window
		1025	call window._.window_activate
		1026	xor eax, eax
2439	Serge	1027	;--------------------------------------
		1028	align 4
		1029	.exit:
2434	Serge	1030	inc eax
		1031	ret
2439	Serge	1032	;------------------------------------------------------------------------------
2434	Serge	1033	align 4
		1034	;------------------------------------------------------------------------------
2987	Serge	1035	minimize_all_window:
		1036	push ebx ecx edx esi edi
		1037	pushfd
		1038	cli
		1039	xor edx, edx
		1040	mov eax, 2 ; we do not minimize the kernel thread N1
		1041	mov ebx, [TASK_COUNT]
		1042	;--------------------------------------
		1043	align 4
		1044	.loop:
		1045	movzx edi, word[WIN_POS + eax * 2]
		1046	shl edi, 5
		1047	; it is a unused slot?
		1048	cmp dword [edi+CURRENT_TASK+TASKDATA.state], 9
		1049	je @f
		1050	; it is a hidden thread?
		1051	lea esi, [edi*8+SLOT_BASE+APPDATA.app_name]
		1052	cmp [esi], byte '@'
		1053	je @f
		1054	; is it already minimized?
		1055	test [edi + window_data+WDATA.fl_wstate], WSTATE_MINIMIZED
		1056	jnz @f
		1057	; no it's not, let's do that
		1058	or [edi + window_data+WDATA.fl_wstate], WSTATE_MINIMIZED
		1059	inc edx
		1060	;--------------------------------------
		1061	align 4
		1062	@@:
		1063	inc eax
		1064	cmp eax, ebx
		1065	jbe .loop
		1066	; If nothing has changed
		1067	test edx, edx
		1068	jz @f
		1069
		1070	push edx
		1071	call syscall_display_settings._.calculate_whole_screen
		1072	call syscall_display_settings._.redraw_whole_screen
		1073	pop edx
		1074	;--------------------------------------
		1075	align 4
		1076	@@:
		1077	mov eax, edx
		1078	popfd
		1079	pop edi esi edx ecx ebx
		1080	ret
		1081	;------------------------------------------------------------------------------
		1082	align 4
		1083	;------------------------------------------------------------------------------
2434	Serge	1084	minimize_window: ;/////////////////////////////////////////////////////////////
		1085	;------------------------------------------------------------------------------
		1086	;> eax = window number on screen
		1087	;------------------------------------------------------------------------------
		1088	;# corrupts [dl*]
		1089	;------------------------------------------------------------------------------
		1090	push edi
		1091	pushfd
		1092	cli
		1093
		1094	; is it already minimized?
		1095	movzx edi, word[WIN_POS + eax * 2]
		1096	shl edi, 5
		1097	add edi, window_data
		1098	test [edi + WDATA.fl_wstate], WSTATE_MINIMIZED
		1099	jnz .exit
		1100
		1101	push eax ebx ecx edx esi
		1102
		1103	; no it's not, let's do that
		1104	or [edi + WDATA.fl_wstate], WSTATE_MINIMIZED
2987	Serge	1105	; If the window width is 0, then the action is not needed.
		1106	cmp [edi + WDATA.box.width], dword 0
		1107	je @f
		1108	; If the window height is 0, then the action is not needed.
		1109	cmp [edi + WDATA.box.height], dword 0
		1110	je @f
		1111
2434	Serge	1112	mov eax, [edi + WDATA.box.left]
		1113	mov [draw_limits.left], eax
		1114	mov ecx, eax
		1115	add ecx, [edi + WDATA.box.width]
		1116	mov [draw_limits.right], ecx
		1117	mov ebx, [edi + WDATA.box.top]
		1118	mov [draw_limits.top], ebx
		1119	mov edx, ebx
		1120	add edx, [edi + WDATA.box.height]
		1121	mov [draw_limits.bottom], edx
2987	Serge	1122
		1123	; DEBUGF 1, "K : minimize_window\n"
		1124	; DEBUGF 1, "K : dl_left %x\n",[draw_limits.left]
		1125	; DEBUGF 1, "K : dl_right %x\n",[draw_limits.right]
		1126	; DEBUGF 1, "K : dl_top %x\n",[draw_limits.top]
		1127	; DEBUGF 1, "K : dl_bottom %x\n",[draw_limits.bottom]
2434	Serge	1128	call calculatescreen
2987	Serge	1129	; xor esi, esi
		1130	; xor eax, eax
		1131	mov eax, edi
2434	Serge	1132	call redrawscreen
2987	Serge	1133	;--------------------------------------
		1134	align 4
		1135	@@:
2434	Serge	1136	pop esi edx ecx ebx eax
2439	Serge	1137	;--------------------------------------
		1138	align 4
		1139	.exit:
2434	Serge	1140	popfd
		1141	pop edi
		1142	ret
2439	Serge	1143	;------------------------------------------------------------------------------
2434	Serge	1144	align 4
		1145	;------------------------------------------------------------------------------
		1146	restore_minimized_window: ;////////////////////////////////////////////////////
		1147	;------------------------------------------------------------------------------
		1148	;> eax = window number on screen
		1149	;------------------------------------------------------------------------------
		1150	;# corrupts [dl*]
		1151	;------------------------------------------------------------------------------
		1152	pushad
		1153	pushfd
		1154	cli
		1155
		1156	; is it already restored?
		1157	movzx esi, word[WIN_POS + eax * 2]
		1158	mov edi, esi
		1159	shl edi, 5
		1160	add edi, window_data
		1161	test [edi + WDATA.fl_wstate], WSTATE_MINIMIZED
		1162	jz .exit
		1163
		1164	; no it's not, let's do that
		1165	mov [edi + WDATA.fl_redraw], 1
		1166	and [edi + WDATA.fl_wstate], not WSTATE_MINIMIZED
		1167	mov ebp, window._.set_screen
		1168	cmp eax, [TASK_COUNT]
		1169	jz @f
		1170	mov ebp, calculatescreen
2439	Serge	1171	;--------------------------------------
		1172	align 4
		1173	@@:
2434	Serge	1174	mov eax, [edi + WDATA.box.left]
		1175	mov ebx, [edi + WDATA.box.top]
		1176	mov ecx, [edi + WDATA.box.width]
		1177	mov edx, [edi + WDATA.box.height]
		1178	add ecx, eax
		1179	add edx, ebx
		1180	call ebp
		1181	inc [_display.mask_seqno]
2439	Serge	1182	;--------------------------------------
		1183	align 4
		1184	.exit:
2434	Serge	1185	popfd
		1186	popad
		1187	ret
2439	Serge	1188	;------------------------------------------------------------------------------
2434	Serge	1189	align 4
		1190	; TODO: remove this proc
		1191	;------------------------------------------------------------------------------
		1192	window_check_events: ;/////////////////////////////////////////////////////////
		1193	;------------------------------------------------------------------------------
		1194	;?
		1195	;------------------------------------------------------------------------------
		1196	; do we have window minimize/restore request?
		1197	cmp [window_minimize], 0
		1198	je .exit
		1199
		1200	; okay, minimize or restore top-most window and exit
		1201	mov eax, [TASK_COUNT]
		1202	mov bl, 0
		1203	xchg [window_minimize], bl
		1204	dec bl
		1205	jnz @f
		1206	call minimize_window
		1207	jmp .exit
2439	Serge	1208	;--------------------------------------
		1209	align 4
		1210	@@:
2434	Serge	1211	call restore_minimized_window
2439	Serge	1212	;--------------------------------------
		1213	align 4
		1214	.exit:
2434	Serge	1215	ret
2439	Serge	1216	;------------------------------------------------------------------------------
2434	Serge	1217	align 4
		1218	;------------------------------------------------------------------------------
		1219	sys_window_maximize_handler: ;/////////////////////////////////////////////////
		1220	;------------------------------------------------------------------------------
		1221	;?
		1222	;------------------------------------------------------------------------------
		1223	;> esi = process slot
		1224	;------------------------------------------------------------------------------
		1225	mov edi, esi
		1226	shl edi, 5
		1227	add edi, window_data
		1228
		1229	; can window change its height?
		1230	; only types 2 and 3 can be resized
		1231	mov dl, [edi + WDATA.fl_wstyle]
		1232	test dl, 2
		1233	jz .exit
		1234
		1235	; toggle normal/maximized window state
		1236	mov bl, [edi + WDATA.fl_wstate]
		1237	xor bl, WSTATE_MAXIMIZED
		1238
		1239	; calculate and set appropriate window bounds
		1240	test bl, WSTATE_MAXIMIZED
		1241	jz .restore_size
		1242
		1243	mov eax, [screen_workarea.left]
		1244	mov ecx, [screen_workarea.top]
		1245	push [screen_workarea.bottom] \
		1246	[screen_workarea.right] \
		1247	ecx \
		1248	eax
		1249	sub [esp + BOX.width], eax
		1250	sub [esp + BOX.height], ecx
		1251	mov eax, esp
		1252	jmp .set_box
2439	Serge	1253	;--------------------------------------
		1254	align 4
		1255	.restore_size:
2434	Serge	1256	mov eax, esi
		1257	shl eax, 8
		1258	add eax, SLOT_BASE + APPDATA.saved_box
		1259	push [eax + BOX.height] \
		1260	[eax + BOX.width] \
		1261	[eax + BOX.top] \
		1262	[eax + BOX.left]
		1263	mov eax, esp
2439	Serge	1264	;--------------------------------------
		1265	align 4
		1266	.set_box:
2434	Serge	1267	test bl, WSTATE_ROLLEDUP
		1268	jz @f
		1269
		1270	xchg eax, ecx
		1271	call window._.get_rolledup_height
		1272	mov [ecx + BOX.height], eax
		1273	xchg eax, ecx
2439	Serge	1274	;--------------------------------------
		1275	align 4
		1276	@@:
2434	Serge	1277	call window._.set_window_box
		1278	add esp, sizeof.BOX
2439	Serge	1279	;--------------------------------------
		1280	align 4
		1281	.exit:
2434	Serge	1282	inc [_display.mask_seqno]
		1283	ret
2439	Serge	1284	;------------------------------------------------------------------------------
2434	Serge	1285	align 4
		1286	;------------------------------------------------------------------------------
		1287	sys_window_rollup_handler: ;///////////////////////////////////////////////////
		1288	;------------------------------------------------------------------------------
		1289	;?
		1290	;------------------------------------------------------------------------------
		1291	;> esi = process slot
		1292	;------------------------------------------------------------------------------
		1293	mov edx, esi
		1294	shl edx, 8
		1295	add edx, SLOT_BASE
		1296
		1297	; toggle normal/rolled up window state
		1298	mov bl, [edi + WDATA.fl_wstate]
		1299	xor bl, WSTATE_ROLLEDUP
		1300
		1301	; calculate and set appropriate window bounds
		1302	test bl, WSTATE_ROLLEDUP
		1303	jz .restore_size
		1304
		1305	call window._.get_rolledup_height
		1306	push eax \
		1307	[edi + WDATA.box.width] \
		1308	[edi + WDATA.box.top] \
		1309	[edi + WDATA.box.left]
		1310	mov eax, esp
		1311	jmp .set_box
2439	Serge	1312	;--------------------------------------
		1313	align 4
		1314	.restore_size:
2434	Serge	1315	test bl, WSTATE_MAXIMIZED
		1316	jnz @f
		1317	add esp, -sizeof.BOX
		1318	lea eax, [edx + APPDATA.saved_box]
		1319	jmp .set_box
2439	Serge	1320	;--------------------------------------
		1321	align 4
		1322	@@:
2434	Serge	1323	mov eax, [screen_workarea.top]
		1324	push [screen_workarea.bottom] \
		1325	[edi + WDATA.box.width] \
		1326	eax \
		1327	[edi + WDATA.box.left]
		1328	sub [esp + BOX.height], eax
		1329	mov eax, esp
2439	Serge	1330	;--------------------------------------
		1331	align 4
		1332	.set_box:
2434	Serge	1333	call window._.set_window_box
		1334	add esp, sizeof.BOX
		1335	ret
2439	Serge	1336	;------------------------------------------------------------------------------
2434	Serge	1337	align 4
		1338	;------------------------------------------------------------------------------
2987	Serge	1339	;sys_window_start_moving_handler: ;/////////////////////////////////////////////
2434	Serge	1340	;------------------------------------------------------------------------------
		1341	;?
		1342	;------------------------------------------------------------------------------
		1343	;> eax = old (original) window box
		1344	;> esi = process slot
		1345	;------------------------------------------------------------------------------
2987	Serge	1346	; mov edi, eax
		1347	; call window._.draw_negative_box
		1348	; ret
2439	Serge	1349	;------------------------------------------------------------------------------
2434	Serge	1350	align 4
		1351	;------------------------------------------------------------------------------
		1352	sys_window_end_moving_handler: ;///////////////////////////////////////////////
		1353	;------------------------------------------------------------------------------
		1354	;?
		1355	;------------------------------------------------------------------------------
		1356	;> eax = old (original) window box
		1357	;> ebx = new (final) window box
		1358	;> esi = process slot
		1359	;------------------------------------------------------------------------------
2987	Serge	1360	; mov edi, ebx
		1361	; call window._.end_moving__box
2434	Serge	1362
		1363	mov edi, esi
		1364	shl edi, 5
		1365	add edi, window_data
		1366
		1367	mov eax, ebx
		1368	mov bl, [edi + WDATA.fl_wstate]
		1369	call window._.set_window_box
		1370	ret
2439	Serge	1371	;------------------------------------------------------------------------------
2434	Serge	1372	align 4
		1373	;------------------------------------------------------------------------------
		1374	sys_window_moving_handler: ;///////////////////////////////////////////////////
		1375	;------------------------------------------------------------------------------
		1376	;?
		1377	;------------------------------------------------------------------------------
		1378	;> eax = old (from previous call) window box
		1379	;> ebx = new (current) window box
		1380	;> esi = process_slot
		1381	;------------------------------------------------------------------------------
		1382	mov edi, eax
		1383	call window._.draw_negative_box
		1384	mov edi, ebx
		1385	call window._.draw_negative_box
		1386	ret
		1387	;==============================================================================
		1388	;///// private functions //////////////////////////////////////////////////////
		1389	;==============================================================================
		1390
		1391	iglobal
		1392	FuncTable syscall_display_settings, ftable, \
		1393	00, 01, 02, 03, 04, 05, 06, 07, 08
		1394
		1395	align 4
		1396	window_topleft dd \
		1397	1, 21, \ ;type 0
		1398	0, 0, \ ;type 1
		1399	5, 20, \ ;type 2
		1400	5, ?, \ ;type 3 {set by skin}
		1401	5, ? ;type 4 {set by skin}
		1402	endg
		1403
		1404	;uglobal
		1405	; NOTE: commented out since doesn't provide necessary functionality anyway,
		1406	; to be reworked
		1407	; new_window_starting dd ?
		1408	;endg
2439	Serge	1409	;------------------------------------------------------------------------------
2434	Serge	1410	align 4
		1411	;------------------------------------------------------------------------------
		1412	window._.invalidate_screen: ;//////////////////////////////////////////////////
		1413	;------------------------------------------------------------------------------
		1414	;?
		1415	;------------------------------------------------------------------------------
		1416	;> eax = old (original) window box
		1417	;> ebx = new (final) window box
		1418	;> edi = pointer to WDATA struct
		1419	;------------------------------------------------------------------------------
		1420	push eax ebx
		1421
		1422	; TODO: do we really need `draw_limits`?
		1423	; Yes, they are used by background drawing code.
2987	Serge	1424
		1425	; we need only to restore the background windows at the old place!
		1426	mov ecx, [ebx + BOX.left]
2434	Serge	1427	mov [draw_limits.left], ecx
2987	Serge	1428	add ecx, [ebx + BOX.width]
2434	Serge	1429	mov [draw_limits.right], ecx
2987	Serge	1430	mov ecx, [ebx + BOX.top]
2434	Serge	1431	mov [draw_limits.top], ecx
2987	Serge	1432	add ecx, [ebx + BOX.height]
2434	Serge	1433	mov [draw_limits.bottom], ecx
2987	Serge	1434	; recalculate screen buffer at old position
2434	Serge	1435	push ebx
		1436	mov edx, [eax + BOX.height]
		1437	mov ecx, [eax + BOX.width]
		1438	mov ebx, [eax + BOX.top]
		1439	mov eax, [eax + BOX.left]
		1440	add ecx, eax
		1441	add edx, ebx
		1442	call calculatescreen
		1443	pop eax
2987	Serge	1444	; recalculate screen buffer at new position
2434	Serge	1445	mov edx, [eax + BOX.height]
		1446	mov ecx, [eax + BOX.width]
		1447	mov ebx, [eax + BOX.top]
		1448	mov eax, [eax + BOX.left]
		1449	add ecx, eax
		1450	add edx, ebx
		1451	call calculatescreen
		1452
		1453	mov eax, edi
		1454	call redrawscreen
		1455
		1456	; tell window to redraw itself
		1457	mov [edi + WDATA.fl_redraw], 1
		1458
		1459	pop ebx eax
		1460	ret
2439	Serge	1461	;------------------------------------------------------------------------------
2434	Serge	1462	align 4
		1463	;------------------------------------------------------------------------------
		1464	window._.set_window_box: ;/////////////////////////////////////////////////////
		1465	;------------------------------------------------------------------------------
		1466	;?
		1467	;------------------------------------------------------------------------------
		1468	;> eax = pointer to BOX struct
		1469	;> bl = new window state flags
		1470	;> edi = pointer to WDATA struct
		1471	;------------------------------------------------------------------------------
		1472	push eax ebx esi
		1473
		1474	; don't do anything if the new box is identical to the old
		1475	cmp bl, [edi + WDATA.fl_wstate]
		1476	jnz @f
		1477	mov esi, eax
		1478	push edi
		1479	if WDATA.box
		1480	add edi, WDATA.box
		1481	end if
		1482	mov ecx, 4
		1483	repz cmpsd
		1484	pop edi
		1485	jz .exit
2439	Serge	1486	;--------------------------------------
		1487	align 4
2434	Serge	1488	@@:
		1489	add esp, -sizeof.BOX
		1490	mov ebx, esp
		1491	if WDATA.box
		1492	lea esi, [edi + WDATA.box]
		1493	else
		1494	mov esi, edi ; optimization for WDATA.box = 0
		1495	end if
		1496	xchg eax, esi
		1497	mov ecx, sizeof.BOX
		1498	call memmove
		1499	xchg eax, esi
		1500	xchg ebx, esi
		1501	call memmove
		1502	mov eax, ebx
		1503	mov ebx, esi
		1504
		1505	call window._.check_window_position
		1506	call window._.set_window_clientbox
		1507	call window._.invalidate_screen
		1508
		1509	add esp, sizeof.BOX
		1510
		1511	mov cl, [esp + 4]
		1512	mov ch, cl
		1513	xchg cl, [edi + WDATA.fl_wstate]
		1514
		1515	or cl, ch
		1516	test cl, WSTATE_MAXIMIZED
		1517	jnz .exit
		1518
		1519	mov eax, edi
		1520	sub eax, window_data
		1521	shl eax, 3
		1522	add eax, SLOT_BASE
		1523
		1524	lea ebx, [edi + WDATA.box]
		1525	xchg esp, ebx
		1526
		1527	pop [eax + APPDATA.saved_box.left] \
		1528	[eax + APPDATA.saved_box.top] \
		1529	[eax + APPDATA.saved_box.width] \
		1530	edx
		1531
		1532	xchg esp, ebx
		1533
		1534	test ch, WSTATE_ROLLEDUP
		1535	jnz .exit
		1536
		1537	mov [eax + APPDATA.saved_box.height], edx
2439	Serge	1538	;--------------------------------------
		1539	align 4
		1540	.exit:
2434	Serge	1541	pop esi ebx eax
		1542	ret
2439	Serge	1543	;------------------------------------------------------------------------------
2434	Serge	1544	align 4
		1545	;------------------------------------------------------------------------------
		1546	window._.set_window_clientbox: ;///////////////////////////////////////////////
		1547	;------------------------------------------------------------------------------
		1548	;?
		1549	;------------------------------------------------------------------------------
		1550	;> edi = pointer to WDATA struct
		1551	;------------------------------------------------------------------------------
		1552	push eax ecx edi
		1553
		1554	mov eax, [_skinh]
		1555	mov [window_topleft + 8 * 3 + 4], eax
		1556	mov [window_topleft + 8 * 4 + 4], eax
		1557
		1558	mov ecx, edi
		1559	sub edi, window_data
		1560	shl edi, 3
		1561	test [ecx + WDATA.fl_wstyle], WSTYLE_CLIENTRELATIVE
		1562	jz .whole_window
		1563
		1564	movzx eax, [ecx + WDATA.fl_wstyle]
		1565	and eax, 0x0F
		1566	mov eax, [eax * 8 + window_topleft + 0]
		1567	mov [edi + SLOT_BASE + APPDATA.wnd_clientbox.left], eax
		1568	shl eax, 1
		1569	neg eax
		1570	add eax, [ecx + WDATA.box.width]
		1571	mov [edi + SLOT_BASE + APPDATA.wnd_clientbox.width], eax
		1572
		1573	movzx eax, [ecx + WDATA.fl_wstyle]
		1574	and eax, 0x0F
		1575	push [eax * 8 + window_topleft + 0]
		1576	mov eax, [eax * 8 + window_topleft + 4]
		1577	mov [edi + SLOT_BASE + APPDATA.wnd_clientbox.top], eax
		1578	neg eax
		1579	sub eax, [esp]
		1580	add eax, [ecx + WDATA.box.height]
		1581	mov [edi + SLOT_BASE + APPDATA.wnd_clientbox.height], eax
		1582	add esp, 4
		1583	jmp .exit
2439	Serge	1584	;--------------------------------------
		1585	align 4
		1586	.whole_window:
2434	Serge	1587	xor eax, eax
		1588	mov [edi + SLOT_BASE + APPDATA.wnd_clientbox.left], eax
		1589	mov [edi + SLOT_BASE + APPDATA.wnd_clientbox.top], eax
		1590	mov eax, [ecx + WDATA.box.width]
		1591	mov [edi + SLOT_BASE + APPDATA.wnd_clientbox.width], eax
		1592	mov eax, [ecx + WDATA.box.height]
		1593	mov [edi + SLOT_BASE + APPDATA.wnd_clientbox.height], eax
2439	Serge	1594	;--------------------------------------
		1595	align 4
		1596	.exit:
2434	Serge	1597	pop edi ecx eax
		1598	ret
2439	Serge	1599	;------------------------------------------------------------------------------
2434	Serge	1600	align 4
		1601	;------------------------------------------------------------------------------
		1602	window._.sys_set_window: ;/////////////////////////////////////////////////////
		1603	;------------------------------------------------------------------------------
		1604	;?
		1605	;------------------------------------------------------------------------------
		1606	;< edx = pointer to WDATA struct
		1607	;------------------------------------------------------------------------------
		1608	mov eax, [CURRENT_TASK]
		1609	shl eax, 5
		1610	add eax, window_data
		1611
		1612	; save window colors
		1613	mov [eax + WDATA.cl_workarea], edx
		1614	mov [eax + WDATA.cl_titlebar], esi
		1615	mov [eax + WDATA.cl_frames], edi
		1616
		1617	mov edi, eax
		1618
		1619	; was it already defined before?
		1620	test [edi + WDATA.fl_wdrawn], 1
		1621	jnz .set_client_box
		1622	or [edi + WDATA.fl_wdrawn], 1
2987	Serge	1623	; After first draw_window we need redraw mouse necessarily!
		1624	; Otherwise the user can see cursor specified by f.37.5 from another window.
		1625	; He will be really unhappy! He is terrible in rage - usually he throws stones!
		1626	mov [redrawmouse_unconditional], 1
3555	Serge	1627	call wakeup_osloop
2434	Serge	1628	; NOTE: commented out since doesn't provide necessary functionality
		1629	; anyway, to be reworked
		1630	; mov eax, [timer_ticks] ; [0xfdf0]
		1631	; add eax, 100
		1632	; mov [new_window_starting], eax
		1633
		1634	; no it wasn't, performing initial window definition
		1635	movzx eax, bx
		1636	mov [edi + WDATA.box.width], eax
		1637	movzx eax, cx
		1638	mov [edi + WDATA.box.height], eax
		1639	sar ebx, 16
		1640	sar ecx, 16
		1641	mov [edi + WDATA.box.left], ebx
		1642	mov [edi + WDATA.box.top], ecx
		1643
		1644	call window._.check_window_position
		1645
		1646	push ecx edi
		1647
		1648	mov cl, [edi + WDATA.fl_wstyle]
		1649	mov eax, [edi + WDATA.cl_frames]
		1650
		1651	sub edi, window_data
		1652	shl edi, 3
		1653	add edi, SLOT_BASE
		1654
		1655	and cl, 0x0F
		1656	cmp cl, 3
		1657	je @f
		1658	cmp cl, 4
		1659	je @f
		1660
		1661	xor eax, eax
2439	Serge	1662	;--------------------------------------
		1663	align 4
		1664	@@:
2434	Serge	1665	mov [edi + APPDATA.wnd_caption], eax
		1666
		1667	mov esi, [esp]
		1668	add edi, APPDATA.saved_box
		1669	movsd
		1670	movsd
		1671	movsd
		1672	movsd
		1673
		1674	pop edi ecx
		1675
		1676	mov esi, [CURRENT_TASK]
		1677	movzx esi, word[WIN_STACK + esi * 2]
		1678	lea esi, [WIN_POS + esi * 2]
		1679	call waredraw
		1680
		1681	mov eax, [edi + WDATA.box.left]
		1682	mov ebx, [edi + WDATA.box.top]
		1683	mov ecx, [edi + WDATA.box.width]
		1684	mov edx, [edi + WDATA.box.height]
		1685	add ecx, eax
		1686	add edx, ebx
		1687	call calculatescreen
		1688
		1689	mov byte[KEY_COUNT], 0 ; empty keyboard buffer
		1690	mov byte[BTN_COUNT], 0 ; empty button buffer
2439	Serge	1691	;--------------------------------------
		1692	align 4
		1693	.set_client_box:
2434	Serge	1694	; update window client box coordinates
		1695	call window._.set_window_clientbox
		1696
		1697	; reset window redraw flag and exit
		1698	mov [edi + WDATA.fl_redraw], 0
		1699	mov edx, edi
		1700	ret
2439	Serge	1701	;------------------------------------------------------------------------------
2434	Serge	1702	align 4
		1703	;------------------------------------------------------------------------------
		1704	window._.check_window_position: ;//////////////////////////////////////////////
		1705	;------------------------------------------------------------------------------
		1706	;? Check if window is inside screen area
		1707	;------------------------------------------------------------------------------
		1708	;> edi = pointer to WDATA
		1709	;------------------------------------------------------------------------------
		1710	push eax ebx ecx edx esi
		1711
		1712	mov eax, [edi + WDATA.box.left]
		1713	mov ebx, [edi + WDATA.box.top]
		1714	mov ecx, [edi + WDATA.box.width]
		1715	mov edx, [edi + WDATA.box.height]
		1716
		1717	mov esi, [Screen_Max_X]
		1718	cmp ecx, esi
		1719	ja .fix_width_high
2439	Serge	1720	;--------------------------------------
		1721	align 4
		1722	.check_left:
2434	Serge	1723	or eax, eax
		1724	jl .fix_left_low
		1725	add eax, ecx
		1726	cmp eax, esi
		1727	jg .fix_left_high
2439	Serge	1728	;--------------------------------------
		1729	align 4
		1730	.check_height:
2434	Serge	1731	mov esi, [Screen_Max_Y]
		1732	cmp edx, esi
		1733	ja .fix_height_high
2439	Serge	1734	;--------------------------------------
		1735	align 4
		1736	.check_top:
2434	Serge	1737	or ebx, ebx
		1738	jl .fix_top_low
		1739	add ebx, edx
		1740	cmp ebx, esi
		1741	jg .fix_top_high
2439	Serge	1742	;--------------------------------------
		1743	align 4
		1744	.exit:
2434	Serge	1745	pop esi edx ecx ebx eax
		1746	ret
2439	Serge	1747	;--------------------------------------
		1748	align 4
		1749	.fix_width_high:
2434	Serge	1750	mov ecx, esi
		1751	mov [edi + WDATA.box.width], esi
		1752	jmp .check_left
2439	Serge	1753	;--------------------------------------
		1754	align 4
		1755	.fix_left_low:
2434	Serge	1756	xor eax, eax
		1757	mov [edi + WDATA.box.left], eax
		1758	jmp .check_height
2439	Serge	1759	;--------------------------------------
		1760	align 4
		1761	.fix_left_high:
2434	Serge	1762	mov eax, esi
		1763	sub eax, ecx
		1764	mov [edi + WDATA.box.left], eax
		1765	jmp .check_height
2439	Serge	1766	;--------------------------------------
		1767	align 4
		1768	.fix_height_high:
2434	Serge	1769	mov edx, esi
		1770	mov [edi + WDATA.box.height], esi
		1771	jmp .check_top
2439	Serge	1772	;--------------------------------------
		1773	align 4
		1774	.fix_top_low:
2434	Serge	1775	xor ebx, ebx
		1776	mov [edi + WDATA.box.top], ebx
		1777	jmp .exit
2439	Serge	1778	;--------------------------------------
		1779	align 4
		1780	.fix_top_high:
2434	Serge	1781	mov ebx, esi
		1782	sub ebx, edx
		1783	mov [edi + WDATA.box.top], ebx
		1784	jmp .exit
2439	Serge	1785	;------------------------------------------------------------------------------
2434	Serge	1786	align 4
		1787	;------------------------------------------------------------------------------
		1788	window._.get_titlebar_height: ;////////////////////////////////////////////////
		1789	;------------------------------------------------------------------------------
		1790	;?
		1791	;------------------------------------------------------------------------------
		1792	;> edi = pointer to WDATA
		1793	;------------------------------------------------------------------------------
		1794	mov al, [edi + WDATA.fl_wstyle]
		1795	and al, 0x0f
		1796	cmp al, 0x03
		1797	jne @f
		1798	mov eax, [_skinh]
		1799	ret
2439	Serge	1800	;--------------------------------------
		1801	align 4
		1802	@@:
2434	Serge	1803	mov eax, 21
		1804	ret
2439	Serge	1805	;------------------------------------------------------------------------------
2434	Serge	1806	align 4
		1807	;------------------------------------------------------------------------------
		1808	window._.get_rolledup_height: ;////////////////////////////////////////////////
		1809	;------------------------------------------------------------------------------
		1810	;?
		1811	;------------------------------------------------------------------------------
		1812	;> edi = pointer to WDATA
		1813	;------------------------------------------------------------------------------
		1814	mov al, [edi + WDATA.fl_wstyle]
		1815	and al, 0x0f
		1816	cmp al, 0x03
		1817	jb @f
		1818	mov eax, [_skinh]
		1819	add eax, 3
		1820	ret
2439	Serge	1821	;--------------------------------------
		1822	align 4
		1823	@@:
2434	Serge	1824	or al, al
		1825	jnz @f
		1826	mov eax, 21
		1827	ret
2439	Serge	1828	;--------------------------------------
		1829	align 4
		1830	@@:
2434	Serge	1831	mov eax, 21 + 2
		1832	ret
2439	Serge	1833	;------------------------------------------------------------------------------
2434	Serge	1834	align 4
		1835	;------------------------------------------------------------------------------
		1836	window._.set_screen: ;/////////////////////////////////////////////////////////
		1837	;------------------------------------------------------------------------------
		1838	;? Reserve window area in screen buffer
		1839	;------------------------------------------------------------------------------
		1840	;> eax = left
		1841	;> ebx = top
		1842	;> ecx = right
		1843	;> edx = bottom
		1844	;> esi = process number
		1845	;------------------------------------------------------------------------------
		1846	virtual at esp
		1847	ff_x dd ?
		1848	ff_y dd ?
		1849	ff_width dd ?
		1850	ff_xsz dd ?
		1851	ff_ysz dd ?
		1852	ff_scale dd ?
		1853	end virtual
		1854
		1855	pushad
		1856
		1857	cmp esi, 1
		1858	jz .check_for_shaped_window
		1859	mov edi, esi
		1860	shl edi, 5
		1861	cmp [window_data + edi + WDATA.box.width], 0
		1862	jnz .check_for_shaped_window
		1863	cmp [window_data + edi + WDATA.box.height], 0
		1864	jz .exit
2439	Serge	1865	;--------------------------------------
		1866	align 4
		1867	.check_for_shaped_window:
2434	Serge	1868	mov edi, esi
		1869	shl edi, 8
		1870	add edi, SLOT_BASE
		1871	cmp [edi + APPDATA.wnd_shape], 0
		1872	jne .shaped_window
		1873
		1874	; get x&y size
		1875	sub ecx, eax
		1876	sub edx, ebx
		1877	inc ecx
		1878	inc edx
		1879
		1880	; get WinMap start
		1881	push esi
2465	Serge	1882	; mov edi, [Screen_Max_X]
		1883	; inc edi
		1884	; mov esi, edi
		1885	mov esi, [Screen_Max_X]
		1886	inc esi
		1887	; imul edi, ebx
		1888	mov edi, [d_width_calc_area + ebx*4]
		1889
2434	Serge	1890	add edi, eax
		1891	add edi, [_WinMapAddress]
		1892	pop eax
		1893	mov ah, al
		1894	push ax
		1895	shl eax, 16
		1896	pop ax
2439	Serge	1897	;--------------------------------------
		1898	align 4
		1899	.next_line:
2434	Serge	1900	push ecx
		1901	shr ecx, 2
		1902	rep stosd
		1903	mov ecx, [esp]
		1904	and ecx, 3
		1905	rep stosb
		1906	pop ecx
		1907	add edi, esi
		1908	sub edi, ecx
		1909	dec edx
		1910	jnz .next_line
		1911
		1912	jmp .exit
2439	Serge	1913	;--------------------------------------
		1914	align 4
		1915	.shaped_window:
2434	Serge	1916	; for (y=0; y <= x_size; y++)
		1917	; for (x=0; x <= x_size; x++)
		1918	; if (shape[coord(x,y,scale)]==1)
		1919	; set_pixel(x, y, process_number);
		1920
		1921	sub ecx, eax
		1922	sub edx, ebx
		1923	inc ecx
		1924	inc edx
		1925
		1926	push [edi + APPDATA.wnd_shape_scale] ; push scale first -> for loop
		1927
		1928	; get WinMap start -> ebp
		1929	push eax
2465	Serge	1930	; mov eax, [Screen_Max_X] ; screen_sx
		1931	; inc eax
		1932	; imul eax, ebx
		1933	mov eax, [d_width_calc_area + ebx*4]
		1934
2434	Serge	1935	add eax, [esp]
		1936	add eax, [_WinMapAddress]
		1937	mov ebp, eax
		1938
		1939	mov edi, [edi + APPDATA.wnd_shape]
		1940	pop eax
		1941
		1942	; eax = x_start
		1943	; ebx = y_start
		1944	; ecx = x_size
		1945	; edx = y_size
		1946	; esi = process_number
		1947	; edi = &shape
		1948	; [scale]
		1949	push edx ecx ; for loop - x,y size
		1950
		1951	mov ecx, esi
		1952	shl ecx, 5
		1953	mov edx, [window_data + ecx + WDATA.box.top]
		1954	push [window_data + ecx + WDATA.box.width] ; for loop - width
		1955	mov ecx, [window_data + ecx + WDATA.box.left]
		1956	sub ebx, edx
		1957	sub eax, ecx
		1958	push ebx eax ; for loop - x,y
		1959
		1960	add [ff_xsz], eax
		1961	add [ff_ysz], ebx
		1962
		1963	mov ebx, [ff_y]
2439	Serge	1964	;--------------------------------------
		1965	align 4
		1966	.ff_new_y:
2434	Serge	1967	mov edx, [ff_x]
2439	Serge	1968	;--------------------------------------
		1969	align 4
		1970	.ff_new_x:
2434	Serge	1971	; -- body --
		1972	mov ecx, [ff_scale]
		1973	mov eax, [ff_width]
		1974	inc eax
		1975	shr eax, cl
		1976	push ebx edx
		1977	shr ebx, cl
		1978	shr edx, cl
		1979	imul eax, ebx
		1980	add eax, edx
		1981	pop edx ebx
		1982	add eax, edi
		1983	call .read_byte
		1984	test al, al
		1985	jz @f
		1986	mov eax, esi
		1987	mov [ebp], al
		1988	; -- end body --
2439	Serge	1989	;--------------------------------------
		1990	align 4
		1991	@@:
2434	Serge	1992	inc ebp
		1993	inc edx
		1994	cmp edx, [ff_xsz]
		1995	jb .ff_new_x
		1996
		1997	sub ebp, [ff_xsz]
		1998	add ebp, [ff_x]
		1999	add ebp, [Screen_Max_X] ; screen.x
		2000	inc ebp
		2001	inc ebx
		2002	cmp ebx, [ff_ysz]
		2003	jb .ff_new_y
		2004
		2005	add esp, 24
2439	Serge	2006	;--------------------------------------
		2007	align 4
		2008	.exit:
2434	Serge	2009	popad
		2010	inc [_display.mask_seqno]
		2011	ret
2439	Serge	2012	;--------------------------------------
		2013	align 4
		2014	.read_byte:
2434	Serge	2015	; eax - address
		2016	; esi - slot
		2017	push eax ecx edx esi
		2018	xchg eax, esi
		2019	lea ecx, [esp + 12]
		2020	mov edx, 1
		2021	call read_process_memory
		2022	pop esi edx ecx eax
		2023	ret
2439	Serge	2024	;------------------------------------------------------------------------------
2434	Serge	2025	align 4
		2026	;------------------------------------------------------------------------------
		2027	window._.window_activate: ;////////////////////////////////////////////////////
		2028	;------------------------------------------------------------------------------
		2029	;? Activate window
		2030	;------------------------------------------------------------------------------
		2031	;> esi = pointer to WIN_POS+ window data
		2032	;------------------------------------------------------------------------------
		2033	push eax ebx
		2034
		2035	; if type of current active window is 3 or 4, it must be redrawn
		2036	mov ebx, [TASK_COUNT]
		2037
		2038	; DEBUGF 1, "K : TASK_COUNT (0x%x)\n", ebx
		2039
		2040	movzx ebx, word[WIN_POS + ebx * 2]
		2041	shl ebx, 5
		2042	add eax, window_data
		2043	mov al, [window_data + ebx + WDATA.fl_wstyle]
		2044	and al, 0x0f
		2045	cmp al, 0x03
		2046	je .set_window_redraw_flag
		2047	cmp al, 0x04
		2048	jne .move_others_down
2439	Serge	2049	;--------------------------------------
		2050	align 4
		2051	.set_window_redraw_flag:
2434	Serge	2052	mov [window_data + ebx + WDATA.fl_redraw], 1
2439	Serge	2053	;--------------------------------------
		2054	align 4
		2055	.move_others_down:
2434	Serge	2056	; ax <- process no
		2057	movzx ebx, word[esi]
		2058	; ax <- position in window stack
		2059	movzx ebx, word[WIN_STACK + ebx * 2]
		2060
		2061	; drop others
		2062	xor eax, eax
2439	Serge	2063	;--------------------------------------
		2064	align 4
		2065	.next_stack_window:
2434	Serge	2066	cmp eax, [TASK_COUNT]
		2067	jae .move_self_up
		2068	inc eax
		2069
		2070	; push ebx
		2071	; xor ebx,ebx
		2072	; mov bx,[WIN_STACK + eax * 2]
		2073	; DEBUGF 1, "K : DEC WIN_STACK (0x%x)\n",ebx
		2074	; pop ebx
		2075
		2076	cmp [WIN_STACK + eax * 2], bx
		2077	jbe .next_stack_window
		2078	dec word[WIN_STACK + eax * 2]
		2079	jmp .next_stack_window
2439	Serge	2080	;--------------------------------------
		2081	align 4
		2082	.move_self_up:
2434	Serge	2083	movzx ebx, word[esi]
		2084	; number of processes
		2085	mov ax, [TASK_COUNT]
		2086	; this is the last (and the upper)
		2087	mov [WIN_STACK + ebx * 2], ax
		2088
		2089	; update on screen - window stack
		2090	xor eax, eax
2439	Serge	2091	;--------------------------------------
		2092	align 4
		2093	.next_window_pos:
2434	Serge	2094	cmp eax, [TASK_COUNT]
		2095	jae .reset_vars
		2096	inc eax
		2097	movzx ebx, word[WIN_STACK + eax * 2]
		2098	mov [WIN_POS + ebx * 2], ax
		2099	jmp .next_window_pos
2439	Serge	2100	;--------------------------------------
		2101	align 4
		2102	.reset_vars:
2434	Serge	2103	mov byte[KEY_COUNT], 0
		2104	mov byte[BTN_COUNT], 0
		2105	mov word[MOUSE_SCROLL_H], 0
		2106	mov word[MOUSE_SCROLL_V], 0
		2107
		2108	pop ebx eax
		2109	ret
		2110	;------------------------------------------------------------------------------
		2111	window._.window_deactivate: ;////////////////////////////////////////////////////
		2112	;------------------------------------------------------------------------------
		2113	;? Deactivate window
		2114	;------------------------------------------------------------------------------
		2115	;> esi = pointer to WIN_POS+ window data
		2116	;------------------------------------------------------------------------------
		2117	push eax ebx
2439	Serge	2118	;--------------------------------------
		2119	align 4
2434	Serge	2120	.move_others_up:
		2121	; ax <- process no
		2122	movzx ebx, word[esi]
		2123	; ax <- position in window stack
		2124	movzx ebx, word[WIN_STACK + ebx * 2]
		2125	; up others
		2126	xor eax, eax
2439	Serge	2127	;--------------------------------------
		2128	align 4
2434	Serge	2129	.next_stack_window:
		2130	cmp eax, [TASK_COUNT]
		2131	jae .move_self_down
		2132	inc eax
		2133	cmp [WIN_STACK + eax * 2], bx
		2134	jae .next_stack_window
		2135	inc word[WIN_STACK + eax * 2]
		2136	jmp .next_stack_window
2439	Serge	2137	;--------------------------------------
		2138	align 4
2434	Serge	2139	.move_self_down:
		2140	movzx ebx, word[esi]
		2141	; this is the last (and the low)
		2142	mov [WIN_STACK + ebx * 2], word 1
		2143	; update on screen - window stack
		2144	xor eax, eax
2439	Serge	2145	;--------------------------------------
		2146	align 4
2434	Serge	2147	.next_window_pos:
		2148	cmp eax, [TASK_COUNT]
		2149	jae .reset_vars
		2150	inc eax
		2151	movzx ebx, word[WIN_STACK + eax * 2]
		2152	mov [WIN_POS + ebx * 2], ax
		2153	jmp .next_window_pos
2439	Serge	2154	;--------------------------------------
		2155	align 4
2434	Serge	2156	.reset_vars:
		2157	mov byte[KEY_COUNT], 0
		2158	mov byte[BTN_COUNT], 0
		2159	mov word[MOUSE_SCROLL_H], 0
		2160	mov word[MOUSE_SCROLL_V], 0
		2161	pop ebx eax
		2162	ret
		2163	;------------------------------------------------------------------------------
		2164	align 4
		2165	;------------------------------------------------------------------------------
		2166	window._.check_window_draw: ;//////////////////////////////////////////////////
		2167	;------------------------------------------------------------------------------
		2168	;? Check if window is necessary to draw
		2169	;------------------------------------------------------------------------------
		2170	;> edi = pointer to WDATA
		2171	;------------------------------------------------------------------------------
		2172	mov cl, [edi + WDATA.fl_wstyle]
		2173	and cl, 0x0f
		2174	cmp cl, 3
		2175	je .exit.redraw ; window type 3
		2176	cmp cl, 4
		2177	je .exit.redraw ; window type 4
		2178
		2179	push eax ebx edx esi
		2180
		2181	mov eax, edi
		2182	sub eax, window_data
		2183	shr eax, 5
		2184
		2185	movzx eax, word[WIN_STACK + eax * 2] ; get value of the curr process
		2186	lea esi, [WIN_POS + eax * 2] ; get address of this process at 0xC400
2439	Serge	2187	;--------------------------------------
		2188	align 4
		2189	.next_window:
2434	Serge	2190	add esi, 2
		2191
		2192	mov eax, [TASK_COUNT]
		2193	lea eax, word[WIN_POS + eax * 2] ; number of the upper window
		2194
		2195	cmp esi, eax
		2196	ja .exit.no_redraw
		2197
		2198	movzx edx, word[esi]
		2199	shl edx, 5
		2200	cmp [CURRENT_TASK + edx + TASKDATA.state], TSTATE_FREE
		2201	je .next_window
		2202
		2203	mov eax, [edi + WDATA.box.top]
		2204	mov ebx, [edi + WDATA.box.height]
		2205	add ebx, eax
		2206
		2207	mov ecx, [window_data + edx + WDATA.box.top]
		2208	cmp ecx, ebx
		2209	jge .next_window
		2210	add ecx, [window_data + edx + WDATA.box.height]
		2211	cmp eax, ecx
		2212	jge .next_window
		2213
		2214	mov eax, [edi + WDATA.box.left]
		2215	mov ebx, [edi + WDATA.box.width]
		2216	add ebx, eax
		2217
		2218	mov ecx, [window_data + edx + WDATA.box.left]
		2219	cmp ecx, ebx
		2220	jge .next_window
		2221	add ecx, [window_data + edx + WDATA.box.width]
		2222	cmp eax, ecx
		2223	jge .next_window
		2224
		2225	pop esi edx ebx eax
2439	Serge	2226	;--------------------------------------
		2227	align 4
		2228	.exit.redraw:
2434	Serge	2229	xor ecx, ecx
		2230	inc ecx
		2231	ret
2439	Serge	2232	;--------------------------------------
		2233	align 4
		2234	.exit.no_redraw:
2434	Serge	2235	pop esi edx ebx eax
		2236	xor ecx, ecx
		2237	ret
2439	Serge	2238	;------------------------------------------------------------------------------
2434	Serge	2239	align 4
		2240	;------------------------------------------------------------------------------
		2241	window._.draw_window_caption: ;////////////////////////////////////////////////
		2242	;------------------------------------------------------------------------------
		2243	;?
		2244	;------------------------------------------------------------------------------
		2245	xor eax, eax
		2246	mov edx, [TASK_COUNT]
		2247	movzx edx, word[WIN_POS + edx * 2]
		2248	cmp edx, [CURRENT_TASK]
		2249	jne @f
		2250	inc eax
2439	Serge	2251	;--------------------------------------
		2252	align 4
		2253	@@:
2434	Serge	2254	mov edx, [CURRENT_TASK]
		2255	shl edx, 5
		2256	add edx, window_data
		2257	movzx ebx, [edx + WDATA.fl_wstyle]
		2258	and bl, 0x0F
		2259	cmp bl, 3
		2260	je .draw_caption_style_3
		2261	cmp bl, 4
		2262	je .draw_caption_style_3
		2263
		2264	jmp .not_style_3
2439	Serge	2265	;--------------------------------------
		2266	align 4
		2267	.draw_caption_style_3:
2434	Serge	2268	push edx
		2269	call drawwindow_IV_caption
		2270	add esp, 4
		2271	jmp .2
2439	Serge	2272	;--------------------------------------
		2273	align 4
		2274	.not_style_3:
2434	Serge	2275	cmp bl, 2
		2276	jne .not_style_2
		2277
		2278	call drawwindow_III_caption
		2279	jmp .2
2439	Serge	2280	;--------------------------------------
		2281	align 4
		2282	.not_style_2:
2434	Serge	2283	cmp bl, 0
		2284	jne .2
		2285
		2286	call drawwindow_I_caption
2439	Serge	2287	;--------------------------------------
		2288	align 4
		2289	.2:
2434	Serge	2290	mov edi, [CURRENT_TASK]
		2291	shl edi, 5
		2292	test [edi + window_data + WDATA.fl_wstyle], WSTYLE_HASCAPTION
		2293	jz .exit
		2294	mov edx, [edi * 8 + SLOT_BASE + APPDATA.wnd_caption]
		2295	or edx, edx
		2296	jz .exit
		2297
		2298	movzx eax, [edi + window_data + WDATA.fl_wstyle]
		2299	and al, 0x0F
		2300	cmp al, 3
		2301	je .skinned
		2302	cmp al, 4
		2303	je .skinned
		2304
		2305	jmp .not_skinned
2439	Serge	2306	;--------------------------------------
		2307	align 4
		2308	.skinned:
2434	Serge	2309	mov ebp, [edi + window_data + WDATA.box.left - 2]
		2310	mov bp, word[edi + window_data + WDATA.box.top]
		2311	movzx eax, word[edi + window_data + WDATA.box.width]
		2312	sub ax, [_skinmargins.left]
		2313	sub ax, [_skinmargins.right]
		2314	push edx
		2315	cwde
		2316	cdq
		2317	mov ebx, 6
		2318	idiv ebx
		2319	pop edx
		2320	or eax, eax
		2321	js .exit
		2322
		2323	mov esi, eax
		2324	mov ebx, dword[_skinmargins.left - 2]
		2325	mov bx, word[_skinh]
		2326	sub bx, [_skinmargins.bottom]
		2327	sub bx, [_skinmargins.top]
		2328	sar bx, 1
		2329	adc bx, 0
		2330	add bx, [_skinmargins.top]
		2331	add bx, -3
		2332	add ebx, ebp
		2333	jmp .dodraw
2439	Serge	2334	;--------------------------------------
		2335	align 4
		2336	.not_skinned:
2434	Serge	2337	cmp al, 1
		2338	je .exit
		2339
		2340	mov ebp, [edi + window_data + WDATA.box.left - 2]
		2341	mov bp, word[edi + window_data + WDATA.box.top]
		2342	movzx eax, word[edi + window_data + WDATA.box.width]
		2343	sub eax, 16
		2344	push edx
		2345	cwde
		2346	cdq
		2347	mov ebx, 6
		2348	idiv ebx
		2349	pop edx
		2350	or eax, eax
		2351	js .exit
		2352
		2353	mov esi, eax
		2354	mov ebx, 0x00080007
		2355	add ebx, ebp
2439	Serge	2356	;--------------------------------------
		2357	align 4
		2358	.dodraw:
2434	Serge	2359	mov ecx, [common_colours + 16]
		2360	or ecx, 0x80000000
		2361	xor edi, edi
		2362	call dtext_asciiz_esi
2439	Serge	2363	;--------------------------------------
		2364	align 4
		2365	.exit:
2465	Serge	2366	; call [draw_pointer]
		2367	call __sys_draw_pointer
2434	Serge	2368	ret
2439	Serge	2369	;------------------------------------------------------------------------------
2434	Serge	2370	align 4
		2371	;------------------------------------------------------------------------------
		2372	window._.draw_negative_box: ;//////////////////////////////////////////////////
		2373	;------------------------------------------------------------------------------
		2374	;? Draw negative box
		2375	;------------------------------------------------------------------------------
		2376	;> edi = pointer to BOX struct
		2377	;------------------------------------------------------------------------------
		2378	push eax ebx esi
		2379	mov esi, 0x01000000
2439	Serge	2380	;--------------------------------------
		2381	align 4
2434	Serge	2382	.1:
		2383	mov eax, [edi + BOX.left - 2]
		2384	mov ax, word[edi + BOX.left]
		2385	add ax, word[edi + BOX.width]
		2386	mov ebx, [edi + BOX.top - 2]
		2387	mov bx, word[edi + BOX.top]
		2388	add bx, word[edi + BOX.height]
		2389	call draw_rectangle.forced
		2390	pop esi ebx eax
		2391	ret
		2392	;------------------------------------------------------------------------------
2987	Serge	2393	;align 4
2439	Serge	2394	;------------------------------------------------------------------------------
2987	Serge	2395	;window._.end_moving__box: ;//////////////////////////////////////////////////
2434	Serge	2396	;------------------------------------------------------------------------------
		2397	;? Draw positive box
		2398	;------------------------------------------------------------------------------
		2399	;> edi = pointer to BOX struct
		2400	;------------------------------------------------------------------------------
2987	Serge	2401	; push eax ebx esi
		2402	; xor esi, esi
		2403	; jmp window._.draw_negative_box.1
2434	Serge	2404	;------------------------------------------------------------------------------
2439	Serge	2405	align 4
		2406	;------------------------------------------------------------------------------
2434	Serge	2407	window._.get_rect: ;/////////////////////////////////////////////////////
		2408	;------------------------------------------------------------------------------
		2409	;? void __fastcall get_window_rect(struct RECT* rc);
		2410	;------------------------------------------------------------------------------
		2411	;> ecx = pointer to RECT
		2412	;------------------------------------------------------------------------------
		2413	mov eax, [TASK_BASE]
		2414
		2415	mov edx, [eax-twdw + WDATA.box.left]
		2416	mov [ecx+RECT.left], edx
		2417
		2418	add edx, [eax-twdw + WDATA.box.width]
		2419	mov [ecx+RECT.right], edx
		2420
		2421	mov edx, [eax-twdw + WDATA.box.top]
		2422	mov [ecx+RECT.top], edx
		2423
		2424	add edx, [eax-twdw + WDATA.box.height]
		2425	mov [ecx+RECT.bottom], edx
		2426	ret
2439	Serge	2427	;------------------------------------------------------------------------------

Subversion Repositories Kolibri OS

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