;; A message widget
(message '.m :text "This is a message. Note how the lines wrap"
:aspect 200
:justify "center")
(pack .m)