Subversion Repositories Kolibri OS

Rev

Rev 8455 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
8455 maxcodehac 1
var button_text = 0
2
var button = 2
3
 
8477 maxcodehac 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
 
8455 maxcodehac 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)
8477 maxcodehac 33
    // Delay(100)
8455 maxcodehac 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