by Friedrich Dominicus <just-for-news-frido@[EMAIL PROTECTED]
Oct 18, 2007 at 03:01 PM
sometthing along this lines will work:
indexing
description: "Objects that ..."
author: ""
date: "$Date$"
revision: "$Revision$"
class MY_TREE
inherit BINARY_SEARCH_TREE[INTEGER]
rename
make as bst_make
redefine
node_action
end
creation
make
feature {ANY}
make(v: INTEGER) is
--
do
bst_make(v);
end
feature
node_action(some_int: INTEGER) is
--
do
io.put_integer(some_int);
io.put_character(' ');
end
end
used like this:
class
APPLICATION
create
make
feature -- Initialization
make is
-- Creation procedure.
local
a_tree: MY_TREE;
do
create a_tree.make(100);
a_tree.put(299);
a_tree.put(123);
a_tree.put(1);
a_tree.i_infix;
end
end -- class APPLICATION
Output:
1 100 123 299
Which seems to be ok ;)
Regards
Friedrich
--
Please remove just-for-news- to reply via e-mail.