[IgorTr2]

Пытаюсь понять как делать диалоговые окна.
У Полищука есть пример:

test1: dialog {label="Пример";
:list_box{label="Список данных";key="b1";
list="Данное 1\nДанное 2\nДанное 3\nДанное 4";fixed_width_font=true;}
ok_button;
}// Конец

(defun show_test01 ( / dcl_id)
(if (< (setq dcl_id (load_dialog ".dcl")) 0)(exit))
(if (not (new_dialog "np_tpos" dcl_id)) (exit))
(setq dcl_id (load_dialog "D:/test1.DCL"))
(start_dialog)
(unload_dialog dcl_id)
(princ)
);defun show_tpos

При запуске лиспа ничего не происходит ...
Если через консоль, то
(setq dcl_id (load_dialog "D:/test1.DCL")) возвращает целое число.

После (start_dialog) ничего не происходит и никакого окна не появляется.
Может кто показать, как должно быть?

Через редактор VLisp файл test1.dcl просматривается как надо.

[===AAA===]

(if (< (setq dcl_id (load_dialog ".dcl")) 0)(exit))

А здесь какой файл загрузить пытаетесь?

[IgorTr2]

Очепятка.
Вот так:

(defun show_test01 ( / dcl_id)
;(if (< (setq dcl_id (load_dialog ".dcl")) 0)(exit))
;(if (not (new_dialog "np_tpos" dcl_id)) (exit))
(setq dcl_id (load_dialog "D:/test1.DCL"))
(start_dialog)
(unload_dialog dcl_id)
(princ)
);defun show_tpos

[===AAA===]

;(if (not (new_dialog "np_tpos" dcl_id)) (exit))

А теперь new_dialog закомментирован и определения "np_tpos"
я не наблюдаю... Чего выполняться-то будет?

[IgorTr2]

Сообщение от ===AAA=== А теперь new_dialog закомментирован и определения "np_tpos" я не наблюдаю... Чего выполняться-то будет?

Понял. Спасибо!