anchor.diff:                     (list nil (list cur-x y1) *dragging-window*)))))
           ;; wheel up
           ((logtest bstate charms/ll:BUTTON4_PRESSED)
  -         (lem:scroll-up 3)
  +         (lem:scroll-up *wheel-scroll-size*)
            (lem:redraw-display))
           ;; wheel down
           ((logtest bstate charms/ll:BUTTON5_PRESSED)
  -         (lem:scroll-down 3)
  +         (lem:scroll-down *wheel-scroll-size*)
            (lem:redraw-display))
           ))))
   
  
positive.code: ;; for mouse
  (defkeycode "[mouse]" #x21b)
  (defvar *dragging-window* '())
  
  ;; debug log
  (defun dbg-log-format (fmt &rest args)
  
negative.code:   cur-mov-by-pos  ;; cursor movement setting
                    ;;   t   : cursor movement is specified by pos-char-width
                    ;;   nil : cursor movement is specified by cur-char-width
    (reserved-last-lines 0 :type fixnum)
                    ;; reserve last lines for windows ime and so on
                    ;;   fixnum : number of reserved lines
    )
  (defmethod calc-disp-char-width ((wt windows-term-setting) code)
    (let ((fn (windows-term-setting-disp-char-width wt)))
  