/[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 91424 - (hide annotations)
Tue Oct 26 18:39:32 2004 UTC (15 years, 4 months ago) by manus_eiffel
File size: 1814 byte(s)
Initial revision

1 manus_eiffel 91424 indexing
2    
3     description:
4     "Cursors for compact trees"
5    
6     status: "See notice at end of class"
7     names: compact_tree_cursor, cursor;
8     date: "$Date$"
9     revision: "$Revision$"
10    
11     class COMPACT_TREE_CURSOR inherit
12    
13     CURSOR
14    
15     create
16    
17     make
18    
19     feature {NONE} -- Initialization
20    
21     make (i: INTEGER; aft, bef, bel, abv: BOOLEAN) is
22     -- Create a cursor and set it up on `i'.
23     do
24     active := i
25     after := aft
26     below := bel
27     before := bef
28     above := abv
29     end
30    
31     feature {COMPACT_CURSOR_TREE} -- Access
32    
33     active: INTEGER
34     -- Index of current item
35    
36     feature {COMPACT_CURSOR_TREE} -- Status report
37    
38     after: BOOLEAN
39     -- Is there no valid cursor position to the right of cursor?
40    
41     before: BOOLEAN
42     -- Is there no valid cursor position to the left of cursor?
43    
44     below: BOOLEAN
45     -- Is there no valid cursor position below cursor?
46    
47     above: BOOLEAN;
48     -- Is there no valid cursor position above cursor?
49    
50     indexing
51    
52     library: "[
53     EiffelBase: Library of reusable components for Eiffel.
54     ]"
55    
56     status: "[
57     Copyright 1986-2001 Interactive Software Engineering (ISE).
58     For ISE customers the original versions are an ISE product
59     covered by the ISE Eiffel license and support agreements.
60     ]"
61    
62     license: "[
63     EiffelBase may now be used by anyone as FREE SOFTWARE to
64     develop any product, public-domain or commercial, without
65     payment to ISE, under the terms of the ISE Free Eiffel Library
66     License (IFELL) at http://eiffel.com/products/base/license.html.
67     ]"
68    
69     source: "[
70     Interactive Software Engineering Inc.
71     ISE Building
72     360 Storke Road, Goleta, CA 93117 USA
73     Telephone 805-685-1006, Fax 805-685-6869
74     Electronic mail <info@eiffel.com>
75     Customer support http://support.eiffel.com
76     ]"
77    
78     info: "[
79     For latest info see award-winning pages: http://eiffel.com
80     ]"
81    
82     end -- class COMPACT_TREE_CURSOR
83    
84    
85    

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23