Составители:
Рубрика:
45
Программа
(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)
)
Рассмотренные в этой главе основные примеры должны помочь при обработке
создаваемых Вами диалогов.
Страницы
- « первая
- ‹ предыдущая
- …
- 44
- 45
- 46
- 47
- 48
- …
- следующая ›
- последняя »