Subversion Repositories Kolibri OS

use32

org 0x0

db 'MENUET01'

dd 0x01, START, I_END, F_END, stacktop, @PARAMS, 0x0

;-----------------------------------------------------------------------------

FALSE = 0

TRUE  = 1

include '../../../proc32.inc'

include '../../../macros.inc'

include 'dll.inc'

include '../../../develop/libraries/libs-dev/libio/libio.inc'

include '../../../develop/libraries/libs-dev/libimg/libimg.inc'

include '../../../develop/libraries/box_lib/asm/trunk/opendial.mac'

use_OpenDialog

;-----------------------------------------------------------------------------

START:

	mcall	68, 11

; OpenDialog initialisation

init_OpenDialog	OpenDialog_data

	stdcall dll.Load, @IMPORT

	or	eax, eax

	jnz	exit

	invoke	sort.START, 1

	mov	ecx, 1	; for 15.4: 1 = tile

	cmp	word [@PARAMS], '\T'

	jz	set_bgr

	inc	ecx	; for 15.4: 2 = stretch

	cmp	word [@PARAMS], '\S'

	jz	set_bgr

; initialize keyboard handling

	invoke	ini_get_shortcut, inifilename, aShortcuts, aNext, -1, next_mod

	mov	[next_key], eax

	invoke	ini_get_shortcut, inifilename, aShortcuts, aPrev, -1, prev_mod

	mov	[prev_key], eax

	mcall	66, 1, 1	; set kbd mode to scancodes

	cmp	byte [@PARAMS], 0

	jnz	params_given

	mov	[OpenDialog_data.draw_window],draw_window_fake

	start_OpenDialog	OpenDialog_data

	cmp	[OpenDialog_data.status],1

	jne	exit

	mov	[OpenDialog_data.draw_window],draw_window

	mov	esi, path

	mov	edi, @PARAMS

	mov	ecx, 4096/4

	rep	movsd

	mov	byte [edi-1], 0

	jmp	params_given

set_bgr:

	mcall	15, 4

	mov	eax, @PARAMS + 4

	call	load_image

	jc	exit

	call	set_as_bgr

	jmp	exit

params_given:

	mov	esi, @PARAMS

	push	esi

	call	find_last_name_component

	pop	eax

	call	load_image

	jc	exit

	call	generate_header

;-----------------------------------------------------------------------------

red:

	call	draw_window

still:

	mov	eax, [image]

	test	byte [eax + Image.Flags], Image.IsAnimated

	push	10

	pop	eax

	jz	@f

	mcall	26, 9

	mov	edx, [cur_frame]

	mov	ebx, [cur_frame_time]

	add	ebx, [edx + Image.Delay]

	sub	ebx, eax

	cmp	ebx, [edx + Image.Delay]

	ja	red_update_frame

	test	ebx, ebx

	jz	red_update_frame

	push	23

	pop	eax

  @@:

	mcall

	dec	eax

	js	red_update_frame

	jz	red

	dec	eax

	jnz	button

key:

	xor	esi, esi

keyloop:

	mcall	2

	test	al, al

	jnz	keyloopdone

	shr	eax, 8

	mov	ecx, eax

	mcall	66, 3

	mov	edx, next_mod

	call	check_shortcut

	jz	.next

	add	edx, prev_mod - next_mod

	call	check_shortcut

	jnz	keyloop

.prev:

	dec	esi

	jmp	keyloop

.next:

	inc	esi

	jmp	keyloop

keyloopdone:

	test	esi, esi

	jz	still

next_or_prev_handler:

	call	next_or_prev_image

	jmp	red

red_update_frame:

	mov	eax, [cur_frame]

	mov	eax, [eax + Image.Next]

	test	eax, eax

	jnz	@f

	mov	eax, [image]

  @@:

	mov	[cur_frame], eax

	mcall	26, 9

	mov	[cur_frame_time], eax

	mcall	9, procinfo, -1

	call	draw_cur_frame

	jmp	still

