Subversion Repositories Kolibri OS

format binary as ""

use32

org 0x0

db 'MENUET01'

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

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

include '../../../config.inc'

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

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

include '../../../dll.inc'

;include '../../../debug.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

    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

    cmp byte [@PARAMS], 0

    jz @f

    mov esi, @PARAMS

    mov edi, path

    mov ecx, 4096/4

    rep movsd

    mov byte [edi-1], 0

@@:

; OpenDialog initialisation

    push    dword OpenDialog_data

    call    [OpenDialog_Init]

; 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

    invoke  ini_get_shortcut, inifilename, aShortcuts, aSlide, -1, slide_mod

    mov [slide_key], eax

    invoke  ini_get_shortcut, inifilename, aShortcuts, aTglbar, -1, tglbar_mod

    mov [tglbar_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

; OpenDialog Open

    push    dword OpenDialog_data

    call    [OpenDialog_Start]

    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

    jz  .prev

    add edx, slide_mod - prev_mod

    call    check_shortcut

    jz  .slide

    add edx, tglbar_mod - slide_mod

    call    check_shortcut

    jz  .tglbar

    cmp cl, 1 ; Esc

    jz  .esc

    jmp keyloop

.esc:

    test byte [bSlideShow], 1

    jnz .slide

    jmp keyloop

.tglbar:

    mov byte [bTglbar], 1

    test byte[bSlideShow], 1

    jnz @f

    xor [toolbar_height], 31

@@:

    jmp keyloop

.slide:

    call slide_show

    jmp keyloop

.prev:

    dec esi

    jmp keyloop

.next:

    inc esi

    jmp keyloop

keyloopdone:

    test esi, esi

    jnz next_or_prev_handler

    test byte [bSlideShow], 2

    jnz red

    test byte [bTglbar], 1

    jnz red

    jmp 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

; OpenDialog Open

    push    dword OpenDialog_data

    call    [OpenDialog_Start]

    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

    @@:

    cmp eax, 'sld'

    jne @f

    call    slide_show

    jmp red

    @@:

    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

    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]

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

    jnz .not_in_row

    push eax

@@: cmp [eax + Image.Next], 0

    jz  @f

    mov eax, [eax + Image.Next]

    add edx, [eax + Image.Width]

    inc edx

    jmp @b

@@: pop eax

.not_in_row:

    mov [draw_width], edx

    add edx, 19

    cmp edx, 50 + 25*numimages

    jae @f

    mov edx, 50 + 25*numimages

@@:

;    dec edx

    mov [wnd_width], edx

    mov esi, [eax + Image.Height]

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

    jnz .max_equals_first

    push eax

@@: cmp [eax + Image.Next], 0

    jz  @f

    mov eax, [eax + Image.Next]

    cmp esi, [eax + Image.Height]

    jae @b

    mov esi, [eax + Image.Height]

    jmp @b

@@: pop eax

.max_equals_first:

    mov [draw_height], esi

    add esi, [toolbar_height]

    add esi, [image_padding]

    add esi, [image_padding]

    add esi, 5  ; window bottom frame height

    dec esi

    mov [wnd_height], esi

    popf

    jz  .no_resize

    test [wnd_style], 1 SHL 25

    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

slide_show:

    or  byte [bSlideShow], 2

    xor byte [bSlideShow], 1

    btc dword [wnd_style], 25

    jc  @f

    mov eax, [toolbar_height_old]

    mov [toolbar_height], eax

    mov [image_padding], 5

    jmp .toolbar_height_done

@@:

    mov eax, [toolbar_height]

    mov [toolbar_height_old], eax

    mov [toolbar_height], 0

    mov [image_padding], 0

.toolbar_height_done:

    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]

    cmp byte[esi+3], 0

    jne .not_3

    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, 'tga'

    jz  .copy

    cmp ecx, 'pcx'

    jz  .copy

    cmp ecx, 'xcf'

    jz  .copy

    cmp ecx, 'pbm'

    jz  .copy

    cmp ecx, 'pgm'

    jz  .copy

    cmp ecx, 'pnm'

    jz  .copy

    cmp ecx, 'tif'

    jz  .copy

  .not_3:

    cmp byte[esi+4], 0

    jne .nocopy

    or  ecx, 0x20202020

    cmp ecx, 'tiff'

    jz  @f

    cmp ecx, 'wbmp'

    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:

    btr  word [bSlideShow], 1  ; mode changed

    jc .mode_changed

    test byte [bTglbar], 1

    jz .mode_not_changed

.mode_changed:

    test [wnd_style], 1 SHL 25

    jz .mode_slide

    mov [bg_color], 0x00ffffff

    mov eax, [image]

    cmp eax, eax

    call update_image_sizes

    mcall 48, 4

    mov esi, [wnd_height]

    add esi, eax

    test byte [bTglbar], 1

    jz @f

    mcall 67, -1, -1, [wnd_width],

    jmp .mode_not_changed

@@:

    mcall 67, [wnd_x], [wnd_y], [wnd_width],

    jmp .mode_not_changed

