5.4.1. Реализация классов

Определение класса Window на языке Eiffel мало отличается от соответствующего определения на языке C++ (сравните с п. 5.3.1):

	class WINDOW
	export
	  add_box, add_circle, clear_selections, cut_selections,
	  group_selections, move_selections,
	  redraw_all, select_item, ungroup_selections
	feature
	  xmin, ymin, xmax, ymax: REAL;
	  Create (x0, y0, width, height: REAL) is body end;
	  add_box (x, y, width, height: REAL) is body end;
	  add_circle (x, y, radius: REAL) is body end;
	  add_to_selections (ashape: SHAPE) is body end;
	  clear_selections is body end;
	  cut_selections is body end;
	  group_selections: Group is body end;
	  move_selections (deltax, deltay: REAL) is body end;
	  redraw_all is body end;
	  select_item (x, y: REAL) is body end;
	  ungroup_selections is body end;
	end -- class WINDOW

Все свойства (feature) класса (соответствуют членам класса в языке C++) считаются приватными, если только они не объявлены явно как общедоступные: все общедоступные свойства перечисляются в разделе export. Свойство Create (аналог конструктора класса в языке C++) всегда является общедоступным. Остальные особенности синтаксиса понятны и без пояснений.

Язык Smalltalk является языком интерпретируемого типа: программа в системе Smalltalk не компилируется, а переводится в интерпретируемое специальным интерпретатором внутреннее представление. Это позволило сделать систему Smalltalk интерактивной: программист имеет доступ к программе (может, например, изменять ее) во время ее интерпретации, что очень удобно при разработке и отладке программы, но, как известно, уменьшает ее эффективность, так как интерпретация программы сопряжена с дополнительными накладными расходами.

Определение класса Window на языке Smalltalk имеет следующий вид:

	class name            Window
	superclass            Object
	instance variables    xmin, ymin, xmax, ymax: REAL
	class methods
	  instantiating
	  createAt aPoint ofWidth: width ofHeigt: heigt
	instance methods
	  adding shapes
	  addboxAt aPoint ofWidth: width ofHeigt: heigt
	  addCircleAt aPoint ofRadius: radius
	 
	  refreshing window
	  redrawAll
	 
	  manipulating selections
	  clearSelections
	  cutSelections
	  groupSelections
	  moveSelectionsBy: deltaPoint
	  selectItemAt: aPoint
	  ungroupSelections
	 
	  private
	  addToSelections: aShape

Все классы языка Smalltalk являются подклассами системного класса Object, что позволяет использовать принадлежащие им по наследованию системные операции системы Smalltalk, определенные в классе Object. Строки в описании класса, выделенные курсивом, определяют категории методов. Они служат только для структурирования набора методов. Методы, включенные в категорию private, являются приватными и не доступны извне класса. Чтобы сделать атрибуты приватными, следует не определять методы для запроса и установки значений атрибутов. В системе Smalltalk определен системный метод @, который объединяет пару числовых значений в одно составное значение. Это позволило вместо двух переменных x и y (координат точки) использовать в нашем примере одну переменную aPoint, представляющую обе координаты точки(x,y). Операция присваивания значения (3,4) переменной aPoint с использованием метода @ имеет вид:

	aPoint <- 3 @ 4