anchor.diff:  ;; for mouse
   (defkeycode "[mouse]" #x21b)
   (defvar *dragging-window* '())
  +(defvar *wheel-scroll-size* 3)
   
   ;; debug log
   (defun dbg-log-format (fmt &rest args)
  
positive.code:         (if (= code #x200b)
              0
              (if (lem-base:wide-char-p (code-char code)) 2 1)))))
  (setf (windows-term-type) *windows-term-type*)
  
  ;; load windows dll
  
negative.code:                    (list nil (list cur-x y1) *dragging-window*)))))
          ;; wheel up
          ((logtest bstate charms/ll:BUTTON4_PRESSED)
           (lem:scroll-up *wheel-scroll-size*)
           (lem:redraw-display))
          ;; wheel down
          ((logtest bstate charms/ll:BUTTON5_PRESSED)
           (lem:scroll-down *wheel-scroll-size*)
           (lem:redraw-display))
          ))))
  
  