indexing
	description: "translation of an element of list1 to list2";
	date: "$Date$";
	revision: "$Revision$"

class 
	ADD_CLUSTER_REVERSE

inherit
	CASE_COMMAND

create
	make

feature	-- Execution

	execute (a : ANY) is
			-- role : pass an element from one list to the other
			-- also : if the cluster has some sub-clusters, 
			-- deals with it thanks to loop_for_clusters ...
		local
			list: LINKED_LIST [SCROLLABLE_LIST_ELEMENT]
			item: SCROLLABLE_LIST_CLUSTERS
		do
			list ?= scroll1.selected_items
			if list /= Void then
				from
					list.start
				until
					list.after
				loop
					item ?= list.item
					check
						valid_item: item /= Void
					end
					scroll1.start
					scroll1.search (item)
					if not scroll1.exhausted then
							-- Item selected has been removed,
							-- because it was a subcluster of one of the
							-- last selected items.
						move (item)
					end
					list.forth
				end
			end 
		end

feature {NONE} -- Implementation

	loop_for_clusters (cl : ARRAYED_LIST [CLUSTER_I]) is
			-- Search the clusters to insert or to remove ...
		local
			e : SCROLLABLE_LIST_CLUSTERS
		do
			from 
				cl.start
			until
				cl.after
			loop
				if way then
					if scroll1.count > 0 then
						from 
							scroll1.start
						until
							scroll1.after or
							scroll1.count =0
							or scroll1.index > scroll1.count -- necessary : bug of vision ...
						loop
							--from list1 to list2
							if scroll1.item.value.is_equal(cl.item.cluster_name) then
								scroll1.remove
							end
							test_if_belong_to_scroll2(cl.item.cluster_name)
							scroll1.forth
						end
					end
				else 
						-- form list2 to list1
						create e.make (cl.item)
						scroll2.extend(e)
				end
				if cl.item.sub_clusters /= Void and then 
					cl.item.sub_clusters.count >0 then
						loop_for_clusters (cl.item.sub_clusters)
				end
				cl.forth
			end
		end
	
	test_if_belong_to_scroll2 (s : STRING) is
		local
			Resul : BOOLEAN
		do
			from 
				scroll2.start
			until
				scroll2.after
				or Resul= TRUE
			loop
				if scroll2.item.value.is_equal(s) then
					scroll2.remove 
					Resul := TRUE
				end	
				scroll2.forth
			end
		end

	move (item: SCROLLABLE_LIST_CLUSTERS) is
			-- role : pass an element from one list to the other
			-- also : if the cluster has some sub-clusters, 
			-- deals with it thanks to loop_for_clusters ...
		local
			cluster : CLUSTER_I
		do
			scroll2.extend(item)
			cluster := item.cluster 
			scroll1.start
			scroll1.search (item)
			scroll1.remove
			if cluster.sub_clusters /= Void  and then
				cluster.sub_clusters.count >0 then
				loop_for_clusters (cluster.sub_clusters)
			end
		end

end -- class ADD_CLUSTER_REVERSE