OBJECT=MOUSE
MOUSE:TYPE=MOUSE
MOUSE:RAW=0

OBJECT=CNVLOADER
CNVLOADER:TYPE=CNVLOADER

OBJECT=CANVASOBSERVER
CANVASOBSERVER:TYPE=CANVAS_OBSERVER

OBJECT=KEYBOARD
KEYBOARD:TYPE=KEYBOARD
KEYBOARD:ONKEYDOWN^RIGHT={TXTMSG^SETTEXT(["Przejscie_do_test_"+[DEBUG_VALUE+1]]);DEBUG_VALUE^INC();DEBUG^GOTO("MOUSE_TEST");}
KEYBOARD:ONKEYDOWN^ESC={EXITPROGRAM^RUN();}

OBJECT=ARIAL14
ARIAL14:TYPE=FONT
ARIAL14:DEF_ARIAL_STANDARD_14=$COMMON\ARIAL14.FNT

OBJECT=TXTMSG
TXTMSG:TYPE=TEXT
TXTMSG:VISIBLE=TRUE
TXTMSG:HYPERTEXT=
TXTMSG:FONT=ARIAL14
TXTMSG:TOCANVAS=TRUE
TXTMSG:RECT=0,0,800,600
TXTMSG:PRIORITY=10000
TXTMSG:HJUSTIFY=CENTER
TXTMSG:VJUSTIFY=CENTER
TXTMSG:MONITORCOLLISION=FALSE
TXTMSG:MONITORCOLLISIONALPHA=FALSE

OBJECT=MOJAARRAJKA
MOJAARRAJKA:TYPE=ARRAY

OBJECT=__INIT__
__INIT__:TYPE=BEHAVIOUR
__INIT__:CODE={__KEYBOARD_AUTOCLICK_DISABLE__^RUN();DEBUG_VALUE^SET(1);TXTMSG^SETTEXT(["Test"+DEBUG_VALUE+"_test_tablic"]);TXTMSG^SHOW();MOJAARRAJKA^LOAD("TESTOWE_DANE_MIXED.ARR");MOJAARRAJKA^ADDAT(0,10);MOJAARRAJKA^CHANGEAT(1,25.5);MOJAARRAJKA^CLAMPAT(2,2.5,17.0);MOJAARRAJKA^MODAT(4,4);MOJAARRAJKA^SAVE("TESTOWE_DANE_ZMIANY.ARR");}