.mode_slide:

    mov [bg_color], 0x00000000

    mov eax, [procinfo.box.left]

    mov [wnd_x], eax

    mov eax, [procinfo.box.top]

    mov [wnd_y], eax

    mcall 14

    mov edx, eax

    shr edx, 16

    movzx eax, ax

    mov esi, eax

    mcall 67, 0, 0, ,

    jmp .posok.slide_show

.mode_not_changed:

    cmp [bFirstDraw], 0

    jz  .posok

    or  ecx, -1

    mcall   9, procinfo

    test byte [procinfo.wnd_state], 0x04

    jnz .posok

    mov edx, ecx

    mov esi, ecx

    cmp dword [procinfo.box.width], 50 + 25 * numimages

    jae @f

    mov edx, 50 + 25 * numimages

@@:

    cmp dword [procinfo.box.height], 70

    jae @f

    mov esi, 70

@@:

    mov eax, edx

    and eax, esi

    cmp eax, -1

    jz  @f

    mov ebx, ecx

    mcall   67

@@:

.posok:

    test [wnd_style], 1 SHL 25

    jz .posok.slide_show

    mcall   12, 1

    mcall   48, 4

    mov ebp, eax    ; save skin height

    add eax, [wnd_height]

    mov ebx, [wnd_x]

    shl ebx, 16

    add ebx, [wnd_width]

    mov ecx, [wnd_y]

    shl ecx, 16

    add ecx, eax

    mcall   0, , , [wnd_style], 0, real_header

    jmp .posok.common

.posok.slide_show:

    mcall   12, 1

    mcall 14

    mov ebx, eax

    shr ebx, 16

    movzx eax, ax

    mov ecx, eax

    mcall   0, , , [wnd_style], 0, real_header

.posok.common:

    mcall   9, procinfo, -1

    mov eax, [procinfo.client_box.width]

    sub eax, [image_padding]

    sub eax, [image_padding]

    sub eax, [draw_width]

    sar eax, 1

    test eax, eax

    jns @f

    mov eax, 0

@@:

    add eax, [image_padding]

    mov [draw_x], eax

    mov eax, [procinfo.client_box.height]

    sub eax, [toolbar_height]

    sub eax, [image_padding]

    sub eax, [image_padding]

    sub eax, [draw_height]

    sar eax, 1

    test eax, eax

    jns @f

    mov eax, 0

@@:

    add eax, [toolbar_height]

    add eax, [image_padding]

    mov [draw_y], eax

    mov [bFirstDraw], 1

    cmp dword [procinfo.client_box.height], 0

    jle .nodraw

    mov ebx, [procinfo.client_box.width]

    inc ebx

    mov ecx, [draw_y]

    mcall   13, , , [bg_color]

    mov ecx, [procinfo.client_box.height]

    inc ecx

    mov esi, [cur_frame]

    mov esi, [esi + Image.Height]

    add esi, [draw_y]

    sub ecx, esi

    jbe @f

    push    esi

    shl esi, 16

    add ecx, esi

    pop esi

    mcall

    xor ecx, ecx

@@:

    add ecx, esi

    mov ebx, [draw_y]

    sub ecx, ebx

    shl ebx, 16

    add ecx, ebx

    mov ebx, [draw_x]

    mcall

    mov esi, [cur_frame]

    mov esi, [esi + Image.Width]

    add esi, ebx

    mov ebx, [procinfo.client_box.width]

    inc ebx

    sub ebx, esi

    jbe @f

    shl esi, 16

    add ebx, esi

    mcall

@@:

    test [wnd_style], 1 SHL 25

    jz .slide_show_mode

    mov byte [bTglbar], 0

    cmp byte [toolbar_height], 0

    je .decorations_done

    mov ebx, [procinfo.client_box.width]

    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 * 5, 15 + 25 * 5>

    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

    mcall   , <15 + 25 * 4, 20>, , 'sld'+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>

    mcall   , buttons+slidebtn*20,   , <15 + 25 * 4, 5>

    mov edx, [procinfo.client_box.width]

    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

    jmp .decorations_done

.slide_show_mode:

.decorations_done:

    call    draw_cur_frame

.nodraw:

    mcall   12, 2

    ret

draw_cur_frame:

    push    0   ; ypos

    push    0   ; xpos

    mov eax, [procinfo.client_box.height]

    sub eax, [toolbar_height]

    sub eax, [image_padding]

    inc eax

    push    eax ; max height

    mov eax, [procinfo.client_box.width]

    sub eax, [image_padding]

    inc eax

    push    eax ; max width

    push [draw_y]

    push [draw_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.client_box.width]

    sub ebx, [image_padding]

    inc ebx

    jbe .done

    mov esi, [draw_x]

.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.client_box.height]

    sub ecx, [toolbar_height]

    sub ecx, [image_padding]

    inc ecx

;    inc ebx

    push    ecx ; max height

    push    ebx ; max width

    push    [draw_y]  ; y

    push    esi ; x

    push    eax ; image

    call    [img.draw]

    pop eax

    cmp [eax + Image.Next], 0

    jnz .afloop

    ret

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