anchor.diff:      ;; only for form windows
       (when (eq (type-of win) 'form-window)
         (setf border-width (if borderp 1 0))
  -      
  +
         ;; TODO: this isnt form specific, this should be part of window initialization
         ;; TODO 200612 see window and sub-window init
         (setf winptr (ncurses:newwin height width y x))
  
positive.code:    (activep
      :initform      nil
      :documentation "Labels are by default not active and can not be selected when cycling through the elements."))
    
    (:documentation "A single-line string displayed at the specified position."))
  
  (defclass checkbox (element)
  
negative.code:     :initform      t
      :type          boolean
      :documentation
      "If t (default), the #\return character (CR ^M \r) is automatically translated to newline (NL) on input,
       and NL is translated to CR LF on output.
       NL is the standard, system independent, portable way to end a line.
       It can be either #\linefeed (LF ^J \n) on Linux, carriage #\return on MacOS, CRLF \r\n on Windows.
       Setting newline translation to nil is necessary to be able to detect the #\return key.")
  