[求助]：对话框的嵌套

laimaomao

小弟想实现对话框的嵌套，可在最上层的对话框中点确定，想实现只关闭最上层的对话框，怎么也实现不了，总是一点就把全部的对话框都关了。
请帮帮小弟！
先行道谢了。

wkai

(setq        index_value
         (load_dialog "main.dcl")
        flag 4
  )
  (while (> flag 3)
    (progn
      (action_tile "ab" "(done_dialog 10)")
      (setq flag (start_dialog))
      (cond
        ((= flag 10) (load-about-dialog))
      )
    )
  )

(defun load-about-dialog()
  ...
  )

laimaomao

"(done_dialog 10)"其中“10”应该是一个返回值吧？
但他的用法，我实在是没有看懂。说是由程序确定〉1的值，那么这个值是不是编程者赋予的？
代表的是(load_dialog "****.dcl")的编号呢？
请指教。

wkai

(action_tile "ab" "(done_dialog 10)")
表示 按了 按钮"ab" 调用 (done_dialog 10)
(done_dialog 10)
表示 结束对话框 并且将 10（自定的 大于3 即可 while (> flag 3)） 作为返回值 赋给 flag

laimaomao

那是不是可以这样理解：在调用对话框的时候，给定一个flag值，（done_dialog）后，再给flag赋值，这样只是影响当前对话框的属性。
如果像下面这样给当前对话框的"button_close"定义"(done_dialog)"，应想到的是所有的对话框？
(defun dialog_2 ()
  (new_dialog "dialog_2" dcl_id)
  (action_tile "button_close" "(done_dialog)")
  (start_dialog)
)