Subversion Repositories Kolibri OS

Rev

Rev 720 | Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
719 jacekm 1
#asm
2
use32
3
org 0x0
4
 
5
 db 'MENUET01'
6
 dd 0x01
7
 dd _main
8
 dd I_END
9
 dd 0x100000
10
 dd 0x7fff0
11
 dd 0x0,0x0
12
 
13
include 'INTRINS.ASM'
14
#endasm
15
 
16
#include "klib.h"
17
 
18
void main()
19
{int  event;
20
 int  button_id;
21
 
22
 draw_window();
23
 while(1)
24
 {
25
	event=s_get_event();
26
	switch(event)
27
	{
28
		case 1: draw_window(); break;
29
		case 2: get_button(); break;
30
		case 3: button_id=get_button();
31
			if(button_id==1) s_quit();
32
		break;
33
	}
34
 }
35
}
36
 
37
char text1[50]="THIS IS AN EXAMPLE OF C";
38
char text2[50]="PROGRAM IN KOLIBRIOS";
39
char text3[50]="";
40
char text4[50]="SUCCESS";
41
int  p_text[4];
42
 
43
draw_window()
44
{int i; /* for index */
45
 int y;y=25;
46
 
47
 p_text[0]=&text1[0];
48
 p_text[1]=&text2[0];
49
 p_text[2]=&text3[0];
50
 p_text[3]=&text4[0];
51
 
52
 begin_draw();
53
 
54
 window(100,100,320,150,0x03ffffff,0x805080d0,0x005080d0);
55
 label(8,8,0x10ddeeff,"Example application");
56
 buttonT(50,35,60,12,0x111111,1, "Click Me!", 0xFFFFFF);
57
 
58
 for(i=0;i<4;i++)
59
     label(20,40+(y+=10),0x000000,p_text[i]);
60
 
61
 end_draw();
62
}
63
 
64
#asm
65
I_END:
66
#endasm
67