Tk Library Source Code

#------------------------------------------------------------------------------
proc tablelist::doConfig {win opt val} {
    variable usingTile
    variable helpLabel
    variable configSpecs
    upvar ::tablelist::ns${win}::data data

    switch -- $opt {
	-borderwidth -
	-highlightthickness -
	-xscrollcommand -
	-yscrollcommand {
	    if {$data(inScrollarea)} {
		if {[string compare $val $data($opt)] == 0} {
		    return ""
		} else {
		    return -code error "can't modify the $opt option after\
					embedding the widget into a scrollarea"
		}
	    }
	}
    }

    #
    # Apply the value to the widget(s) corresponding to the given option
    #
    switch [lindex $configSpecs($opt) 2] {
	c {
	    #
	    # Apply the value to all children and save the

	    root-parent		 ""
	    root-childList	 {}
	    keyToRowMapValid	 1
	    searchStartIdx	 0
	    keyBeingExpanded	 ""
	    justEntered		 0
	    inEditWin		 0
	    inScrollarea	 0
	}

	#
	# The following array is used to hold arbitrary
	# attributes and their values for this widget
	#
	variable attribs