kolibrios-fun/programs/system/docky/trunk/NAME.INC

 n_main:
    mov     dword[nwin.w], 67
    mov     dword[nwin.h], 16

    mov     dword[nwin.bgwidth], 66
    mov     dword[nwin.bgheight], 1

    cmp     dword[dock_items.location], 1
    je      .top
    cmp     dword[dock_items.location], 4
    je      .right
    cmp     dword[dock_items.location], 3
    je      .bottom
    jmp     .left

 .top:
    mov     eax, [win.h_opn]
    mov     [nwin.y], eax

    mov     dword[nwin.bgx], 1

    jmp     @f

 .left:
    mov     eax, [win.w_opn]
    mov     [nwin.x], eax

    mov     dword[nwin.bgy], 1
    mov     dword[nwin.bgwidth], 1
    mov     eax, [nwin.h]
    dec     eax
    mov     dword[nwin.bgheight], eax

    jmp     @f

 .bottom:
    mov     eax, [win.y_opn]
    sub     eax, 17
    mov     [nwin.y], eax

    mov     dword[nwin.bgx], 1
    mov     eax, [nwin.h]

    mov     eax, [nwin.h]
    mov     [nwin.bgy], eax

    jmp     @f

 .right:
    mov     eax, [win.x_opn]
    sub     eax, 68
    mov     [nwin.x], eax

    mov     eax, [nwin.w]
    mov     [nwin.bgx], eax
    mov     dword[nwin.bgy], 1
    mov     dword[nwin.bgwidth], 1
    mov     eax, [nwin.h]
    dec     eax
    mov     dword[nwin.bgheight], eax

  @@:

    mcall   40, 1b

    mcall   9, win.procinfo, -1
    mov     ecx, [win.procinfo + 30]
    mcall   18, 21
    and     eax, 0xFFFF
    mov     [nwin.sid], eax
;-------------------------------------------------------------------------------
n_main_loop:
    mcall   23, 1

    cmp     eax, EV_IDLE
    je      n_event_idle
    cmp     eax, EV_REDRAW
    je      n_event_redraw

    jmp     n_main_loop
;-------------------------------------------------------------------------------
n_event_idle:
    cmp     byte[nwin.close], 1
    jne     @f

    mcall   13, <0, [win.w]>, <[win.h], 1>, [sc.work_dark]

    mov     byte[nwin.close], 0
    mcall   -1

  @@:
    cmp     byte[win.btn_index], 100
    jne     @f

    mcall   67, 0, 0, 0, 0
    jmp     .end

  @@:
    cmp     byte[nwin.swap_shape], 1
    jne     .end

    mov     byte[nwin.swap_shape], 0
    mcall   67, [nwin.x], [nwin.y], [nwin.w], [nwin.h]

 .end:
    jmp     n_main_loop
;-------------------------------------------------------------------------------
n_event_redraw:
    mcall   12, 1

    mcall   0, <[nwin.x], [nwin.w]>, <[nwin.y], [nwin.h]>, [sc.work], [sc.work], [sc.work_dark]

    mcall   13, <[nwin.bgx], [nwin.bgwidth]>, <[nwin.bgy], [nwin.bgheight]>, [sc.work]

    mov     edx, [win.btn_index]
    imul    edx, 16
    add     edx, dock_items.name

    mov     eax, 0
  @@:
    inc     eax
    cmp     byte[edx+eax], 0
    jne     @b

    imul    eax, 3
    mov     ebx, 34
    sub     ebx, eax
    add     ebx, 1
    shl     ebx, 16
    add     ebx, 5

    mcall   4, , [sc.work_text]

    mcall   12, 2

    mcall   18, 3, [nwin.sid]

    jmp     n_main_loop