Subversion Repositories Kolibri OS

Rev

Go to most recent revision | Blame | Last modification | View Log | Download | RSS feed

  1. var button_text = 0
  2. var button = 2
  3.  
  4. function Redraw()
  5. {
  6.     StartDraw()
  7.     WindowCreate(10, 40, 400, 200, "My window", 0xFFFFFF, 0x14)
  8.     WriteText("KolibriOS JS example", 15, 34, 0, 0x90000000, 0xFFFFFF)
  9.     ButtonCreate((150 << 16) + 100, (100 << 16) + 50, button, 0x177245)
  10.     WriteText("Click!", 155,115, 0, 0x91000000 | 0xFFFFFF)
  11.     WriteText(button_text, 15,100, 0, 0x92000000)
  12.     EndDraw()
  13. }
  14.  
  15. while(1)
  16. {
  17.     var gui_event = GetEvent()
  18.     switch(gui_event)
  19.     {
  20.         case 0:
  21.             break
  22.         case 1:
  23.             Redraw()
  24.             break
  25.         case 3:
  26.             var pressed_button = GetButtonEvent()
  27.             switch (pressed_button)
  28.             {
  29.               case 1:
  30.                 Exit()
  31.                 break
  32.               case button:
  33.                 button_text++;
  34.                 Redraw()
  35.                 break
  36.             }
  37.             break
  38.     }
  39. }
  40.  
  41.