
package require Tk
pack [text .t]
set inspectlist [list \
{setup .t {-autoseparators 1 -background snow1 -blockcursor 0 -borderwidth 0 -cursor xterm -exportselection 1 -font {-family {Courier New} -size 9 -weight normal -slant roman -underline 0 -overstrike 0} -foreground black -height 1 -highlightbackground SystemButtonFace -highlightcolor SystemWindowFrame -highlightthickness 0 -hyphencolor SystemWindowText -hyphens 0 -inactiveselectforeground SystemHighlightText -insertbackground red -insertborderwidth 2 -insertforeground SystemWindow -insertofftime 500 -insertontime 500 -insertunfocussed none -insertwidth 3 -justify left -maxundo 0 -maxundosize 0 -maxredo -1 -padx 1 -pady 1 -relief sunken -responsiveness 50 -selectbackground PaleGreen -selectborderwidth 0 -selectforeground black -setgrid 0 -showendofline 0 -showendoftext 0 -showinsertforeground 0 -spacemode none -spacing1 0 -spacing2 0 -spacing3 0 -state normal -steadymarks 0 -synctime 150 -tabs 54 -tabstyle wordprocessor -tagging within -undo 1 -useunibreak 0 -width 1 -wrap none}} {configure sel {-background PaleGreen -foreground black -relief flat -undo 0}} {configure number {-foreground yellow4}} {text {set /A CLEAN_TCL_COMPILE = } {}} {text 0 {number}} {break {}} {text {set /A CLEAN_TK_COMPILE = } {}} {text 0 {number}} {break {}} {break {}} \
]

.t load $inspectlist

# produces:
#
# Assertion failed: n < TkTextTagSetSize(ts), file d:\tcltk-fossil\tk\generic\tkTextTagSetPriv.h, line 390
#
