Lines Matching +refs:default +refs:value
50 set default disabled
51 label .t.default -text Default:
52 radiobutton .t.default-normal -text "Default normal" -relief flat \
53 -command "config-but -default normal" -variable default \
54 -value normal
55 radiobutton .t.default-active -text "Default active" -relief flat \
56 -command "config-but -default active" -variable default \
57 -value active
58 radiobutton .t.default-disabled -text "Default disabled" -relief flat \
59 -command "config-but -default disabled" -variable default \
60 -value disabled
61 pack .t.default .t.default-normal .t.default-active .t.default-disabled \
96 radiobutton .t.r1 -text Radiobutton -value a
97 radiobutton .t.r2 -text "Explicit\nnewlines\n\nin the text" -value b
98 radiobutton .t.r3 -text "This text is quite long, so it must be wrapped automatically by Tk" -wraplength 2i -value c -underline 50
102 proc config {option value} {
105 catch {$w configure $option $value}
109 proc config-but {option value} {
111 $w configure $option $value