kolibrios-gitea/programs/develop/scc/example/EXAMPLE.C
jacekm 7bcf433fb8 scc examples
git-svn-id: svn://kolibrios.org@719 a494cfbc-eb01-0410-851d-a64ba20cac60
2008-02-08 11:42:16 +00:00

67 lines
1.1 KiB
C

#asm
use32
org 0x0
db 'MENUET01'
dd 0x01
dd _main
dd I_END
dd 0x100000
dd 0x7fff0
dd 0x0,0x0
include 'INTRINS.ASM'
#endasm
#include "klib.h"
void main()
{int event;
int button_id;
draw_window();
while(1)
{
event=s_get_event();
switch(event)
{
case 1: draw_window(); break;
case 2: get_button(); break;
case 3: button_id=get_button();
if(button_id==1) s_quit();
break;
}
}
}
char text1[50]="THIS IS AN EXAMPLE OF C";
char text2[50]="PROGRAM IN KOLIBRIOS";
char text3[50]="";
char text4[50]="SUCCESS";
int p_text[4];
draw_window()
{int i; /* for index */
int y;y=25;
p_text[0]=&text1[0];
p_text[1]=&text2[0];
p_text[2]=&text3[0];
p_text[3]=&text4[0];
begin_draw();
window(100,100,320,150,0x03ffffff,0x805080d0,0x005080d0);
label(8,8,0x10ddeeff,"Example application");
buttonT(50,35,60,12,0x111111,1, "Click Me!", 0xFFFFFF);
for(i=0;i<4;i++)
label(20,40+(y+=10),0x000000,p_text[i]);
end_draw();
}
#asm
I_END:
#endasm