kolibrios/programs/media/scrshoot/scrwin.inc

;====================================================================
;===== ŽŠ<C5BD>Ž <20><>…„<E280A6><E2809E>Ž‘ŒŽ’<C5BD>€ ===========================================
;====================================================================
scr_window:
.start:
.red:
        call    .draw_window
.still:
        wait_event .red, .close
        jmp     .still

.draw_window:
        start_draw_window
        xor     eax,eax
        movsx   ebx,word [scr.width]
        movsx   ecx,word [scr.height]
        ;xor     edx,edx
        mov     edx,0x01000000
        xor     esi,esi
        xor     edi,edi
        mcall

        mov     eax,7
        mov     ebx,dword [scr_buf.ptr]
        mov     ecx,dword [scr_buf.size]
        xor     edx,edx
        mcall

        mov     eax,13
        mov     ebx,19*65536+231
        mov     ecx,19*65536+10
        mov     edx,0x00FF00
        mcall

        mov     edi,.label
        call    draw_label

        stop_draw_window
ret
.close:
        bt      word [ch3.flags],1   ; ¢®ááâ ­®¢¨âì ®ª­® ?
        jnc     @f

        mov     eax,60
        mov     ebx,2
        mov     ecx,[app.pid]
        mov     edx,messages.act_window
        mov     esi,2
        mcall
@@:
        jmp	close

.label label 20,20,0x80000000,keyforexit