(XD::Drag:CallBackSetMouseMove)设置拖动系列函数的鼠标移动回调处理函数

XDSoft

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

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

迷、

学习一下111111111111111111111111111111

迷、

感谢分享，学习一下