Tk Library Source Code: Artifact [0fa8b86377]

Artifact 0fa8b86377d8f91568910581eb590d14ada28100:

Attachment "modiftree.tcl" to ticket [684462ffff] added by vwartelle 2003-02-25 16:03:30.


#   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