OBJECT=KEYBOARD
KEYBOARD:TYPE=KEYBOARD
KEYBOARD:ONKEYDOWN^LEFT={DEBUG_VALUE^DEC();DEBUG^GOTO("LOGIC_TEST");}
KEYBOARD:ONKEYDOWN^RIGHT={TXTMSG^SETTEXT(["Przejscie_do_test_"+[DEBUG_VALUE+1]]);DEBUG_VALUE^INC();DEBUG^GOTO("ANIMO_TEST");}
KEYBOARD:ONKEYDOWN^ESC={EXITPROGRAM^RUN();}
KEYBOARD:ONKEYDOWN^UP={@IF("BEHNO",">","1","{BEHNO^DEC();}","");*[ARRAY_TEST_+BEHNO]^RUN();}
KEYBOARD:ONKEYDOWN^DOWN={@IF("BEHNO","<","28","{BEHNO^INC();}","");*[ARRAY_TEST_+BEHNO]^RUN();}
KEYBOARD:DESCRIPTION=CZEMU_SIE_CRASHUJE_JAK_PROBUJE_PRZEJSC_DALEJ

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,250
TXTMSG:PRIORITY=10000
TXTMSG:HJUSTIFY=CENTER
TXTMSG:VJUSTIFY=TOP
TXTMSG:MONITORCOLLISION=FALSE
TXTMSG:MONITORCOLLISIONALPHA=FALSE

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

OBJECT=TXTMSG3
TXTMSG3:TYPE=TEXT
TXTMSG3:VISIBLE=FALSE
TXTMSG3:HYPERTEXT=
TXTMSG3:FONT=ARIAL14
TXTMSG3:TOCANVAS=TRUE
TXTMSG3:RECT=0,350,800,650
TXTMSG3:PRIORITY=10000
TXTMSG3:HJUSTIFY=CENTER
TXTMSG3:VJUSTIFY=TOP
TXTMSG3:MONITORCOLLISION=FALSE
TXTMSG3:MONITORCOLLISIONALPHA=FALSE

OBJECT=BEHNO
BEHNO:TYPE=INTEGER
BEHNO:VALUE=1

OBJECT=DANETESTOWE
DANETESTOWE:TYPE=ARRAY
DANETESTOWE:ONINIT={EVENT_DEBUG_TXT^ADD("|INIT");TXTMSG3^SETTEXT(["SCIEZKA_EVENTY|"+EVENT_DEBUG_TXT^GET()]);}
#DANETESTOWE:ONDONE={EVENT_DEBUG_TXT^ADD("|DONE");TXTMSG3^SETTEXT(["SCIEZKA_EVENTY|"+EVENT_DEBUG_TXT^GET()]);}
DANETESTOWE:ONSIGNAL^TEST={EVENT_DEBUG_TXT^ADD("|SIGNAL_TEST");TXTMSG3^SETTEXT(["SCIEZKA_EVENTY|"+EVENT_DEBUG_TXT^GET()]);}

OBJECT=TEST_COPY_ARRAY
TEST_COPY_ARRAY:TYPE=ARRAY

OBJECT=EVENT_DEBUG_TXT
EVENT_DEBUG_TXT:TYPE=STRING
EVENT_DEBUG_TXT:VALUE=

OBJECT=ARRAY_TO_STRING
ARRAY_TO_STRING:TYPE=BEHAVIOUR
ARRAY_TO_STRING:CODE={@STRING("ARRAY_TEXT", "");@LOOP("{ARRAY_TEXT^ADD([""+_I_+"__"+DANETESTOWE^GET(_I_)]);@IF("_I_","!_", [DANETESTOWE^GETSIZE()-1], "{ARRAY_TEXT^ADD("|");}", "");}", "0", DANETESTOWE^GETSIZE(), "1");@RETURN(ARRAY_TEXT);}

