anchor.diff:      ;; we dont have to redraw the complete form, just the changed field.
       (draw field)))
   
  -(defun delete-next-char (field event)
  +(defun delete-next-char (field event &rest args)
     "Delete the next char (char under the cursor) in the field, not moving the cursor."
     (with-accessors ((inbuf buffer) (inptr input-pointer) (dptr display-pointer) (win window)) field
       ;; we can only delete to the right if the inptr is not at the end of the inbuf.
  
positive.code:       (incf dptr))
      (draw field)))
  
  (defun delete-previous-char (field event)
    "Delete the previous char in the field, moving the cursor to the left."
    (with-accessors ((inbuf buffer) (inptr input-pointer) (dptr display-pointer) (win window)) field
      (when (> inptr 0)
  
negative.code:                 (setf (insert-mode-p (window field)) (not (insert-mode-p (window field)))))
     t          'field-add-char))
  
  (defun call-button-function (button event &rest args)
    (declare (ignore event))
    (when (callback button)
      (funcall (callback button) button event)))
  
  (defun toggle-checkbox (checkbox event &rest args)
    (declare (ignore event))
    (setf (checkedp checkbox) (not (checkedp checkbox)))
    (draw checkbox))
  