anchor.diff:          (charms/ll:curs-set 0)
           (progn
             (charms/ll:curs-set 1)
  -          (charms/ll:wmove scrwin
  +          (charms/ll:wmove (ncurses-view-scrwin view)
                              (get-pos-y view lem::*cursor-x* lem::*cursor-y*)
                              ;; workaround for cursor position problem
                              ;;(get-pos-x view lem::*cursor-x* lem::*cursor-y*)
                              (get-cur-x view lem::*cursor-x* lem::*cursor-y*))))
  -    (charms/ll:wnoutrefresh scrwin)
  +    (charms/ll:wnoutrefresh (ncurses-view-scrwin view))
       (charms/ll:doupdate)))
  
positive.code:                               str)))
  
  ;; use only stdscr
  (defmethod lem-if:redraw-view-after ((implementation ncurses) view focus-window-p)
    (when (and (ncurses-view-modeline-scrwin view)
               (< 0 (ncurses-view-x view)))
      (let ((attr (attribute-to-bits 'modeline)))
        (charms/ll:attron attr)
        ;; vertical line for horizontal splitted window
        (loop :for y1 :from 0 :below (+ (ncurses-view-height view) 1)
           :do (charms/ll:mvaddch (+ (ncurses-view-y view) y1)
                                  (- (ncurses-view-x view) 1)
  
negative.code: 
  ;; use get-pos-x/y
  (defmethod lem-if:update-display ((implementation ncurses))
    (let ((view (window-view (current-window))))
      ;; workaround for display update problem (incomplete)
      (write-something-to-last-line)
      ;; set cursor position
  