Tk Source Code

On MacOS, we sometimes get the following error when clicking on a spinbox:

unknown option "-entryrelief"
    while executing
"$w configure -$Priv(element)relief $Priv(relief)"
    (procedure "::tk::spinbox::ButtonUp" line 12)

The current code for ::tk::spinbox::ButtonUp is

proc ::tk::spinbox::ButtonUp {w x y} {
    variable ::tk::Priv

    ::tk::CancelRepeat

    # Priv(relief) may not exist if the ButtonUp is not paired with
    # a preceding ButtonDown
    if {[info exists Priv(element)] && [info exists Priv(relief)] && \
	    [string match "button*" $Priv(element)]} {
	if {[info exists Priv(repeated)] && !$Priv(repeated)} {
	    $w invoke $Priv(element)
	}

        $w configure -$Priv(element)relief $Priv(relief)
	$w selection element none
    }
}

Probably, the bug occurs when $Priv(element) is a button element before the call to $w invoke $Priv(element), but is then changed to entry as a side effect. It can probably be fixed by checking [string match "button*" $Priv(element)] again before doing the configure.

Fixed in all three branches, see commits [d9a0ab33], [f7262b17], and [98c19932].

Yes the spinbox does have a command associated with it, which does quite a lot of work (it's very likely "update" is called at some point).

What is the value of the -command option?  If it is a nonempty string then the line

	    $w invoke $Priv(element)

triggers an invocation of that Tcl command, and the latter might set (probably inadvertently) Priv(element) to "entry".