Posted to tcl by prep at Sat Feb 18 00:37:19 GMT 2023view pretty

grid [frame .main] -padx 5 -sticky nswe

grid [
    ctext .main.area -font Mono -undo 1 -relief flat -highlightthickness 1 -insertunfocussed none -bd 1 -wrap word -maxundo 0 -tabs "[expr {4 * [font measure Mono 0]}] left" -tabstyle wordprocessor -linemap 0
] -column 1 -row 1 -padx 0