Subversion Repositories Kolibri OS

Rev

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

  1. var button_text = 0
  2. var button = 2
  3.  
  4. // Dynamic functions! //
  5. //////////////////////////////////////////////////
  6. function Delay(long)
  7. {
  8.         KolibriSyscall(5, long, 0, 0, 0, 0)
  9. }
  10.  
  11. function StartDraw()
  12. {
  13.         KolibriSyscall(12, 1, 0, 0, 0, 0)
  14. }
  15.  
  16. function EndDraw()
  17. {
  18.         KolibriSyscall(12, 2, 0, 0, 0, 0)
  19. }
  20.  
  21. function GetEvent()
  22. {
  23.         return KolibriSyscallReturnEAX(10, 0, 0, 0, 0, 0)
  24. }
  25. //////////////////////////////////////////////////
  26.  
  27. function Redraw()
  28. {
  29.     StartDraw()
  30.     WindowCreate(10, 40, 400, 200, "My window", 0xFFFFFF, 0x14)
  31.     WriteText("KolibriOS JS example", 15, 34, 0, 0x90000000, 0xFFFFFF)
  32.     ButtonCreate((150 << 16) + 100, (100 << 16) + 50, button, 0x177245)
  33.     // Delay(100)
  34.     WriteText("Click!", 155,115, 0, 0x91000000 | 0xFFFFFF)
  35.     WriteText(button_text, 15,100, 0, 0x92000000)
  36.     EndDraw()
  37. }
  38.  
  39. while(1)
  40. {
  41.     var gui_event = GetEvent()
  42.     switch(gui_event)
  43.     {
  44.         case 0:
  45.             break
  46.         case 1:
  47.             Redraw()
  48.             break
  49.         case 3:
  50.             var pressed_button = GetButtonEvent()
  51.             switch (pressed_button)
  52.             {
  53.               case 1:
  54.                 Exit()
  55.                 break
  56.               case button:
  57.                 button_text++;
  58.                 Redraw()
  59.                 break
  60.             }
  61.             break
  62.     }
  63. }
  64.  
  65.