Oracle Forms Developer – Form Builder Reference, Volume 1

252
** Local function called recursively to close children at
** all levels of the hierarchy.
*/
PROCEDURE Close_Win_With_Children( parent_win VARCHAR2 ) IS
the_child VARCHAR2(40);
the_parent VARCHAR2(40);
BEGIN
FOR j IN 1..the_Rowcount LOOP
the_parent := Get_Group_Char_Cell(gc_parent,j);
/* If we find a matching parent in the table */
IF UPPER(the_parent) = UPPER(parent_win) THEN
the_child := Get_Group_Char_Cell(gc_child,j);
/*
** Close this child and any of its children
*/
Close_Win_With_Children( the_child );
END IF;
END LOOP;
/*
** Close the Parent
*/
Hide_Window( parent_win );
END;
BEGIN
/*
** Setup
*/
rg_id := Find_Group(’WINDOW_HIERARCHY’);
gc_parent := Find_Column(’WINDOW_HIERARCHY.PARENT_WINDOW’);
gc_child := Find_Column(’WINDOW_HIERARCHY.CHILD_WINDOW’);
the_Rowcount := Get_Group_Row_Count(rg_id);
/* Close all the child windows of ’wn_name’ */
Close_Win_With_Children( wn_name );
/* Navigate to the Destination Item supplied by the caller */
Go_Item( dest_item );
END;