Системы автоматизированного конструирования. Толстоба Н.Д. - 46 стр.

UptoLike

Составители:

Рубрика:

Программа

(defun dd_list ( / ret_value1 dcl_id what_next on_list1 on_list2)

; функция, вызываемая по OK

(defun ok_tab ( / ); формирование списка данных на выход

(setq ret_value1 (list (list "list1" on_list1) (list "list2" on_list2)))

)

; загрузка диалога

(setq on_list1 0 on_list2 0)

(setq dcl_id (load_dialog "ot_tab.dcl"))

; инициализация диалога

(if (not (new_dialog "dd_list" dcl_id))

; Exit if this doesn't work

(exit)

)

(setq what_next 8)

(while (< 2 what_next)

(action_tile "lst1" "(setq on_list1 $value)")

(action_tile "lst2" "(setq on_list2 $value)")

(action_tile "accept" "(done_dialog 1) (ok_tab)")

(setq what_next (start_dialog))

)

(unload_dialog dcl_id) ; Unload the DCL file

(setq relst ret_value1)

)

Рассмотренные в этой главе основные примеры должны помочь при обработке

создаваемых Вами диалогов.