Кирютенко Ю.А., Савельев В.А. Объектно-ориентированное программирование. Язык Smalltalk

Подождите немного. Документ загружается.

300 Глава 18. Интерфейс для FinancialBook

В соответствии с эскизом (см. рис. 18.1) и заявленной в таблицах 18.1 и

18.3 функциональностью предварительная реализация основного окна за-

вершена. Ост ается его протестировать и убедиться, что все работает.

18.2.2. Реализация вторичного окна

В новом диалоговом окне размером 300×370 разместим по одному ви-

джету ListPane и EntryField, два виджета StaticText, которые будут метками

двух первых виджетов, и три виджета типа Button так, как это показано на

рис. 18.2. Выровняем в окне их расположение и размеры, установим для

каждого виджета свойства, определяющие его внешний вид в соответствии

со следующей таблицей.

Таблица 18.4. Свойства вторичного окна приложения

Виджет Текст Стиль Имя

aWindow Книга учета dialogWindow

StaticText1 Список ключей: leftJustified titleList

StaticText2 Сумма: leftJustified

EntryField readonly amount

Button1 Добавить pushButton add

Button2 Сохранить pushButton ok

Button2 Отменить pushButton cancel

Установим следующий порядок прохождения кнопок окна: Добавить →

Сохранить → Отменить. Теперь следует задать обработчики событий ви-

джетов, перечисленные в табл. 18.2. Затем откроем окно просмотра иерар-

хии классов и в появившемся диалоговом окне введем для этого класса

имя DlgFinancialBook. В текстовой панели окна просмотра иерархии клас-

сов добавим в определение класса DlgFinancialBook четыре переменные эк-

земпляра: dictionary, selectedItem, sum, type и сохраним изменения:

WindowDialog subclass: #DlgFinancialBook

instanceVariableNames: ’ dictionary selectedItem type sum ’

classVariableNames: ’ ’

poolDictionaries: ’ColorConstants WBConstants ’

Сначала определим метод класса, создающий новый экземпляр для сло-

варя (модели окна), указанного первым аргументом, и операции, указанной

вторым аргументом. По смыслу приложения параметр aString может при-

нимать всего два значения: ’incomes’ и ’expenditures’. Этот аргумент нами

используется для корректного представления заголовка вторичного окна и

метки его списковой панели.

18.2. Реализация приложения 301

newOn: aDictionary forOperation: aString

"Создает новый экземпляр класса cо словарем aDictionary

в каче стве модели, который используется для выполнения

операции, определяемой строкой aString."

^ super new setDictionary: aDictionary forOperation: aString.

Напишем еще один метод класса, создающий экземпляр с аргументами

по умолчанию. Он может оказаться полезным при тестировании вторичного

окна из среды инструмента WBP.

new

^ self newOn: (Dictionary new) forOperation: ’incomes’.

Первыми среди методов экземпляра реализуем метод инициализации

переменных экземпляра setDictionary:forOperation: и необходимые далее

методы доступа к переменным dictionary и sum.

setDictionary: aDictionary forOperation: aString

"Инициализирует переменные получателя."

dictionary := aDictionary.

sum := 0.

type := aString.

dictionary

"Возвращает значение переменной dictionary."

^ dictionary.

dictionary: aDictionary

"Устанавливает значение переменной dictionary."

dictionary := aDictionary.

sum

"Возвращает значение переменной sum."

^ sum.

sum: aNumber

"Устанавливает значение переменной sum."

sum := aNumber.

Теперь реализуем обработчики событий виджетов вторичного окна.

Обработчики события #activate

Метод экземпляра titleWindow: нужен для того, чтобы, в зависимости от

выполняемой в окне операции над моделью, определить заголовок самого

вторичного окна и метку (виджет StaticText1 c именем ’titleList’) содержа-

щегося в окне списка.

302 Глава 18. Интерфейс для FinancialBook

titleWindow: aPane

"Определяет заголовок вторичного окна

