;;;  A basic text widget, with basic text tagging

(text '.text :yscrollcommand ".scroll 'set" :wrap "word")
(scrollbar '.scroll :relief "flat" :command ".text 'yview")

(pack .scroll :side "right" :fill "y")
(pack .text :expand #t :fill "both")

(.text 'insert 'current 
"This is a text widget, with some tagged text:\n\n\n\n
Some tagged text.")

(.text 'tag 'configure 'footag :relief "raised" :borderwidth 3 :background "white")
(.text 'tag 'add 'footag "end linestart" "end")