(XD::DCL:CtrlEnable)批量启用控件

Free-Lancer

1. ;;启用控件
   
2. ;;clist ---  keylist or key
   
3. (defun XD::Dcl:CtrlEnable (clist)
   
4.   (if (listp clist)
   
5.     (mapcar
   
6.       '(lambda (x)
   
7.          (mode_tile x 0)
   
8.        )
   
9.       clist
   
10.     )
    
11.     (mode_tile clist 0)
    
12.   )
    
13.   t
    
14. )

;;启用控件<br /> ;;clist ---  keylist or key<br /> (defun XD::Dcl:CtrlEnable (clist)<br />   (if (listp clist)<br />     (mapcar<br />       '(lambda (x)<br />          (mode_tile x 0)<br />        )<br />       clist<br />     )<br />     (mode_tile clist 0)<br />   )<br />   t<br /> )