button:

	mcall	17

	shr	eax, 8

	; flip horizontally

	cmp	eax, 'flh'

	jne	@f

	invoke	img.flip, [image], FLIP_HORIZONTAL

	jmp	redraw_image

	; flip vertically

    @@: cmp	eax, 'flv'

	jne	@f

	invoke	img.flip, [image], FLIP_VERTICAL

	jmp	redraw_image

	; flip both horizontally and vertically

    @@: cmp	eax, 'flb'

	jne	@f

	invoke	img.flip, [image], FLIP_BOTH

	jmp	redraw_image

	; rotate left

    @@: cmp	eax, 'rtl'

	jne	@f

	push	ROTATE_90_CCW

.rotate_common:

	invoke	img.rotate, [image]

	mov	eax, [image]

	test	eax, eax	; clear ZF flag

	call	update_image_sizes

	jmp	redraw_image

	; rotate right

    @@: cmp	eax, 'rtr'

	jne	@f

	push	ROTATE_90_CW

	jmp	.rotate_common

	; open new file

    @@: cmp	eax, 'opn'

	jne	@f

	start_OpenDialog	OpenDialog_data

	cmp	[OpenDialog_data.status],1

	jne	still

	mov	esi, path

	mov	edi, @PARAMS

	push	edi

	mov	ecx, 4096/4

	rep	movsd

	mov	byte [edi-1], 0

	pop	esi

	push	esi

	call	find_last_name_component

	pop	eax

	push	[image]

	call	load_image

	jc	.restore_old

	call	generate_header

	invoke	img.destroy

	call	free_directory

	jmp	red

    .restore_old:

	pop	[image]

	call	init_frame

	jmp	still

	; set background

    @@:

	cmp	eax, 'bgr'

	jne	@f

	call	set_as_bgr

	jmp	still

    @@:

	or	esi, -1

	cmp	eax, 'bck'

	jz	next_or_prev_handler

	neg	esi

	cmp	eax, 'fwd'

	jz	next_or_prev_handler

	cmp	eax, 1

	jne	still

  exit:

	mcall	-1

  redraw_image = red

load_image:

	and	[img_data], 0

	push	eax

	invoke	file.open, eax, O_READ

	or	eax, eax

	jz	.error_pop

	mov	[fh], eax

	invoke	file.size

	mov	[img_data_len], ebx

	stdcall mem.Alloc, ebx

	test	eax, eax

	jz	.error_close

	mov	[img_data], eax

	invoke	file.read, [fh], eax, [img_data_len]

	cmp	eax, -1

	jz	.error_close

	cmp	eax, [img_data_len]

	jnz	.error_close

	invoke	file.close, [fh]

	inc	eax

	jz	.error

; img.decode checks for img.is_img

;	invoke	img.is_img, [img_data], [img_data_len]

;	or	eax, eax

;	jz	exit

	invoke	img.decode, [img_data], [img_data_len], 0

	or	eax, eax

	jz	.error

	cmp	[image], 0

	pushf

	mov	[image], eax

	call	init_frame

	popf

	call	update_image_sizes

	call	free_img_data

	clc

	ret

.error_free:

	invoke	img.destroy, [image]

	jmp	.error

.error_pop:

	pop	eax

	jmp	.error

.error_close:

	invoke	file.close, [fh]

.error:

	call	free_img_data

	stc

	ret

free_img_data:

	mov	eax, [img_data]

	test	eax, eax

	jz	@f

	stdcall	mem.Free, eax

@@:

	ret

update_image_sizes:

	pushf

	mov	edx, [eax + Image.Width]

	mov	[draw_width], edx

	add	edx, 19

	cmp	edx, 40 + 25*9

	jae	@f

	mov	edx, 40 + 25*9

@@:

	mov	[wnd_width], edx

	mov	esi, [eax + Image.Height]

	mov	[draw_height], esi

	add	esi, 44

	mov	[wnd_height], esi

	popf

	jz	.no_resize

	mcall	48, 4

	add	esi, eax

	mcall	67,-1,-1

