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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 91477 - (hide annotations)
Sun Jan 14 09:47:13 2007 UTC (13 years, 1 month ago) by ericb
File size: 1400 byte(s)
Synchronized with ISE 6.0.65740
1 manus_eiffel 91424 indexing
2    
3     description:
4     "Cursors for compact trees"
5 ericb 91477 legal: "See notice at end of class."
6 manus_eiffel 91424
7 ericb 91477 status: "See notice at end of class."
8 manus_eiffel 91424 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 ericb 91477 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 manus_eiffel 91424
63    
64    
65    
66    
67    
68 ericb 91477
69 manus_eiffel 91424 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