kolibrios/programs/media/scrshoot/scrwin.inc
esevece fe26f3d2ac scrshoot.mac corrected by dunkaist
git-svn-id: svn://kolibrios.org@3375 a494cfbc-eb01-0410-851d-a64ba20cac60
2013-03-13 18:06:46 +00:00

54 lines
1.3 KiB
HTML
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

;====================================================================
;===== ŽŠ<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