在网上找的清单选框为什么不用用，请帮忙看看。

無恒的地盘

1. (DEFUN C:LBOX ()     (SETQ DCL_ID (LOAD_DIALOG "C:/LBOX.DCL") CHK 0)
   
2. (NEW_DIALOG "LBOX" DCL_ID)
   
3. (ADDL)
   
4. (ACTION_TILE "LBOX_l" "(SETQ TMP_R (ATOI (GET_TILE\"LBOX_L\")))(SETC)")
   
5. (ACTION_TILE "accept" "(SETQ CHK 1
   
6.                         TMP_S (GET_TILE \"LBOX_E\"))(DONE_DIALOG)")
   
7. (START_DIALOG) (UNLOAD_DIALOG DCL_ID)(IF (= CHK 1)
   
8.                (COMMAND "TXT" (GETPOINT \"Select text insert point :")"0" TMP_S)
   
9. (PRINC))
   
10. 
    
11. (DEFUN ADDL()        (SETQ F_ID (OPEN "C:/TEXT1.TXT" "r"))
    
12.                                 (SETQ TMP_T (READ-LINE F_ID) TMP_L (LIST ""))
    
13.                                 (WHILE (/= TMP_T NIL)                           
    
14.                                            (SETQ TMP_L (APPEND TMP_L (LIST TMP_T)))
    
15.                                            (SETQ TMP_L (READ-LINE F_ID)))
    
16.                                 (CLOSE F-ID)
    
17.                                 (SETQ TMP_L (LIST (CDR TMP_L)))
    
18.                                 (START_LIST "LBOX_L" 3 0)
    
19.                                 (MAPCAR 'ADD_LIST (CAR TMP_l))
    
20.                                 (END_LIST))
    
21. 
    
22. (DEFUN SETC()        (SETQ F_ID (OPEN "C:TEXT1.TXT" "r"))
    
23.                      (IF (> TMP_R 0)
    
24.                             (REPEAT TMP_R (REAN-LINE F_ID)))
    
25.                      (SETQ TMP_S (GET_TILE "LBOX_E"))
    
26.                      (SETQ TMP_S (STRCAT TMP_S (READ-LINE F_ID)))
    
27.                      (CLOSE F_ID)
    
28.                      (SET_TILE "LBOX_E" TMP_S))

(DEFUN C:LBOX ()     (SETQ DCL_ID (LOAD_DIALOG "C:/LBOX.DCL") CHK 0)<br /> (NEW_DIALOG "LBOX" DCL_ID)<br /> (ADDL)<br /> (ACTION_TILE "LBOX_l" "(SETQ TMP_R (ATOI (GET_TILE\"LBOX_L\")))(SETC)")<br /> (ACTION_TILE "accept" "(SETQ CHK 1<br />                         TMP_S (GET_TILE \"LBOX_E\"))(DONE_DIALOG)")<br /> (START_DIALOG) (UNLOAD_DIALOG DCL_ID)(IF (= CHK 1)<br />                (COMMAND "TXT" (GETPOINT \"Select text insert point :")"0" TMP_S)<br /> (PRINC))<br /> <br /> (DEFUN ADDL()        (SETQ F_ID (OPEN "C:/TEXT1.TXT" "r"))<br />                                 (SETQ TMP_T (READ-LINE F_ID) TMP_L (LIST "")) <br />                                 (WHILE (/= TMP_T NIL)                           <br />                                            (SETQ TMP_L (APPEND TMP_L (LIST TMP_T))) <br />                                            (SETQ TMP_L (READ-LINE F_ID)))<br />                                 (CLOSE F-ID) <br />                                 (SETQ TMP_L (LIST (CDR TMP_L)))<br />                                 (START_LIST "LBOX_L" 3 0)<br />                                 (MAPCAR 'ADD_LIST (CAR TMP_l))<br />                                 (END_LIST))<br /> <br /> (DEFUN SETC()        (SETQ F_ID (OPEN "C:TEXT1.TXT" "r"))<br />                      (IF (> TMP_R 0)<br />                             (REPEAT TMP_R (REAN-LINE F_ID)))<br />                      (SETQ TMP_S (GET_TILE "LBOX_E"))<br />                      (SETQ TMP_S (STRCAT TMP_S (READ-LINE F_ID)))<br />                      (CLOSE F_ID)<br />                      (SET_TILE "LBOX_E" TMP_S))

1. LBOX:dilalog{     label="Create chinese";
   
2.       :list_box                    //清单选框元件
   
3.       ｛    label="中文字";
   
4.            key="LBOX_L";
   
5.            width=25;
   
6.             height=8;
   
7.             fixed_width=true;
   
8.             fixed_height=true;
   
9.        }
   
10.        :edit_box
    
11.        {     label="中文字";
    
12.              key="LOBX_E";
    
13.              width=25;
    
14.              fixed_width=true;
    
15.       }
    
16.        ok_cancel}

LBOX:dilalog{     label="Create chinese";<br />       :list_box                    //清单选框元件<br />       ｛    label="中文字"; <br />            key="LBOX_L"; <br />            width=25;<br />             height=8;<br />             fixed_width=true;<br />             fixed_height=true;<br />        }<br />        :edit_box<br />        {     label="中文字";<br />              key="LOBX_E";<br />              width=25;<br />              fixed_width=true; <br />       }<br />        ok_cancel}