EiffelBase class
(HTML page generated by ISE Eiffel 4.2)
Eiffel Class
indexing
description: "Cursors for compact trees";
status: "See notice at end of class";
names: compact_tree_cursor, cursor;
date: "$Date: 2007-03-30 11:10:11 -0800 (Fri, 30 Mar 2007) $";
revision: "$Revision: 95354 $"
class COMPACT_TREE_CURSOR
inherit
CURSOR
creation
make
feature {COMPACT_CURSOR_TREE} -- Initialization
make (i: INTEGER; aft, bef, bel, abv: BOOLEAN) is
-- Create a cursor and set it up on i.
do
active := i;
after := aft;
below := bel;
before := bef;
above := abv
end;
feature {COMPACT_CURSOR_TREE} -- Access
active: INTEGER;
-- Index of current item
feature {COMPACT_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?
above: BOOLEAN;
-- Is there no valid cursor position above cursor?
end -- class COMPACT_TREE_CURSOR
|
