Определение 16.60. Команда ppdefmessage-handler

(ppdefmessage-handler < имя-класса> < имя-обработчика> [< тип-обработчика> ])

< тип-обработчика>:: = around | before │ primary │ after

Параметры < имя-класса> и < имя-обработчика> используются для указания конкретного обработчика, определение которого необходимо вывести. Не­обязательный параметр < тип-обработчика> определяет тип выводимого обработчика сообщения. По умолчанию этот параметр принимает значение primary.

Команда list-defmessage-handiers предназначена для отображения в диало­говом окне списка имен обработчиков сообщений. Без указания необяза­тельного параметра < имя-класса> команда выведет на экран список обработ­чиков сообщений всех классов, присутствующих в системе. В случае если задан конкретный класс, будут выведены только его обработчики сообще­ний. Если при этом будет указан необязательный параметр inherit, выве­дутся также все унаследованные обработчики сообщений указанного класса.

Определение 16.61. Команда list-defmessage-handlers

(list-defmessage-handlers [< имя-класса> [inherit]])

Пример 16.7. Использование команды list-defmessage-handlers

(defclass A (is-a USER))

(defmessage-handler A foo ())

(list-defmessage-handlers A)

(list-defmessage-handlers A inherit)

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

Рис. 16.6. Использование команды list-defmessage-handlers

Для удаления обработчиков сообщений предназначена команда undefmes-sage-handler.