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

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

Subversion Repositories Kolibri OS

(root)/kernel/trunk/gui/window.inc @ 5836 – Rev 2620