indexing

	description: 
		"Command to display clients of `current_class'.";
	date: "$Date$";
	revision: "$Revision $"

class E_SHOW_CLIENTS

inherit

	E_CLASS_CMD

create

	make, do_nothing

feature -- Execution

	work is
			-- Execute Current command.
		local
			clients: SORTED_TWO_WAY_LIST [CLASS_I];
			a_client: CLASS_C;
		do
			structured_text.add_string ("Clients of class ");
			current_class.append_signature (structured_text, True);
			structured_text.add_string (":");
			structured_text.add_new_line;
			structured_text.add_new_line;
			from	
				clients := sorted_list (current_class.clients);
				clients.start;
			until
				clients.after
			loop
				a_client := clients.item.compiled_class;
				if (current_class /= a_client) then
					structured_text.add_indent;
					a_client.append_signature (structured_text, True);
					structured_text.add_new_line;
				end;
				clients.forth
			end
		end;

end -- class E_SHOW_CLIENTS