;;; Basic text widget

(pack (text '.text))

(.text 'insert "current" "This is a text widget, displaying some text.\n")
(.text 'insert "current" "Try editing the text in the widget.\n")