189 lines
8.7 KiB
Plaintext
189 lines
8.7 KiB
Plaintext
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();}
|