[原创][转帖][原创][求助]請幫忙看看

deviliang

你好。

做了個子對話框，結果總不能達到想要的效果，

你能幫我看一下哪錯了嗎？

想通過子對話框選擇編輯框里的内容，

可是value始終等於1。

------------------------------

list1:dialog{
 :button{
  label="選択";
  key="elect";
 }
 :edit_box{
  label="記入";
  key="list_t1";
  edit_width=15;
 }
ok_cancel;
}

-----------------------

list2:dialog{
 :list_box{
  label="list test";
  key="list_t2";
  edit_width=30;
 }
ok_cancel;
}

----------------------------------------

(defun c:list1()
(setq electlist ' ("list0" "list1" "list2" "list3" "list4"))
(setq dcl_id (load_dialog "list1"))
(new_dialog "list1" dcl_id)
(set_tile "list_t1" "list0")
(action_tile "elect" "(sub_dcl)")
(start_dialog)
(prin1)
)

(defun sub_dcl()
(setq sub_dcl_id (load_dialog "list2"))
(new_dialog "list2" sub_dcl_id)
(start_list "list_t2")
(mapcar ' add_list electlist)
(end_list)
(action_tile "accept" "(setq mid (nth (atoi $value) electlist)) (done_dialog)")
(start_dialog)
(set_tile "list_t1" mid)
)