.no_resize:

	ret

set_as_bgr:

	mov	esi, [image]

	mov	ecx, [esi + Image.Width]

	mov	edx, [esi + Image.Height]

	mcall	15, 1

	mcall	15, 6

	test	eax, eax

	jz	@f

	push	eax

	invoke	img.to_rgb2, esi, eax

	pop	ecx

	mcall	15, 7

@@:

	mcall	15, 3

	ret

; seek to ESI image files

; esi>0 means next file, esi<0 - prev file

next_or_prev_image:

	push	esi

	call	load_directory

	pop	esi

	mov	ebx, [directory_ptr]

	test	ebx, ebx

	jz	.ret

	cmp	dword[ebx+4], 0

	jz	.ret

	mov	eax, [cur_file_idx]

	cmp	eax, -1

	jnz	@f

	test	esi, esi

	jns	@f

	mov	eax, [ebx+4]

@@:

	push	[image]

	add	eax, esi

@@:

	test	eax, eax

	jns	@f

	add	eax, [ebx+4]

	jmp	@b

@@:

	cmp	eax, [ebx+4]

	jb	@f

	sub	eax, [ebx+4]

	jmp	@b

@@:

	push	eax

.scanloop:

	push	eax ebx esi

	imul	esi, eax, 304

	add	esi, [directory_ptr]

	add	esi, 32 + 40

	mov	edi, curdir

@@:

	inc	edi

	cmp	byte [edi-1], 0

	jnz	@b

	mov	byte [edi-1], '/'

@@:

	lodsb

	stosb

	test	al, al

	jnz	@b

	mov	eax, curdir

	call	load_image

	pushf

	mov	esi, curdir

	push	esi

	mov	edi, @PARAMS

	mov	ecx, 4096/4

	rep	movsd

	mov	byte [edi-1], 0

	pop	esi

@@:

	lodsb

	test	al, al

	jnz	@b

@@:

	dec	esi

	cmp	byte [esi], '/'

	jnz	@b

	mov	byte [esi], 0

	popf

	pop	esi ebx eax

	jnc	.loadedok

	test	esi, esi

	js	.try_prev

.try_next:

	inc	eax

	cmp	eax, [ebx+4]

	jb	@f

	xor	eax, eax

@@:

.try_common:

	cmp	eax, [esp]

	jz	.notfound

	jmp	.scanloop

.try_prev:

	dec	eax

	jns	@f

	mov	eax, [ebx+4]

	dec	eax

@@:

	jmp	.try_common

.loadedok:

	mov	[cur_file_idx], eax

	pop	eax

	invoke	img.destroy

	call	generate_header

.ret:

	ret

.notfound:

	pop	eax

	pop	[image]

	call	init_frame

	ret

load_directory:

	cmp	[directory_ptr], 0

	jnz	.ret

	mov	esi, @PARAMS

	mov	edi, curdir

	mov	ecx, [last_name_component]

	sub	ecx, esi

	dec	ecx

	js	@f

	rep	movsb

@@:

	mov	byte [edi], 0

	mcall	68, 12, 0x1000

	test	eax, eax

	jz	.ret

	mov	ebx, readdir_fileinfo

	mov	dword [ebx+12], (0x1000 - 32) / 304

	mov	dword [ebx+16], eax

	mcall	70

	cmp	eax, 6

	jz	.dirok

	test	eax, eax

	jnz	free_directory

	mov	edx, [directory_ptr]

	mov	ecx, [edx+8]

	mov	[readblocks], ecx

	imul	ecx, 304

	add	ecx, 32

	mcall	68, 20

	test	eax, eax

	jz	free_directory

	mov	[directory_ptr], eax

	mcall	70, readdir_fileinfo

.dirok:

	cmp	ebx, 0

	jle	free_directory

	mov	eax, [directory_ptr]

	add	eax, 32

	mov	edi, eax

	push	0

