anchor.diff:                                  ;; we do not need an item mark in a checklist
                                   :current-item-mark ""
                                   :width 60 :border t :enable-fkeys t
  -                                :title "this is my checkbox dialog"
  +                                :title "this is a checkbox dialog"
                                   :message-height 2
                                   :message-text "Press <- or -> to choose. Enter to confirm choice.~%Press q to exit.")))
   
  
positive.code:                                 :width 60
                                  :border t
                                  :enable-fkeys t
                                  :title "this is a selection dialog"
                                  :message-height 2
                                  :message-text "Press <- or -> to choose. Enter to confirm choice.~%Press q to exit.")))
  
  
negative.code:       
        (refresh scr)
        (loop named menu-case
           do (let ((result (select menu)))
                ;; TODO: returning an empty list exits the loop.
                (unless result (return-from menu-case))
                (format scr "You chose ~A~%"
                        (mapcar (lambda (x) (if x (.value x)))
                                result))
                (refresh scr)))
        (close menu))))
  
  ;; Passing the color attribute directly to a character.
  