Subversion Repositories Kolibri OS

Rev

Rev 2431 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
307 Lrz 1 
;====================================================================
2 
;===== ŽŠŽ …„Ž‘ŒŽ’€ ===========================================
3 
;====================================================================
205 heavyiron 4 
scr_window:
5 
.start:
6 
.red:
1098 Lrz 7 
        call    .draw_window
205 heavyiron 8 
.still:
3375 esevece 9 
        wait_event .red, .close
1098 Lrz 10 
        jmp     .still
205 heavyiron 11 
 
12 
.draw_window:
1098 Lrz 13 
        start_draw_window
14 
        xor     eax,eax
15 
        movsx   ebx,word [scr.width]
16 
        movsx   ecx,word [scr.height]
17 
        ;xor     edx,edx
18 
        mov     edx,0x01000000
19 
        xor     esi,esi
20 
        xor     edi,edi
21 
        mcall
205 heavyiron 22 
 
1098 Lrz 23 
        mov     eax,7
24 
        mov     ebx,dword [scr_buf.ptr]
25 
        mov     ecx,dword [scr_buf.size]
26 
        xor     edx,edx
27 
        mcall
205 heavyiron 28 
 
1098 Lrz 29 
        mov     eax,13
30 
        mov     ebx,19*65536+231
31 
        mov     ecx,19*65536+10
32 
        mov     edx,0x00FF00
33 
        mcall
205 heavyiron 34 
 
1098 Lrz 35 
        mov     edi,.label
36 
        call    draw_label
205 heavyiron 37 
 
1098 Lrz 38 
        stop_draw_window
205 heavyiron 39 
ret
1100 Lrz 40 
.close:
41 
        bt      word [ch3.flags],1   ; ĒŪááâ ­ŪĒĻâė ŪŠ­Ū ?
42 
        jnc     @f
43 
 
44 
        mov     eax,60
45 
        mov     ebx,2
46 
        mov     ecx,[app.pid]
47 
        mov     edx,messages.act_window
48 
        mov     esi,2
49 
        mcall
50 
@@:
51 
        jmp	close
52 
 
2431 leency 53 
.label label 20,20,0x80000000,keyforexit