.dirskip:

	push	eax

	test	byte [eax], 18h

	jnz	.nocopy

	lea	esi, [eax+40]

	mov	ecx, esi

@@:

	lodsb

	test	al, al

	jnz	@b

@@:

	dec	esi

	cmp	esi, ecx

	jb	.noext

	cmp	byte [esi], '.'

	jnz	@b

	inc	esi

	mov	ecx, [esi]

	or	ecx, 0x202020

	cmp	ecx, 'jpg'

	jz	.copy

	cmp	ecx, 'bmp'

	jz	.copy

	cmp	ecx, 'gif'

	jz	.copy

	cmp	ecx, 'png'

	jz	.copy

	cmp	ecx, 'jpe'

	jz	.copy

	cmp	ecx, 'ico'

	jz	.copy

	cmp	ecx, 'cur'

	jz	.copy

	cmp	ecx, 'jpeg'

	jz	@f

	cmp	ecx, 'jpeG'

	jnz	.nocopy

@@:

	cmp	byte [esi+4], 0

	jnz	.nocopy

.copy:

	mov	esi, [esp]

	mov	ecx, 304 / 4

	rep	movsd

	inc	dword [esp+4]

.nocopy:

.noext:

	pop	eax

	add	eax, 304

	dec	ebx

	jnz	.dirskip

	mov	eax, [directory_ptr]

	pop	ebx

	mov	[eax+4], ebx

	test	ebx, ebx

	jz	free_directory

	push	0	; sort mode

	push	ebx

	add	eax, 32

	push	eax

	call	[SortDir]

	xor	eax, eax

	mov	edi, [directory_ptr]

	add	edi, 32 + 40

.scan:

	mov	esi, [last_name_component]

	push	edi

	invoke	strcmpi

	pop	edi

	jz	.found

	inc	eax

	add	edi, 304

	dec	ebx

	jnz	.scan

	or	eax, -1

.found:

	mov	[cur_file_idx], eax

.ret:

	ret

free_directory:

	mcall	68, 13, [directory_ptr]

	and	[directory_ptr], 0

	ret

; in: esi->full name (e.g. /path/to/file.png)

; out: [last_name_component]->last component (e.g. file.png)

find_last_name_component:

	mov	ecx, esi

@@:

	lodsb

	test	al, al

	jnz	@b

@@:

	dec	esi

	cmp	esi, ecx

	jb	@f

	cmp	byte [esi], '/'

	jnz	@b

@@:

	inc	esi

	mov	[last_name_component], esi

	ret

init_frame:

	push	eax

	mov	eax, [image]

	mov	[cur_frame], eax

	test	byte [eax + Image.Flags], Image.IsAnimated

	jz	@f

	push	ebx

	mcall	26, 9

	pop	ebx

	mov	[cur_frame_time], eax

@@:

	pop	eax

	ret

draw_window:

	cmp	[bFirstDraw], 0

	jz	.posok

	or	ecx, -1

	mcall	9, procinfo

	cmp	dword [ebx + 66], 0

	jle	.posok

	mov	edx, ecx

	mov	esi, ecx

	cmp	dword [ebx + 42], 40 + 25 * 9

	jae	@f

	mov	edx, 40 + 25 * 9

@@:

	cmp	dword [ebx + 46], 70

	jae	@f

	mov	esi, 70

@@:

	mov	eax, edx

	and	eax, esi

	cmp	eax, -1

	jz	@f

	mov	ebx, ecx

	mcall	67

@@:

.posok:

	mcall	12, 1

	mcall	48, 4

	mov	ebp, eax	; save skin height

	add	eax, [wnd_height]

	__mov	ebx, 100, 0

	add	ebx, [wnd_width]

	lea	ecx, [100*65536 + eax]

	mcall	0, , , 0x73FFFFFF, 0, real_header

	mcall	9, procinfo, -1

	mov	[bFirstDraw], 1

	cmp	dword [ebx + 66], 0

	jle	.nodraw

	mov	ebx, [ebx + 62]

	inc	ebx

	mcall	13, , <0, 35>, 0xFFFFFF

	mov	ecx, [procinfo + 66]

	inc	ecx

	mov	esi, [draw_height]

	add	esi, 35

	sub	ecx, esi

	jbe	@f

	push	esi

	shl	esi, 16

	add	ecx, esi

	pop	esi

	mcall

	xor	ecx, ecx

