Selectionner un noeud d'un arbre

Le but du code est de sélectionner les nœud d'un arbre qui comporte la même donnée. Le parcours débute de la racine en passant par tous les nœuds et feuilles .
Après avoir organisé l'arbre, ajoutez un composant d’édition nommé :NODE et un bouton sur lequel on crée un trigger qui comporte le code comme suite:
@@@@@@@@@@@@@@
Declare

htree ITEM;
Node_LBL Ftree.NODE;

NODE number:=0;
Begin
htree := FIND_ITEM('BL_TREE.MENU');
Node_LBL:=0;
loop
begin
Node_LBL := FTREE.FIND_TREE_NODE (htree,:NODE, FTREE.FIND_NEXT,Ftree.NODE_LABEL,Ftree.ROOT_NODE,NODE);
exception
when others then
exit;
end;
exit when Node_LBL=0 or :NODE is null;
NODE:=Node_LBL+1;
Ftree.Set_Tree_Selection(htree, Node_LBL,Ftree.SELECT_ON);
end loop;
end;