;;; A basic text widget, with word wrapping
(pack (text '.text :wrap "word"))
(.text 'insert "current" "This is a text widget, displaying some text. ")
(.text 'insert "current" "Notice how lines are broken at words.\n")