let draw_role_click_zone (name : string) : unit =
        let role_x = Hashtbl.find role_position name
        in
        let rec aux y_pos tag = 
                if(tag>0)
                then (  
                        if(in_zone y_pos)
                        then aux (y_pos+. !yDelta ) tag
                        else (
                                draw_click_zone role_x y_pos tag (name^"click_zone");
                                aux (y_pos+. !yDelta ) (tag - 1)
                        );
                );
        in
        let rec aux2 y_pos tag = 
                if(tag>0)
                then (  
                        if(in_zone y_pos)
                        then aux2 (y_pos+. !yDelta ) tag
                        else (
                                if (in_click_zone role_x y_pos) then draw_click_zone role_x y_pos tag (name^"click_zone");
                                aux2 (y_pos+. !yDelta ) (tag - 1)
                        );
                );
        in
        remove_graphics_obj_with_tag_value (name^"click_zone");
        if( (Hashtbl.find_all var_in_monitor name)<>[] )  then aux (!yOrd +. !yDelta) !tag_number
        else aux2 (!yOrd +. !yDelta) !tag_number