и метку содержащегося в окне списка."

type = ’incomes’

ifTrue: [aPane labelWithoutPrefix: ’Страница доходов’.

(self paneNamed: ’titleList’) contents: ’Источники доходов:’].

type = ’expenditures’

ifTrue: [aPane labelWithoutPrefix: ’Страница расходов’.

(self paneNamed: ’titleList’) contents: ’Причины расходов:’].

Рассмотрим выражение (self paneNamed: ’titleList’) contents: . . . Когда

в WBP создавалось окно, некоторые его панели получили имена (их мы

вводили в поле ввода окна WBP с меткой Name:). Теперь к панели мож-

но обращаться по имени, пользуясь сообщением paneNamed:, посылаемым

владельцу панели. В этом выражении определяется текст, который отобра-

жается виджетом с именем ’titleList’.

Обработчики события #getContents

getList: aPane

"Обработчик события #getContents панели ListPane с

именем ’listItem’. Отображает в панели ключи словаря."

aPane contents: dictionary keys asSortedCollection.

getAmount: aPane

"Обработчик события #getContents поля EntryField c именем

’amount’. Отображает в поле значение выбранного ключа."

selectedItem isNil

ifFalse: [aPane contents: (dictionary at: selectedItem) printString].

Обработчик события #select списковой панели

itemSelected: aPane

"Обработчик события #select панели ListPane. Запоминет

выбор пользователя и изменяет значение, отображающееся

в поле ввода с именем ’amount’."

selectedItem := aPane selectedItem.

self changed: #getAmount:.

Обработчики событий #clicked

addAmount: aPane

"Обработчик события #clicked кнопки Добавить. Запрашивает

добавляемую сумму, затем изменяет модель и отображает новое

значение суммы, соответствующее выбранному ключу."

18.2. Реализация приложения 303

| amount addAmount |

selectedItem isNil ifTrue: [^ self].

amount := dictionary at: selectedItem.

addAmount := Prompter prompt: ’Введите добавляемую сумму:’

defaultExpression: String new.

(addAmount isNil or: [addAmount isNumber not])

ifTrue: [^ self].

dictionary at: selectedItem

put: (amount + (addAmount roundTo: 0.01)).

sum := sum + addAmount.

self changed: #getAmount:.

ok: aPane

"Обработчик события #clicked кнопки Сохранить.

Не меняет созданной модели. Закрывает окно."

self close.

cancel: aPane

"Обработчик события #clicked кнопки Отменить.

Создает недопустимую модель (nil). Закрывает окно."

dictionary := nil.

self close.

Напомним, что выражение Prompter prompt: aString defaultExpression:

defaultString по нажатию кнопки OK возвращает объект, являющийся ре-

зультатом вычисления ввода пользователя. Введенная пользователем инфор-

мация должна возвращаться приложению методом addAmount: как число.

Построение меню списковой панели

Осталось встроить в списковую панель меню с единственной опцией

и определить для нее метод экземпляра. Закроем окно просмотра иерар-

хии классов и вернемся в окно WBP с вторичным окном. Чтобы построить

меню списковой панели ListPane, выделим ее и вызовем редактор меню.

Напомним, что редактор меню можно вызвать, пользуясь пунктом Menubar

из всплывающего меню рабочей области окна WBP.

В левом верхнем поле ввода напечатаем имя пункта Новая запись, а

в правом верхнем поле ввода с меткой Selector: — имя метода экземпля-

ра addNewRecord, который будет выполняться при выборе пользователем

данного пункта всплывающего меню списковой панели. Закро ем редактор

меню, нажимая OK. Меню создано.

Снова откроем окно просмотра иерархии классов на классе DlgFinanci-

alBook и определим метод экземпляра:

304 Глава 18. Интерфейс для FinancialBook

addNewRecord

"Пользователь выбрал пункт меню Новая запись. Метод

запрашивает у пользователя новый ключ, сохраняет его в

модели, отображает новую модель в окне."

