A text widget which can be split into two view using emacs shortcuts or 2 or 3 etc. package require snit snit::widget speertext { option -test "" variable mtext delegate method * to mtext constructor {args} { $self configurelist $args pack [panedwindow $win.pan -orient vertical] -side top -expand yes -fill both -pady 2 -padx 2 set pan $win.pan frame $pan.ftext set text [text $pan.ftext.t -yscrollcommand "$pan.ftext.scrolly set"] set mtext $text set sy [scrollbar $pan.ftext.scrolly -orient v -command "$pan.ftext.t yview"] pack $text -side left -expand yes -fill both pack $sy -side right -fill y #::autoscroll::autoscroll $sy frame $pan.ftextp set text [$text peer create $pan.ftextp.t] $text configure -yscrollcommand "$pan.ftextp.scrolly set" set sy [scrollbar $pan.ftextp.scrolly -orient v -command "$pan.ftextp.t yview"] pack $text -side left -expand yes -fill both pack $sy -side right -fill y #::autoscroll::autoscroll $sy $pan add $pan.ftext $pan.ftextp foreach w [list $mtext $text] { bind $w [mymethod bindControlXSplit vertical] bind $w [mymethod bindControlXSplit horizontal] bind $w [mymethod bindControlXSplit zero] } } method bindControlXSplit {orient} { puts $orient if {$orient eq "zero"} { $win.pan forget $win.pan.ftextp return -code break } if {[llength [$win.pan panes]] == 1} { $win.pan add $win.pan.ftextp } $win.pan configure -orient $orient return -code break } } And here a test. pack [speertext .spt] -side left -fill both -expand yes for {set i 0} {$i < 50} {incr i 1} { .spt insert end "Hello $i\n" } <>snit, widgets