@@:

	add	ecx, esi

	add	ecx, 35*10000h - 35

	__mov	ebx, 0, 5

	mcall

	mov	esi, [draw_width]

	add	esi, ebx

	mov	ebx, [procinfo+62]

	inc	ebx

	sub	ebx, esi

	jbe	@f

	shl	esi, 16

	add	ebx, esi

	mcall

@@:

	mov	ebx, [procinfo + 62]

	push	ebx

	mcall	38, , <30, 30>, 0x007F7F7F

	mcall	, <5 + 25 * 1, 5 + 25 * 1>, <0, 30>

	mcall	, <10 + 25 * 3, 10 + 25 * 3>

	mcall	, <15 + 25 * 4, 15 + 25 * 4>

	pop	ebx

	sub	ebx, 25 * 5 + 10

	push	ebx

	imul	ebx, 10001h

	mcall

	mcall	8, <5 + 25 * 0, 20>, <5, 20>, 'opn'+40000000h

	mcall	, <10 + 25 * 1, 20>, , 'bck'+40000000h

	mcall	, <10 + 25 * 2, 20>, , 'fwd'+40000000h

	mcall	, <15 + 25 * 3, 20>, , 'bgr'+40000000h

	pop	ebx

	add	ebx, 5

	shl	ebx, 16

	mov	bl, 20

	mcall	, , , 'flh'+40000000h

	add	ebx, 25 * 65536

	mcall	, , , 'flv'+40000000h

	add	ebx, 30 * 65536

	mcall	, , , 'rtr'+40000000h

	add	ebx, 25 * 65536

	mcall	, , , 'rtl'+40000000h

	add	ebx, 25 * 65536

	mcall	, , , 'flb'+40000000h

	mov	ebp, (numimages-1)*20

	mcall	65, buttons+openbtn*20, <20, 20>, <5 + 25 * 0, 5>, 8, palette

	mcall	, buttons+backbtn*20, , <10 + 25 * 1, 5>

	mcall	, buttons+forwardbtn*20, , <10 + 25 * 2, 5>

	mcall	, buttons+bgrbtn*20, , <15 + 25 * 3, 5>

	mov	edx, [procinfo + 62]

	sub	edx, 25 * 5 + 4

	shl	edx, 16

	mov	dl, 5

	mcall	, buttons+fliphorzbtn*20

	add	edx, 25 * 65536

	mcall	, buttons+flipvertbtn*20

	add	edx, 30 * 65536

	mcall	, buttons+rotcwbtn*20

	add	edx, 25 * 65536

	mcall	, buttons+rotccwbtn*20

	add	edx, 25 * 65536

	mcall	, buttons+rot180btn*20

	call	draw_cur_frame

.nodraw:

	mcall	12, 2

	ret

draw_cur_frame:

	push	0	; ypos

	push	0	; xpos

	mov	eax, [procinfo+66]

	sub	eax, 34

	push	eax	; max height

	mov	eax, [procinfo+62]

	sub	eax, 4

	push	eax	; max width

	push	35	; y

	push	5	; x

	push	[cur_frame]

	call	[img.draw]

	mov	eax, [image]

	test	[eax + Image.Flags], Image.IsAnimated

	jnz	.done

	cmp	[eax + Image.Next], 0

	jnz	.additional_frames

.done:

	ret

.additional_frames:

	mov	ebx, [procinfo+62]

	sub	ebx, 4

	jbe	.done

	push	5

	pop	esi