OBJECT=ARRAY2_TO_STRING
ARRAY2_TO_STRING:TYPE=BEHAVIOUR
ARRAY2_TO_STRING:CODE={@STRING("ARRAY_TEXT", "");@LOOP("{ARRAY_TEXT^ADD([""+_I_+"__"+TEST_COPY_ARRAY^GET(_I_)]);@IF("_I_","!_", [TEST_COPY_ARRAY^GETSIZE()-1], "{ARRAY_TEXT^ADD("|");}", "");}", "0", TEST_COPY_ARRAY^GETSIZE(), "1");@RETURN(ARRAY_TEXT);}

OBJECT=ARRAY_TEST_1
ARRAY_TEST_1:TYPE=BEHAVIOUR
ARRAY_TEST_1:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");DANETESTOWE^ADD("FALSE");TXTMSG2^SETTEXT(["METODA_ADD|ZWROCONY_WYNIK__void|"+ARRAY_TO_STRING^RUN()]);}

OBJECT=ARRAY_TEST_2
ARRAY_TEST_2:TYPE=BEHAVIOUR
ARRAY_TEST_2:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");DANETESTOWE^ADDAT(0, "FALSE");TXTMSG2^SETTEXT(["METODA_ADDAT|ZWROCONY_WYNIK__void|"+ARRAY_TO_STRING^RUN()]);}

OBJECT=ARRAY_TEST_3
ARRAY_TEST_3:TYPE=BEHAVIOUR
ARRAY_TEST_3:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");DANETESTOWE^CHANGEAT(0, "FALSE");TXTMSG2^SETTEXT(["METODA_CHANGEAT|ZWROCONY_WYNIK__void|"+ARRAY_TO_STRING^RUN()]);}

OBJECT=ARRAY_TEST_4
ARRAY_TEST_4:TYPE=BEHAVIOUR
ARRAY_TEST_4:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");DANETESTOWE^CLAMPAT(2, -2, 0.5);TXTMSG2^SETTEXT(["METODA_CLAMPEAT|ZWROCONY_WYNIK__void|"+ARRAY_TO_STRING^RUN()]);}

OBJECT=ARRAY_TEST_5
ARRAY_TEST_5:TYPE=BEHAVIOUR
ARRAY_TEST_5:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");TXTMSG2^SETTEXT(["METODA_CONTAINS|ZWROCONY_WYNIK__"+DANETESTOWE^CONTAINS(TRUE)+"|"+ARRAY_TO_STRING^RUN()]);}

OBJECT=ARRAY_TEST_6
ARRAY_TEST_6:TYPE=BEHAVIOUR
ARRAY_TEST_6:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");DANETESTOWE^COPYTO("TEST_COPY_ARRAY");TXTMSG2^SETTEXT(["METODA_COPYTO|ZWROCONY_WYNIK__void|"+ARRAY2_TO_STRING^RUN()]);}

OBJECT=ARRAY_TEST_7
ARRAY_TEST_7:TYPE=BEHAVIOUR
ARRAY_TEST_7:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");TXTMSG2^SETTEXT(["METODA_FIND|ZWROCONY_WYNIK__"+DANETESTOWE^FIND("TRUE")+"|"+ARRAY_TO_STRING^RUN()]);}

OBJECT=ARRAY_TEST_8
ARRAY_TEST_8:TYPE=BEHAVIOUR
ARRAY_TEST_8:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");TXTMSG2^SETTEXT(["METODA_FIND__NIEISTNIEJACY_ELEMENT|ZWROCONY_WYNIK__"+DANETESTOWE^FIND(250)+"|"+ARRAY_TO_STRING^RUN()]);}

OBJECT=ARRAY_TEST_9
ARRAY_TEST_9:TYPE=BEHAVIOUR
ARRAY_TEST_9:CODE={DANETESTOWE^LOAD("TESTOWE_DANE_JEDEN_TYP.ARR");TXTMSG2^SETTEXT(["METODA_FIND__NIEISTNIEJACY_ELEMENT_TABLICA_JEDEN_TYP|ZWROCONY_WYNIK__"+DANETESTOWE^FIND(250)+"|"+ARRAY_TO_STRING^RUN()]);}

