|
|
|
|
|
|
|
The names in the application occasionally depart from the no-abbreviations convention of Smalltalk, because, as explained in Segment 197, names must fit into programs that fit into the dimensions of the page.
THE FOODS
Food class definition Object subclass: #Food instanceVariableNames: 'name fCalories cCalories pCalories' classVariableNames: '' poolDictionaries: '' Food method definition • instance name ^ name. Food method definition • instance name: aString name := aString. Food method definition • instance fCalories ^ fCalories Food method definition • instance fCalories: aNumber fCalories := aNumber Food method definition • instance cCalories ^ cCalories Food method definition • instance cCalories: aNumber cCalories := aNumber Food method definition • instance pCalories ^ pCalories Food method definition • instance pCalories: aNumber pCalories := aNumber Food method definition • instance tCalories ^fCalories + cCalories + pCalories