Subversion Repositories Kolibri OS

Rev

Rev 720 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  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.