ん〜､考えてみましたが引数の型に応じてメソッドを切り替えるには
action: anObject
(anObject class = Food) ifTrue: [self eat: anObject].
(anObject class = Drink) ifTrue: [self drink: anObject].
の様にやれば良いのかな?

しかし､Foodから派生した全てのクラス(例えばApple､Banana)に対してもeat:を呼ぶには、どうしたら良いんだろう??