(XD::Drag:CallBackSetMouseLeftClick)设置动态拖动系列函数的鼠标左键点击回调处...

XDSoft

1. (defun XD::Drag:CallBackSetMouseLeftClick (func)
   
2.   (setq #XD-VAR-FUNC-DRAG-MOUSELeftClick-CallBack nil)
   
3.   (if (and
   
4.         (= (type func) 'STR)
   
5.         (= (type (eval (read func))) 'SUBR)
   
6.       )
   
7.     (setq #XD-VAR-FUNC-DRAG-MOUSELeftClick-CallBack func)
   
8.   )
   
9.   #XD-VAR-FUNC-DRAG-MOUSELeftClick-CallBack
   
10. )
    
11. 
    

(defun XD::Drag:CallBackSetMouseLeftClick (func)<br />   (setq #XD-VAR-FUNC-DRAG-MOUSELeftClick-CallBack nil)<br />   (if (and<br />         (= (type func) 'STR)<br />         (= (type (eval (read func))) 'SUBR)<br />       )<br />     (setq #XD-VAR-FUNC-DRAG-MOUSELeftClick-CallBack func)<br />   )<br />   #XD-VAR-FUNC-DRAG-MOUSELeftClick-CallBack<br /> )<br /> <br />