.afloop:

	sub	ebx, [eax + Image.Width]

	jbe	.done

	dec	ebx

	jz	.done

	add	esi, [eax + Image.Width]

	mov	eax, [eax + Image.Next]

	push	eax

	inc	esi

	push	0	; ypos

	push	0	; xpos

	mov	ecx, [procinfo+66]

	sub	ecx, 34

	push	ecx	; max height

	push	ebx	; max width

	push	35	; y

	push	esi	; x

	push	eax	; image

	call	[img.draw]

	pop	eax

	cmp	[eax + Image.Next], 0

	jnz	.afloop

	ret

; void* __stdcall mem.Alloc(unsigned size);

mem.Alloc:

	push	ebx ecx

	mov	ecx, [esp+12]

	mcall	68, 12

	pop	ecx ebx

	ret	4

; void* __stdcall mem.ReAlloc(void* mptr, unsigned size);

mem.ReAlloc:

	push	ebx ecx edx

	mov	edx, [esp+16]

	mov	ecx, [esp+20]

	mcall	68, 20

	pop	edx ecx ebx

	ret	8

; void __stdcall mem.Free(void* mptr);

mem.Free:

	push	ebx ecx

	mov	ecx, [esp+12]

	mcall	68, 13

	pop	ecx ebx

	ret	4

check_shortcut:

; in:	cl = scancode (from sysfn 2),

;	eax = state of modifiers (from sysfn 66.3),

;	edx -> shortcut descriptor

; out:	ZF set <=> fail

	cmp	cl, [edx+4]

	jnz	.not

	push	eax

	mov	esi, [edx]

	and	esi, 0xF

	and	al, 3

	call	dword [check_modifier_table+esi*4]

	test	al, al

	pop	eax

	jnz	.not

	push	eax

	mov	esi, [edx]

	shr	esi, 4

	and	esi, 0xF

	shr	al, 2

	and	al, 3

	call	dword [check_modifier_table+esi*4]

	test	al, al

	pop	eax

	jnz	.not

	push	eax

	mov	esi, [edx]

	shr	esi, 8

	and	esi, 0xF

	shr	al, 4

	and	al, 3

	call	dword [check_modifier_table+esi*4]

	test	al, al

	pop	eax

;	jnz	.not

.not:

	ret

check_modifier_0:

	setnz	al

	ret

check_modifier_1:

	setp	al

	ret

check_modifier_2:

	cmp	al, 3

	setnz	al

	ret

check_modifier_3:

	cmp	al, 1

	setnz	al

	ret

check_modifier_4:

	cmp	al, 2

	setnz	al

	ret

; fills real_header with window title

; window title is generated as ' - Kolibri Image Viewer'

generate_header:

	push	eax

	mov	esi, [last_name_component]

	mov	edi, real_header

@@:

	lodsb

	test	al, al

	jz	@f

	stosb

	cmp	edi, real_header+256

	jb	@b

.overflow:

	mov	dword [edi-4], '...'

.ret:

	pop	eax

	ret

@@:

	mov	esi, s_header

@@:

	lodsb

	stosb

	test	al, al

	jz	.ret

	cmp	edi, real_header+256

	jb	@b

	jmp	.overflow

;-----------------------------------------------------------------------------

s_header db ' - Kolibri Image Viewer', 0

;-----------------------------------------------------------------------------

;-----------------------------------------------------------------------------

align 4

@IMPORT:

library 			\

	libio  , 'libio.obj'  , \

	libgfx , 'libgfx.obj' , \

	libimg , 'libimg.obj' , \

	libini , 'libini.obj' , \

	sort   , 'sort.obj'

import	libio			  , \

	libio.init , 'lib_init'   , \

	file.size  , 'file_size'  , \

	file.open  , 'file_open'  , \

	file.read  , 'file_read'  , \

	file.close , 'file_close'

import	libgfx				, \

	libgfx.init   , 'lib_init'	, \

	gfx.open      , 'gfx_open'	, \

	gfx.close     , 'gfx_close'	, \

	gfx.pen.color , 'gfx_pen_color' , \

	gfx.line      , 'gfx_line'

