aabc2/KOS_qrcodes
1
0
Fork 0
forked from KolibriOS/kolibrios
Code Pull Requests Activity

Upload kosjs interpreter

Browse Source 
git-svn-id: svn://kolibrios.org@8455 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
maxcodehack
2020-12-20 07:57:39 +00:00
parent 8c1db15f91
commit 2a45e4a7f7
18 changed files with 1505 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
programs/develop/kosjs/examples/example.js Executable file
View File

@@ -0,0 +1,40 @@
var button_text = 0
var button = 2
function Redraw()
{
StartDraw()
WindowCreate(10, 40, 400, 200, "My window", 0xFFFFFF, 0x14)
WriteText("KolibriOS JS example", 15, 34, 0, 0x90000000, 0xFFFFFF)
ButtonCreate((150 << 16) + 100, (100 << 16) + 50, button, 0x177245)
WriteText("Click!", 155,115, 0, 0x91000000 | 0xFFFFFF)
WriteText(button_text, 15,100, 0, 0x92000000)
EndDraw()
}
while(1)
{
var gui_event = GetEvent()
switch(gui_event)
{
case 0:
break
case 1:
Redraw()
break
case 3:
var pressed_button = GetButtonEvent()
switch (pressed_button)
{
case 1:
Exit()
break
case button:
button_text++;
Redraw()
break
}
break
}
}