/[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 91424 - (show 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 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