import	libimg			   , \

	libimg.init , 'lib_init'   , \

	img.is_img  , 'img_is_img' , \

	img.to_rgb2 , 'img_to_rgb2', \

	img.decode  , 'img_decode' , \

	img.flip    , 'img_flip'   , \

	img.rotate  , 'img_rotate' , \

	img.destroy , 'img_destroy', \

	img.draw    , 'img_draw'

import	libini, \

	ini_get_shortcut, 'ini_get_shortcut'

import  sort, sort.START, 'START', SortDir, 'SortDir', strcmpi, 'strcmpi'

bFirstDraw	db	0

;-----------------------------------------------------------------------------

virtual at 0

file 'kivicons.bmp':0xA,4

load offbits dword from 0

end virtual

numimages = 9

openbtn = 0

backbtn = 1

forwardbtn = 2

bgrbtn = 3

fliphorzbtn = 4

flipvertbtn = 5

rotcwbtn = 6

rotccwbtn = 7

rot180btn = 8

palette:

	file 'kivicons.bmp':0x36,offbits-0x36

buttons:

	file 'kivicons.bmp':offbits

repeat 10

y = % - 1

z = 20 - %

repeat numimages*5

load a dword from $ - numimages*20*20 + numimages*20*y + (%-1)*4

load b dword from $ - numimages*20*20 + numimages*20*z + (%-1)*4

store dword a at $ - numimages*20*20 + numimages*20*z + (%-1)*4

store dword b at $ - numimages*20*20 + numimages*20*y + (%-1)*4

end repeat

end repeat

inifilename	db	'/sys/media/kiv.ini',0

aShortcuts	db	'Shortcuts',0

aNext		db	'Next',0

aPrev		db	'Prev',0

align 4

check_modifier_table:

	dd	check_modifier_0

	dd	check_modifier_1

	dd	check_modifier_2

	dd	check_modifier_3

	dd	check_modifier_4

;---------------------------------------------------------------------

align 4

OpenDialog_data:

.type			dd 0

.procinfo		dd procinfo ;+4

.com_area_name		dd communication_area_name ;+8

.com_area		dd 0 ;+12

.opendir_pach		dd temp_dir_pach ;+16

.dir_default_pach	dd communication_area_default_pach ;+20

.start_path		dd open_dialog_path ;+24

.draw_window		dd draw_window ;+28

.status			dd 0 ;+32

.openfile_pach		dd path  ;openfile_pach ;+36

.filename_area		dd 0	;+40

.filter_area		dd Filter

communication_area_name:

	db 'FFFFFFFF_open_dialog',0

open_dialog_path:

	db '/sys/File Managers/opendial',0

communication_area_default_pach:

	db '/rd/1',0

Filter:

dd Filter.end - Filter

.1:

db 'BMP',0

db 'GIF',0

db 'JPG',0

db 'JPEG',0

db 'JPE',0

db 'PNG',0

db 'ICO',0

db 'CUR',0

.end:

db 0

draw_window_fake:

	ret

;------------------------------------------------------------------------------

readdir_fileinfo:

	dd	1

	dd	0

	dd	0

readblocks dd	0

directory_ptr	dd	0

;------------------------------------------------------------------------------

I_END:

curdir		rb	1024

align 4

img_data     dd ?

img_data_len dd ?

fh	     dd ?

image	     dd ?

wnd_width	dd	?

wnd_height	dd	?

draw_width	dd	?

draw_height	dd	?

last_name_component	dd	?

cur_file_idx	dd	?

cur_frame_time	dd	?

cur_frame	dd	?

next_mod	dd	?

next_key	dd	?

prev_mod	dd	?

prev_key	dd	?

procinfo:	rb	1024

path:		rb	4096  ;1024+16

real_header	rb	256

@PARAMS rb 4096  ;512

;---------------------------------------------------------------------

temp_dir_pach:

        rb 4096

;---------------------------------------------------------------------

	rb 4096

stacktop:

;---------------------------------------------------------------------

F_END: