kolibrios-gitea/programs/cmm/template/t.c

28 lines
512 B
C
Raw Normal View History

#define MEMSIZE 4096*40
#include "../lib/gui.h"
#include "../lib/fs.h"
void main()
{
proc_info Form;
@SetEventMask(EVM_REDRAW + EVM_KEY + EVM_BUTTON + EVM_MOUSE);
loop() switch(WaitEvent())
{
case evMouse:
mouse.get();
break;
case evKey:
@GetKeyScancode();
if (AL == SCAN_CODE_ESC) @ExitProcess();
break;
case evReDraw:
sc.get();
DefineAndDrawWindow(100, 100, 300, 250, 0x34, sc.work, "Template app", 0);
GetProcessInfo(#Form, SelfInfo);
}
}