Funzione TREE dinamica

[Carlo Colella]

Buongiorno a tutti.

prendendo spunto dal sorgente trovato nella cartella SAMPLE

C:\MiniGUI\SAMPLES\BASIC\Tree

ho cercato di creare una struttura ad albero dinamica  che, nei vari items, non contenga dei valori fissi bensì il contenuto di un array.

Il programma va in abend come se non riuscisse a chiudere l'array nella funzione TREEITEMS.

Qualcuno di voi si è mai cimentato con questo argomento e sa dirmi dove sbaglio?

Allego lo screenshot dell'errore e il sorgente

function provatree()

    aTree := {}

    DEFINE WINDOW B2 AT 0,0 ;
        TITLE "PROVA TREE"  ;
        WIDTH   1200  ;
        HEIGHT 700   ;
        main ;
   
        ON KEY ESCAPE ACTION thiswindow.release
   

AADD(aTree , "barca1")
AADD(aTree , "barca2")
AADD(aTree , "barca3")
AADD(aTree , "barca4")
AADD(aTree , "barca5")
AADD(aTree , "barca6")

tLEN := LEN(aTree)
msginfo(tLEN)

    DEFINE TREE Tree_1 ;
            AT 10,10 ;
            WIDTH 200 ;
            HEIGHT 400 ;
            VALUE 15 ;
            BACKCOLOR {255,255,200} ;
            FONTCOLOR {255,0,0} ;
            LINECOLOR {255,0,0} ;
            INDENT 20 ;            
            ITEMHEIGHT 20  


            NODE 'Testes'
           
                FOR i = 1 TO tLEN
               
                TREEITEM  aTree[i]
                   
                NEXT
               
            END NODE


        END TREE


END WINDOW
B2.center
B2.activate