OBJECT=ARRAY_TEST_10
ARRAY_TEST_10:TYPE=BEHAVIOUR
ARRAY_TEST_10:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");TXTMSG2^SETTEXT(["METODA_GET__ISTNIEJACY_ELEMENT|ZWROCONY_WYNIK__"+DANETESTOWE^GET(2)+"|"+ARRAY_TO_STRING^RUN()]);}

OBJECT=ARRAY_TEST_11
ARRAY_TEST_11:TYPE=BEHAVIOUR
ARRAY_TEST_11:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");TXTMSG2^SETTEXT(["METODA_GET__NIEISTNIEJACY_ELEMENT|ZWROCONY_WYNIK__"+DANETESTOWE^GET(10)+"|"+ARRAY_TO_STRING^RUN()]);}

OBJECT=ARRAY_TEST_12
ARRAY_TEST_12:TYPE=BEHAVIOUR
ARRAY_TEST_12:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");TXTMSG2^SETTEXT(["METODA_GET__NIEISTNIEJACY_ELEMENT_DWA_ARGUMENTY|ZWROCONY_WYNIK__"+DANETESTOWE^GET(8,1)+"|"+ARRAY_TO_STRING^RUN()]);}

OBJECT=ARRAY_TEST_13
ARRAY_TEST_13:TYPE=BEHAVIOUR
ARRAY_TEST_13:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");TXTMSG2^SETTEXT(["METODA_GETSIZE|ZWROCONY_WYNIK__"+DANETESTOWE^GETSIZE()+"|"+ARRAY_TO_STRING^RUN()]);}

OBJECT=ARRAY_TEST_14
ARRAY_TEST_14:TYPE=BEHAVIOUR
ARRAY_TEST_14:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");TXTMSG2^SETTEXT(["METODA_GETSUMVALUE|ZWROCONY_WYNIK__"+DANETESTOWE^GETSUMVALUE()+"|"+ARRAY_TO_STRING^RUN()]);}

OBJECT=ARRAY_TEST_15
ARRAY_TEST_15:TYPE=BEHAVIOUR
ARRAY_TEST_15:CODE={DANETESTOWE^LOAD("TESTOWE_DANE_JEDEN_TYP.ARR");TXTMSG2^SETTEXT(["METODA_GETSUMVALUE__TABLICA_JEDEN_TYP|ZWROCONY_WYNIK__"+DANETESTOWE^GETSUMVALUE()+"|"+ARRAY_TO_STRING^RUN()]);}

OBJECT=ARRAY_TEST_16
ARRAY_TEST_16:TYPE=BEHAVIOUR
ARRAY_TEST_16:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");DANETESTOWE^INSERTAT(3, 2.5);TXTMSG2^SETTEXT(["METODA_INSERTAT|ZWROCONY_WYNIK__void|"+ARRAY_TO_STRING^RUN()]);}

OBJECT=ARRAY_TEST_17
ARRAY_TEST_17:TYPE=BEHAVIOUR
ARRAY_TEST_17:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");DANETESTOWE^SAVEINI();TXTMSG2^SETTEXT(["METODA_SAVEINI|ZWROCONY_WYNIK__void|"+ARRAY_TO_STRING^RUN()]);}

OBJECT=ARRAY_TEST_18
ARRAY_TEST_18:TYPE=BEHAVIOUR
ARRAY_TEST_18:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");DANETESTOWE^REMOVE(TRUE);TXTMSG2^SETTEXT(["METODA_REMOVE|ZWROCONY_WYNIK__void|"+ARRAY_TO_STRING^RUN()]);}

OBJECT=ARRAY_TEST_19
ARRAY_TEST_19:TYPE=BEHAVIOUR
ARRAY_TEST_19:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");DANETESTOWE^REMOVEALL();TXTMSG2^SETTEXT(["METODA_REMOVEALL|ZWROCONY_WYNIK__void|"+ARRAY_TO_STRING^RUN()]);}

