
#   this way I understand it is a feature, not a bug !
#   change in DemoTree::init (tree.tcl in ~ActiveTcl\demos\BWidgets)


#   before change : what is this black square ? 


    # ScrollView
    toplevel .top -relief raised -borderwidth 2
    wm protocol .top WM_DELETE_WINDOW {
        # don't kill me
    }
    wm overrideredirect .top 1
    wm withdraw .top
    wm transient .top .
    ScrollView .top.sv -window $tree -fill black
    pack .top.sv -fill both -expand yes


#   after change : just read window title !
#   (unfortunately, I don't know how to keep window decorative frame,
#    without the "kill"  button) 

    # ScrollView
    toplevel .top -relief flat
    wm protocol .top WM_DELETE_WINDOW {
        # don't kill me
    }
    # wm overrideredirect .top 1
    wm resizable .top 0 0 
    wm title .top "Drag white rectangle to scroll tree"
    wm withdraw .top
    wm transient .top .
    ScrollView .top.sv -window $tree -fill white -relief sunken -borderwidth 2
    pack .top.sv -fill both -expand yes