note
	description: "Interaction of two medications."
	author: "Jackie Wang"

class 
	INTERACTION

inherit
	ANY
		redefine
			is_equal
		end

create 
	make

feature -- Queries

	first: MEDICATION

	second: MEDICATION
	
feature -- Constructor

	make (fst, snd: MEDICATION)
			-- Initialize an interaction between 'fst' and 'snd'.
		do
			first := fst
			second := snd
		ensure
				first ~ fst
				second ~ snd
		end
	
feature -- Equality

	is_equal (other: like Current): BOOLEAN
			-- Are current interaction equal to 'other'?
		do
			if other /= Void then
				Result := (first ~ other.first and second ~ other.second)
			end
		end
	
end -- class INTERACTION

Generated by ISE EiffelStudio