text widget peering demo (called by 'widget')

based on Tcl/Tk8.5.0 widget demos