anchor.diff:                   (t
                     (let ((vx (- (- (lem:window-x o) 1) cur-x)))
                       ;; this check is incomplete if 3 or more divisions exist
  -                    (when (and (>= cur-x    *min-cols*)
  +                    (when (and no-floating-window
  +                               (>= cur-x    *min-cols*)
                                  (>= (+ w vx) *min-cols*))
                         (lem:grow-window-horizontally vx)
                         (lem:redraw-display))))
  
positive.code:   (lambda ()
      ;; workaround for cursor position problem
      (let ((disp-x (mouse-get-disp-x (lem:window-view (lem:current-window)) x1 y1))
            (cur-x  (mouse-get-cur-x  (lem:window-view (lem:current-window)) x1 y1)))
        ;; process mouse event
        (cond
          ;; button1 down
          ((logtest bstate (logior charms/ll:BUTTON1_PRESSED
                                   charms/ll:BUTTON1_CLICKED
                                   charms/ll:BUTTON1_DOUBLE_CLICKED
                                   charms/ll:BUTTON1_TRIPLE_CLICKED))
           (let ((press (logtest bstate charms/ll:BUTTON1_PRESSED)))
             (find-if
              (lambda(o)
  
negative.code:                  ((eq (second *dragging-window*) 'y)
                    (let ((vy (- (- (lem:window-y o) 1) y1)))
                      ;; this check is incomplete if 3 or more divisions exist
                      (when (and no-floating-window
                                 (>= y1       *min-lines*)
                                 (>= (+ h vy) *min-lines*))
                        (lem:grow-window vy)
                        (lem:redraw-display))))
  