/[eiffelstudio]/FreeELKS/trunk/library/structures/cursors/compact_tree_cursor.e
ViewVC logotype

Contents of /FreeELKS/trunk/library/structures/cursors/compact_tree_cursor.e

Parent Directory Parent Directory | Revision Log Revision Log


Revision 91477 - (show annotations)
Sun Jan 14 09:47:13 2007 UTC (13 years ago) by ericb
File size: 1400 byte(s)
Synchronized with ISE 6.0.65740
1 indexing
2
3 description:
4 "Cursors for compact trees"
5 legal: "See notice at end of class."
6
7 status: "See notice at end of class."
8 names: compact_tree_cursor, cursor;
9 date: "$Date$"
10 revision: "$Revision$"
11
12 class COMPACT_TREE_CURSOR inherit
13
14 CURSOR
15
16 create
17
18 make
19
20 feature {NONE} -- Initialization
21
22 make (i: INTEGER; aft, bef, bel, abv: BOOLEAN) is
23 -- Create a cursor and set it up on `i'.
24 do
25 active := i
26 after := aft
27 below := bel
28 before := bef
29 above := abv
30 end
31
32 feature {COMPACT_CURSOR_TREE} -- Access
33
34 active: INTEGER
35 -- Index of current item
36
37 feature {COMPACT_CURSOR_TREE} -- Status report
38
39 after: BOOLEAN
40 -- Is there no valid cursor position to the right of cursor?
41
42 before: BOOLEAN
43 -- Is there no valid cursor position to the left of cursor?
44
45 below: BOOLEAN
46 -- Is there no valid cursor position below cursor?
47
48 above: BOOLEAN;
49 -- Is there no valid cursor position above cursor?
50
51 indexing
52 library: "EiffelBase: Library of reusable components for Eiffel."
53 copyright: "Copyright (c) 1984-2006, Eiffel Software and others"
54 license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
55 source: "[
56 Eiffel Software
57 356 Storke Road, Goleta, CA 93117 USA
58 Telephone 805-685-1006, Fax 805-685-6869
59 Website http://www.eiffel.com
60 Customer support http://support.eiffel.com
61 ]"
62
63
64
65
66
67
68
69 end -- class COMPACT_TREE_CURSOR
70
71
72

Properties

Name Value
svn:eol-style native
svn:keywords Author Date Id Revision

  ViewVC Help
Powered by ViewVC 1.1.23