(defwidget sep []
  (label :text "|"
         :class "separator"))