列表对话框

qianzj

参考书上的列表对话框，为什么出来的列表是空白，而没有内容？
(defun c:wr()
   (setq wordlist '("1层" "2层"))
(dcl_contents)
)
(defun dcl_contents()
   (setq dcl_id (load_dialog "contents"))
   (new_dialog "contents" dcl_id)
   (setq dd (start_dialog))
   (start_list "klist")
   (mapcar 'add_list wordlist)
   (end_list)
   (action_tile "klist" "(sub_klist $value)")
   (action_tile "accept" "(ok_dia7a)(done_dialog 1)")
   (setq dd (start_dialog))
   (if (= dd 1)
   (progn
   (setvar "cmdecho" 1)
   (command "text" pause pause 0 str)
   (setvar "cmdecho" 0)
)))
(defun sub_klist(vvs)
(set_tile "str" (nth (atoi vvs) wordlist))
)
(defun ok_dia7a()
(setq str (get_tile "str"))
)
==========================================
contents:dialog{
            label="常用";
            :list_box{
            label="常用";
            key="klist";   
            width=30;
            height=10;
}
:edit_box{
          label="词库";      
            key="str";   
}
spacer_1;
ok_cancel;
}

ZZXXQQ

多了一行start_dialog

1. (defun dcl_contents()
   
2. (if (> (setq dcl_id (load_dialog "contents")) 0) (progn
   
3.   (if (new_dialog "contents" dcl_id) (progn
   
4.    (start_list "klist")
   
5.    (mapcar 'add_list wordlist)
   
6.    (end_list)
   
7.    (action_tile "klist" "(sub_klist $value)")
   
8.    (action_tile "accept" "(ok_dia7a)(done_dialog 1)")
   
9.    (setq dd (start_dialog))
   
10.   )
    
11.    (princ "\n无法显示对话框！")
    
12.   )
    
13.   (unload_dialog dcl_id)
    
14. )
    
15.   (princ "\n无法加载对话框！")
    
16. )
    
17. (if (= dd 1) (progn
    
18.   (setvar "cmdecho" 1)
    
19.   (command "text" pause pause 0 str)
    
20.   (setvar "cmdecho" 0)
    
21. ))
    
22. (princ)
    
23. )
    
24. (defun sub_klist(vvs)
    
25. (set_tile "str" (nth (atoi vvs) wordlist))
    
26. )
    
27. (defun ok_dia7a()
    
28. (setq str (get_tile "str"))
    
29. )
    

(defun dcl_contents()<br /> (if (> (setq dcl_id (load_dialog "contents")) 0) (progn<br />   (if (new_dialog "contents" dcl_id) (progn<br />    (start_list "klist")<br />    (mapcar 'add_list wordlist)<br />    (end_list) <br />    (action_tile "klist" "(sub_klist $value)")<br />    (action_tile "accept" "(ok_dia7a)(done_dialog 1)") <br />    (setq dd (start_dialog))<br />   )<br />    (princ "\n无法显示对话框！")<br />   )<br />   (unload_dialog dcl_id)<br /> )<br />   (princ "\n无法加载对话框！")<br /> )<br /> (if (= dd 1) (progn <br />   (setvar "cmdecho" 1)<br />   (command "text" pause pause 0 str)<br />   (setvar "cmdecho" 0)<br /> ))<br /> (princ)<br /> )<br /> (defun sub_klist(vvs)<br /> (set_tile "str" (nth (atoi vvs) wordlist))<br /> )<br /> (defun ok_dia7a()<br /> (setq str (get_tile "str"))<br /> )<br />

康美欣

谢谢分享[em0]

hnfsf

怎么实现双击运行呢？