(let* ((widget (widget (tree-view *agenda*)))
       (text (make-instance 'gtk-cell-renderer-text))
       (column (gtk-tree-view-column-new-with-attributes
                "Tipo de nota" text "text" 4)))
  (gtk-tree-view-append-column widget column))