| key |

key := Prompter prompt: ’Введите ключ новой записи:’

default: String new.

(key isNil or: [dictionary includesKey: key]) ifTrue: [^ self].

selectedItem := key.

dictionary at: key put: 0.

self changed: #getList:;

changed: #getList: with: #selection: with: key;

changed: #getAmount:.

Построение вторичного окна завершено. Протестируйте его. Сохраните

образ системы, a если необходимо, сохраните все созданные классы в виде

отдельных файлов (пользуясь пунктом File Оut. . . из меню Classes).

18.2.3. Окончательная реа лизация основного окна

После построения вторичного окна можно завершить реализацию ос-

новного окна, заменяя методы-заглушки openIncomes: и openExpenditures:

полнофункциональными методами. В этих методах открывается вторичное

окно, в котором происходит ввод новой информации в соответствующий

словарь. Когда вторичное окно закрывается, проверяется, какой словарь

хранится в нем. Если это nil (пользователь нажал во вторичном окне кнопку

Отменить), ничего не происходит. В противном случае производятся соот-

ветствующие изменения в модели предметной области первичного окна.

Здесь нам потребуются методы доступа ко всем переменным экземпляра

FinancialBook, которые читатель должен был создать самостоятельно.

openIncomes: aPane

"Обработчик события clicked кнопки Доходы. Открыть

вторичное окно для страницы доходов. После закрытия

изменить, если надо, значение переменной financialBook."

| dic sum answer |

answer := (DlgFinancialBook newOn: (financialBook incomes)

forOperation: ’incomes’) open.

dic := answer dictionary.

dic isNil ifFalse: [sum := answer sum.

financialBook incomes: dic.

financialBook totalIncome:

18.3. Как организовать работу приложения 305

(financialBook totalIncome + sum)].

self changed: #totalIncome:;

changed: #cashOnHand:.

openExpenditures: aPane

"Обработчик события clicked кнопки Расходы. Открыть

вторичное окно для страницы доходов. После закрытия

изменить, если надо, значение переменной financialBook."

| dic sum answer |

answer := (DlgFinancialBook

newOn: (financialBook expenditures)

forOperation: ’expenditures’) open.

dic := answer dictionary.

dic isNil ifFalse: [sum := answer sum.

financialBook expenditures: dic.

financialBook totalExpenditure:

(financialBook totalExpenditure + sum)].

self changed: #totalExpenditure:;

changed: #cashOnHand:.

18.3. Как организовать работу приложения

Созданный нами интерфейс имеет недостаток: он не сохраняет свою

модель в случае закрытия окна. Рассмотрим один из вариантов исправле-

ния этой ситуации. Когда создавался класс FinancialBook, мы определили

глобальную переменную FamilyFinancialBook1999, в которой решили хра-

нить собственную книгу по учету доходов и расходов, и поместили ее в

системный словарь Smalltalk. После создания интерфейса нам бы хотелось

иметь возможность открывать интерфейс на этой книге и в ней сохранять

новую информацию. Напишем в классе WBPFinancialBook еще один метод

класса, решающий поставленную задачу.

openOnMyFamilyBook

"Открывает приложение на глобальной

переменной FamilyFinancialBook1999."

| book |

book := super new

financialBook: FamilyFinancialBook1999.

book open.

^ book

306 Приложения. Мир языка Смолток

Теперь для работы с финансовой книгой достаточно выполнить выра-

жение WBPFinancialBook openOnMyFamilyBook, а, выходя из системы, со-

хранить образ. Можно найти и другие способы сохранения приложением

своей новой модели, например, в файле.

В заключение отметим, что в книге мы рассмотрели далеко не все воз-

можности смолтоковских систем и их инструментов (в том числе Smalltalk

Express и WBP), не все базовые классы. Но мы надеемся, что у вас теперь

есть достаточный опыт работы со смолтоковской системой, чтобы самосто-

ятельно решать те проблемы, которые возникнут перед вами при создании

