; <--- description --->
; compiler: FASM 1.67
; name: Basic window example for KolibriOS
; version: 1.02
; last update: 1/03/2007
; written by: Ivan Poddubny
; e-mail: ivan-yar@bk.ru
;modified by: Heavyiron
; <--- include all MeOS stuff --->
include "lang.inc"
include "..\..\..\..\macros.inc"
; <--- start of MenuetOS application --->
MEOS_APP_START
; <--- start of code --->
CODE
mov eax,48 ; get system colors
mov ebx,3
mov ecx,sc
mov edx,sizeof.system_colors
mcall
redraw: ; redraw event handler
call draw_window ; at first create and draw the window
mcall 9, procinfo, -1
wait_event: ; main cycle
mov eax, 10
mcall
dec eax ; if event = 1
jz redraw ; jump to redraw handler
dec eax ; else if event = 2
jz key ; jump to key handler
button: ; button event handler
mov al, 17 ; get button identifier
mcall
cmp ah, 1
jne wait_event ; return if button id != 1
or eax, -1 ; exit application
mcall
key: ; key event handler
mov al, 2 ; get key code
mcall
jmp wait_event
draw_window:
mov eax, 12 ; start drawing
mov ebx, 1
mcall
xor eax, eax ; create and draw the window
mov ebx, 100*65536+200 ; (window_cx)*65536+(window_sx)
mov ecx, 100*65536+100 ; (window_cy)*65536+(window_sy)
mov edx, [sc.work] ; work area color
or edx, 0x33000000 ; & window type 3
mov edi, title ; window title
int 0x40
mov eax, 12 ; finish drawing
mov ebx, 2
mcall
ret
; <--- initialised data --->
DATA
if lang eq ru
title db ' ¡«® ¯à®£à ¬¬ë',0
else if lang eq fr
title db 'La programme poncive',0
else
title db 'Template program',0
end if
; <--- uninitialised data --->
UDATA
sc system_colors
procinfo rb 1024
MEOS_APP_END
; <--- end of MenuetOS application --->