proc bind.text args {
    foreach w $args {
	bind $w <Any-KeyPress> "catch {%W insert cursor %A}"
	bind $w <Enter> {focus %W}
	bind $w <backslash> {%W insert cursor "\\"}
	bind $w <braceleft> {%W insert cursor "\{"}
	bind $w <braceright> {%W insert cursor "\}"}
	bind $w <bracketleft> {%W insert cursor "\["}
	bind $w <bracketright> {%W insert cursor "\]"}
	bind $w <quotedbl> {%W insert cursor "\""}
	bind $w <space> {%W insert cursor " "}
	bind $w <Return> {%W insert cursor "\n"}
	bind $w <2> {%W insert cursor [selection get]}
	bind $w <Delete> {%W edit dnc}
	bind $w <BackSpace> {%W edit dpc}
	bind $w <Control-h> {%W edit dpc}
	bind $w <1> {%W cursor @%x,%y; focus %W; %W select from @%x,%y}
	bind $w <B1-Motion> {%W select to @%x,%y}
	bind $w <Shift-1> {%W select adjust @%x,%y}
	bind $w <Shift-B1-Motion> {%W select to @%x,%y}
	bind $w <3> {%W scan mark %x,%y}
	bind $w <B3-Motion> {%W scan dragto %x,%y}
	bind $w <Any-Left> {%W edit bc}
	bind $w <Any-Right> {%W edit fc}
	bind $w <Any-Up> {%W edit pl}
	bind $w <Any-Down> {%W edit nl}
	bind $w <Control-a> {%W edit bol}
	bind $w <Control-b> {%W edit bc}
	bind $w <Control-c> {}
	bind $w <Control-d> {%W edit dnc}
	bind $w <Control-e> {%W edit eol}
	bind $w <Control-f> {%W edit fc}
	bind $w <Control-g> {}
	bind $w <Control-h> {}
	bind $w <Control-i> {}
	bind $w <Control-j> {}
	bind $w <Control-k> {%W delete cursor eol}
	bind $w <Control-l> {}
	bind $w <Control-m> {}
	bind $w <Control-n> {%W edit nl}
	bind $w <Control-o> {}
	bind $w <Control-p> {%W edit pl}
	bind $w <Control-q> {}
	bind $w <Control-r> {}
	bind $w <Control-s> {}
	bind $w <Control-t> {}
	bind $w <Control-u> {}
	bind $w <Control-v> {%W insert cursor [selection get]}
	bind $w <Control-w> {}
	bind $w <Control-x> {}
	bind $w <Control-y> {}
	bind $w <Control-z> {}
    }
}

proc bind.text.readonly args {
    foreach w $args {
	bind $w <1> {%W cursor @%x,%y; focus %W; %W select from @%x,%y}
	bind $w <B1-Motion> {%W select to @%x,%y}
	bind $w <Shift-1> {%W select adjust @%x,%y}
	bind $w <Shift-B1-Motion> {%W select to @%x,%y}
	bind $w <3> {%W scan mark %x,%y}
	bind $w <B3-Motion> {%W scan dragto %x,%y}
    }
}

frame .frame
pack append . .frame {top expand}

scrollbar .frame.vscrollbar -command ".frame.text viewline" -relief sunken
scrollbar .hscrollbar -relief sunken -orient horizontal

text .frame.text -height 25 -width 16 \
	-scrollvcommand ".frame.vscrollbar set" \
	-scrollhcommand ".hscrollbar set" 

pack append .frame \
	.frame.vscrollbar {left expand filly} \
	.frame.text {left expand}

pack append . \
	.hscrollbar {top expand fillx}

update

.frame.text configure -wrapmode word
.frame.text insert 0 [exec cat tkText.c]

bind.text .frame.text