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

Contents of /FreeELKS/trunk/library/structures/cursors/recursive_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, 3 months ago) by manus_eiffel
File size: 1911 byte(s)
Initial revision

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

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23