Automatic generation produced by ISE Eiffel

Classes
Clusters
Cluster hierarchy
Chart
Relations
Text
Go to: 
indexing
	description: "Girls"
	status: ""
	author: "Robert Jurjevic"

class 
	GIRL

inherit
	SKIER
		redefine
			roommate,
			share
		end


create 
	default_create

feature 

	sex: STRING_8 is "female"
			-- Sex

	roommate: GIRL
			-- Girl's roommate

	share (other: GIRL)
			-- Choose other as roommate
		require else
			other /= Void
		do
			roommate := other
			io.putstring ("I am a ")
			io.putstring (sex)
			io.putstring (" and my roommate is a ")
			io.putstring (roommate.sex)
			if sex /= roommate.sex then
				io.putstring (" :-)")
			else
				io.putstring (" :-(")
			end
		end
	
end -- class GIRL


Classes
Clusters
Cluster hierarchy
Chart
Relations
Text
Go to: 

-- Generated by ISE Eiffel --
For more details: www.eiffel.com