anchor.diff:           (let ((o (first *dragging-window*)))
              (when (windowp o)
                (multiple-value-bind (x y w h) (mouse-get-window-rect o)
  +               (declare (ignore x y))
                  (setf (lem:current-window) o)
                  (cond
                    ;; vertical dragging window
  
positive.code:                   ;; 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)))
      (if (functionp fn)
  
negative.code:                  (get-pos-x temp-view x y)
                   (get-pos-y temp-view x y)
                   (if toggle-flag "+" "-"))
        (setf toggle-flag (not toggle-flag)))))
  
  ;; workaround for display update problem (incomplete)
  (defun force-refresh-display (width height)
  