EiffelBase class
(HTML page generated by ISE Eiffel 4.2)
Eiffel Class
indexing
description: "Cursors for recursive trees";
status: "See notice at end of class";
names: recursive_tree_cursor, cursor;
contents: generic;
date: "$Date: 2007-03-30 19:10:11 +0000 (Fri, 30 Mar 2007) $";
revision: "$Revision: 95354 $"
class RECURSIVE_TREE_CURSOR [G]
inherit
CURSOR
creation {RECURSIVE_CURSOR_TREE}
make
feature {RECURSIVE_CURSOR_TREE} -- Initialization
make (active_node, parent_of_active: like active; aft, bef, bel: BOOLEAN) is
-- Create a cursor and set it up on active_node.
do
active := active_node;
active_parent := parent_of_active;
after := aft;
before := bef;
below := bel
end;
feature {RECURSIVE_CURSOR_TREE} -- Access
active: DYNAMIC_TREE [G];
-- Current node
active_parent: like active;
-- Parent of current node
feature {RECURSIVE_CURSOR_TREE} -- Status report
after: BOOLEAN;
-- Is there no valid cursor position to the right of cursor?
before: BOOLEAN;
-- Is there no valid cursor position to the left of cursor?
below: BOOLEAN;
-- Is there no valid cursor position below cursor?
end -- class RECURSIVE_TREE_CURSOR
|
