Пример 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