собственных приложений.

18.4. Задания для самостоятельной работы

1. В классе WBPFinancialBook напишите метод класса openOn: aFinancial-

Book, который открывал бы новый экземпляр приложения с объектом aFi-

nancialBook в качестве модели.

2. Создайте необходимые методы в классе WBPFinancialBook и измените

существующие так, чтобы при запуске приложение запрашивало пользо-

вателя о том, из какого файла взять модель приложения, а при закрытии

основного окна приложения — о том, в каком файле сохранить модель при-

ложения. Для этого самостоятельно изучите классы File и ObjectFiler.

3. Если были выполнены задания для самостоятельной работы, приведен-

ные в конце гл. 12, и создан класс FinancialBook, учитывающий даты полу-

чения конкретных доходов и расходов по каждой статье (ключу словаря),

измените приложение WBPFinancialBook так, чтобы вторичное окно мог-

ло проинформировать пользователя о всех суммах и датах, относящихся к

выбранному ключу.

ПРИЛОЖЕНИЕ

МИР ЯЗЫКА СМОЛТОК

Воздержанность в еде рождена или

заботой о здоровье, или невозможно-

стью много съесть.

Франсуа де Ларошфуко

1. Коммерческие реализации

Коммерческие реализации сегодня определяют основное направление

развития языка Смолток и построенных на его основе систем. Опис ать

их все сложно, поскольку о некоторых системах трудно получить досто-

верную информацию. Однако основные характеристики систем, оказавших

наибольшее влияние на развитие Смолтока, мы приведем, наряду с инфор-

мацией о некоторых новых реализациях Смолтока.

Из-за недостатка места мы опустили здесь многие известные смолто-

коподобные системы, такие как ObjectStudio или Smalltalk/MT, поскольку,

хотя они используют «почти» Смолток, их язык и библиотеки слишком

сильно отличаются как от Smalltalk-80, так и от стандарта языка.

1.1. Smalltalk-80

Система Smalltalk-80 появилась на рынке программ в 1983 году. Так как

образ системы имел машинонезависимый формат, она могла быть реализо-

вана на любой платформе, удовлетворяющей следующим требованиям [4]:

• монохромный растровый дисплей;

• указывающее устройство (мышь) с тремя кнопками;

• клавиатура, возвращающая коды ASCII, или клавиатура ALTO;

• жесткий диск;

• миллисекундный таймер;

• часы реального времени с разрешением в одну секунду.

На выбранной платформе должна реализовываться только виртуальная

машина Smalltalk-80. Первоначально она существовала для рабочих стан-

ций Xerox и машин фирм, участвовавших в рецензировании. Хотя цена на

систему Smalltalk-80 и ее требования к аппаратным средствам не позволили

ей получить широкого распространения, она сразу же нашла применение в

308 Приложения. Мир языка Смолток

создании крупных систем, требовавших графического интерфейса пользо-

вателя и возможностей по сложной обработке данных различной приро-

ды. Система постоянно развивалась. Большой вклад в этот процесс внесла

лаборатория искусственного интеллекта Фэйрчальда, где была усовершен-

ствована виртуальная машина для процессоров Motorola 680x0.

Выделение из корпорации Xerox фирмы ParcPlace привело к более эф-

фективному распространению системы. Стал шире набор техники, для ко-

торой существовала виртуальная машина. Фирмы, участвовавшие в тести-

ровании и рецензировании, тоже не остались в стороне от совершенство-

вания системы. Так, фирма Textronix, выпускавшая графические рабочие

станции и цветные принтеры, добавила в Smalltalk-80 поддержку цвета.

Фирма Apple Computers, компьютеры которой с первых моделей отлича-

лись хорошей графикой и звуком, стала развивать звуковые возможности

системы. Несколько членов группы по проблемам обучения, принимавших

активное участие в создании Смолтока, перешли в Apple, где занялись ра-

ботами над пользовательским интерфейсом. Эти усилия завершились созда-

