# this code produces wrong results on Win NT 4.0 Service Pack 5
# TCL/TK and 8.3.2, 8.3.4 and 8.4.0 with BWidget 1.4.1

proc scrolledtext { w args } {
    set frameW [format "%s_frame" $w]
    set sxW [format "%s_sx" $w]
    set syW [format "%s_sy" $w]
        
    frame $frameW
    eval text $w -xscrollcommand \"$sxW set\"  -yscrollcommand \"$syW set\" [join $args]
    scrollbar $sxW -orient horizontal -command "$w xview"
    scrollbar $syW -orient vertical -command "$w yview"

    pack $sxW -in $frameW -side bottom -expand 0 -fill x -anchor sw
    pack $syW -in $frameW -side right -expand 0 -fill y -anchor ne
    pack $w -in $frameW -side top -fill both -expand 1 -anchor nw
    pack $frameW -side top -fill both -expand 1 -anchor nw
}

# with 1.4.1 does not display second pane correctly - needs resizing
# of window
package require -exact BWidget 1.4.1

# with 1.3.1 everything is ok
#package require -exact BWidget 1.3.1

PanedWindow .pw -side top
pack .pw -side top -expand yes -fill both -anchor nw


set pane [.pw add]

ScrolledWindow $pane.sw -auto none
text $pane.sw.t 
$pane.sw setwidget $pane.sw.t
pack $pane.sw.t -side top -expand yes -fill both -anchor nw
pack $pane.sw -side top -expand yes -fill both -anchor nw

$pane.sw.t insert end "new"

set pane [.pw add]
scrolledtext $pane.t 
pack $pane.t -side top -expand yes -fill both -anchor nw

$pane.t insert end "traditional"
