forked from KolibriOS/kolibrios
4e9602a915
New lib: lexer.h git-svn-id: svn://kolibrios.org@5598 a494cfbc-eb01-0410-851d-a64ba20cac60
43 lines
735 B
C
43 lines
735 B
C
#define MEMSIZE 0x3E80
|
|
#include "..\lib\strings.h"
|
|
|
|
void main()
|
|
{
|
|
int id, key;
|
|
|
|
loop()
|
|
{
|
|
switch(WaitEvent())
|
|
{
|
|
case evButton:
|
|
id=GetButtonID();
|
|
if (id==1) ExitProcess();
|
|
break;
|
|
|
|
case evKey:
|
|
key = GetKey();
|
|
if (key==013){ //Enter
|
|
WriteText(50,90,0x80,0xFF00FF,"Pressed Enter");
|
|
}
|
|
break;
|
|
|
|
case evReDraw:
|
|
draw_window();
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
void draw_window()
|
|
{
|
|
proc_info Form;
|
|
DefineAndDrawWindow(215,100,250,200,0x34,0xFFFFFF,"Window header");
|
|
GetProcessInfo(#Form, SelfInfo);
|
|
WriteText(50,80,0x80,0,"Press Enter");
|
|
WriteText(10,110,0x80,0,#param);
|
|
}
|
|
|
|
|
|
stop:
|