нием графических пользовательских интерфейсов машин Lisa и Macintosh.

В Apple была создана система Fabrik [9] — одна из первых систем визуаль-

ного программирования, работавшая в среде Smalltalk-80.

1.2. VisualWorks

Убеждение, что смолтоковские системы должны сосуществовать на ком-

пьютерах с другими приложениями и выполняться под управлением уста-

новленного на графической станции менеджера окон, потребовало суще-

ственной переработки Smalltalk-80. Эта переработка началась с выпущен-

ной в 1989 году системы ObjectWorks и успешно завершилась в 1991 го-

ду выпуском системы VisualWorks. Серия продуктов VisualWorks обладает

большими возможностями, и после слияния ParcPlace и Digitalk стала од-

ним из основных продуктов объединенной компании ObjectShare.

Долгое время версия VisualWorks 2.x была одной из самых распростра-

ненных в мире смолтоковских систем. Ее библиотека классов во сходит к

библиотеке Smalltalk-80 и удивительно стабильна. В последующей версии

VisualWorks 3.0 фактически сохранились без изменений все классы систе-

мы, не относящиеся к виджетам или графике, в то время как библиотека

классов пользовательского интерфейса была существенно изменена. Ин-

струменты VisualWorks, связанные с разработкой приложений баз данных,

поддержкой жизненного цикла программы, и прочие утилиты не уступают

инструментам системы IBM VisualAge. Но в ней нет таких мощных средств

визуального программирования как в системе VisualAge for Smalltalk.

Коммерческие реализации 309

Система VisualWorks 3.0 — расширяемый комплекс приложений [23],

состоящий из ядра среды (собственно VisualWorks) и множества подключа-

емых дополнений:

VisualWave Developer. Средство разработки интерактивных web-при-

ложений, поддерживающих CGI, NS API, IS API и взаимодействующих че-

рез сеть c аплетами. Поддерживает фреймы и JavaScript.

VisualWave Server. Объектно-ориентированный web-сервер приложе-

ний. Может работать совместно практически со всеми распространенными

http-серверами, включая Apache.

Distributed Smalltalk. Обеспечивает классы и средства разработки для

создания распределенных приложений.

DLL & C Connect. Обеспечивает доступ из VisualWorks к функциям

разделяемых библиотек и создание новых примитивов.

Advanced Tools. Содержит набор полезных утилит, включающий про-

файлеры, документаторы, новые браузеры с расширенной функционально-

стью, верификаторы кода, генератор лексических анализаторов и среду для

создания расширенных числовых классов, поддерживающую системы чи-

сел, не обладающие линейной упорядоченностью (например, комплексные

или пополненные бесконечностью).

Database Connect. Обеспечивает интерфейсы к СУБД IBM DB2, Orac-

le, Informix и Sybase. Эти интерфейсы включают поддержку схем баз дан-

ных и нестандартных свойств, обеспечивающих повышение эффективно-

сти доступа к данным. Сюда же включено дополнение Database Application

Creator — визуальная среда создания БД и отображения БД на объекты,

построения GUI для приложений баз данных. В архивах общедоступного

кода есть пакеты, обеспечивающие доступ к базам данных через ODBC,

интерфейс к СУБД MySQL и непосредственную работу с файлами dBase.

COM Connect. Поддерживает работу с OLE-приложениями.

Фирма ObjectShare на основе VisualWorks 3.0 создала некоммерческую

версию системы. Эта полнофункциональная система, которая отличается

от обычной только тем, что при старте выводит окно с текстом лицензии, в

котором указано, что данная версия не может использоваться для создания

коммерческих приложений, а только для ознакомления и обучения. Кроме

того, в нее не включена часть пакетов, в частности те, которые постав-

ляются на условиях сублицензирования. В остальном (и, прежде всего, в

формате образа) система полностью совместима с коммерче ской версией.

Некоммерческая версия распространялась с виртуальными машинами для