anchor.diff:  
      
       (defun turn-on-border (cell)
  -      (let ((divmain (getprop cell 'div-main)))
  -	(setf (chain divmain style border-color) "green")))
  +      (let ((divmain (getprop cell 'div-main))
  +	    (cla (getprop cell 'cell-loc-area)))
  +	(setf (chain divmain style border-color) "green")
  +	(setf (chain cla style color) "green")))
  +    
      
       (defun turn-off-border (cell)
         (when cell
  -	(let* ((divmain (getprop cell 'div-main)))
  -	  (setf (chain divmain style border-color) "#FFFFFF"))))
  +	(let ((divmain (getprop cell 'div-main))
  +	      (cla (getprop cell 'cell-loc-area)))
  +	  (setf (chain divmain style border-color) "#FFFFFF")
  +	  (setf (chain cla style color) "gray")
  +
  +	  )))
      
      
       ;; when the cell (actually div-outer) is clicked
       (defun get-it-focused (cell)
         (turn-off-border focused-cell)
         (setf focused-cell cell)
  -      (turn-on-border cell)
  -      )
  -
  +      (turn-on-border cell))
  +
  +    
   
       ;; add a cell after the focused cell
       (defun add-cell ()
  -      (make-cell focused-cell)
  -      )
  -
  +      (make-cell focused-cell))
  +    
         
       ;; remove a focused-cell and focus goes up
       ;; if there's only one cell do nothing
  
positive.code: 	   (getprop all-cells
  		    (if (= n 0)
  			0
  			(- n 1))))))
        
        )
  
  
negative.code:       (let ((div-outer (chain document (create-element "div")))
  	    (div-main (chain document (create-element "div") ))
  	    (textarea (chain document (create-element "textarea")))
  	    (resultarea (chain document (create-element "div")))
  	    ;; cell location
  	    (cell-loc-area (chain document (create-element "div")))
  
  	    )
  
  	;; I think the following some lines must go to css file
  	;; But I will just leave it be for this experiental phase.
  	
  	;; style
  	;; 	(setf (chain resultarea style overflow) "auto")
  	(setf (chain div-main style border-style) "solid")
  	(setf (chain div-main style border-radius) "0.5em")
  	;; invisible border
  