EiffelBase class
(HTML page generated by ISE Eiffel 4.2)
Eiffel Class
indexing
description: "Linkable cells containing a reference to their right neighbor";
status: "See notice at end of class";
names: linkable, cell;
representation: linked;
contents: generic;
date: "$Date: 2007-03-30 11:10:11 -0800 (Fri, 30 Mar 2007) $";
revision: "$Revision: 95354 $"
class LINKABLE [G]
inherit
CELL [G]
export
{CELL, CHAIN} put;
{ANY} item
end
feature -- Access
right: like Current;
-- Right neighbor
feature {CELL, CHAIN} -- Implementation
put_right (other: like Current) is
-- Put other to the right of current cell.
do
right := other
ensure
chained: right = other
end;
forget_right is
-- Remove right link.
do
right := void
ensure
not_chained: right = void
end;
end -- class LINKABLE
|