OBJECT=ARRAY_TEST_20
ARRAY_TEST_20:TYPE=BEHAVIOUR
ARRAY_TEST_20:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");DANETESTOWE^REMOVEAT(2);TXTMSG2^SETTEXT(["METODA_REMOVEAT|ZWROCONY_WYNIK__void|"+ARRAY_TO_STRING^RUN()]);}

OBJECT=ARRAY_TEST_21
ARRAY_TEST_21:TYPE=BEHAVIOUR
ARRAY_TEST_21:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");TXTMSG2^SETTEXT(["METODA_REVERSEFIND|ZWROCONY_WYNIK__"+DANETESTOWE^REVERSEFIND("TRUE")+"|"+ARRAY_TO_STRING^RUN()]);}

OBJECT=ARRAY_TEST_22
ARRAY_TEST_22:TYPE=BEHAVIOUR
ARRAY_TEST_22:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");TXTMSG2^SETTEXT(["METODA_REVERSEFIND__NIEISTNIEJACY_ELEMENT|ZWROCONY_WYNIK__"+DANETESTOWE^REVERSEFIND(250)+"|"+ARRAY_TO_STRING^RUN()]);}

OBJECT=ARRAY_TEST_23
ARRAY_TEST_23:TYPE=BEHAVIOUR
ARRAY_TEST_23:CODE={DANETESTOWE^LOAD("TESTOWE_DANE_JEDEN_TYP.ARR");TXTMSG2^SETTEXT(["METODA_REVERSEFIND__NIEISTNIEJACY_ELEMENT_TABLICA_JEDEN_TYP|ZWROCONY_WYNIK__"+DANETESTOWE^REVERSEFIND(250)+"|"+ARRAY_TO_STRING^RUN()]);}

OBJECT=ARRAY_TEST_24
ARRAY_TEST_24:TYPE=BEHAVIOUR
ARRAY_TEST_24:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");DANETESTOWE^SUB(5);TXTMSG2^SETTEXT(["METODA_SUB|ZWROCONY_WYNIK__void|"+ARRAY_TO_STRING^RUN()]);}

OBJECT=ARRAY_TEST_25
ARRAY_TEST_25:TYPE=BEHAVIOUR
ARRAY_TEST_25:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");DANETESTOWE^SUM(5);TXTMSG2^SETTEXT(["METODA_SUM|ZWROCONY_WYNIK__void|"+ARRAY_TO_STRING^RUN()]);}

OBJECT=ARRAY_TEST_26
ARRAY_TEST_26:TYPE=BEHAVIOUR
ARRAY_TEST_26:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");DANETESTOWE^ADD(ARIAL14);TXTMSG2^SETTEXT(["PROBA_DODANIA_INNEGO_TYPU|WIELKOSC_TABLICY__"+DANETESTOWE^GETSIZE()]);}

OBJECT=ARRAY_TEST_27
ARRAY_TEST_27:TYPE=BEHAVIOUR
ARRAY_TEST_27:CODE={TXTMSG3^SHOW();EVENT_DEBUG_TXT^ADD("|PRZED_LOAD");DANETESTOWE^LOAD("TESTOWE_DANE.ARR");EVENT_DEBUG_TXT^ADD("|PO_LOAD|PRZED_SAVE");DANETESTOWE^SAVE("TEST_ZAPISU.ARR");EVENT_DEBUG_TXT^ADD("|PO_SAVE");DANETESTOWE^SEND("TEST");TXTMSG3^SETTEXT(["SCIEZKA_EVENTY|"+EVENT_DEBUG_TXT^GET()]);}

OBJECT=__INIT__
__INIT__:TYPE=BEHAVIOUR
__INIT__:CODE={TXTMSG^SETTEXT(["Test"+DEBUG_VALUE+"_Test_tablic"]);TXTMSG^SHOW();TXTMSG2^SHOW();ARRAY_TEST_1^RUN();}