Определение 16.62. Команда undefmessage-handler

(undefmessage-handler < имя-класса> < имя-обработчика> [< тип-обработчика> ])
< тип-обработчика>:: = around | before │ primary | after

Назначение аргументов данной команды аналогично назначению аргументов команды ppdefmessage-handler. В качестве любого аргумента может быть использован символ *.

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

Определение 16.63. Команда preview-send

(preview-send < имя-класса> < имя-сообщения>)

Пример 16.8. Использование команды preview-send

(defmessage-handler USER my-message around ()

(call-next-handler))

(defmessage-handler USER nay-message before ())

(defmessage-handler USER my-message ()

(call-next-handler))

(defmessage-handler USER my-message after ())

(defmessage-handler OBJECT my-message around ()

(call-next-handler))

(defmessage-handler OBJECT my-message before ())

(defmessage-handler OBJECT my-message ())

(defmessage-handler OBJECT my-message after ())

(preview-send USER my-message)

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

Команда ppdefinstances выводит в диалоговое окно системы определение заданного конструктора definstances.

Определение 16.64. Команда ppdefinstances

(ppdefinstances < имя-конструктора>)

Команда list-definstances предназначена для отображения в диалоговом окне списка имен всех определенных в системе конструкторов definstances.

Рис. 16.7. Использование команды preview-send