Artifact
74b077fbdf0b095832f10fdae2f740c5eb64ed63d904a36e5ffc48ca14d416dc:
Attachment "underline.tcl" to
ticket [a9929f112a]
added by
nemethi
2023-03-12 12:15:40.
Also attachment "underline.tcl" to
ticket [85cea56c27]
added by
nemethi
2023-03-12 10:45:33.
label .l1 -text "label"
ttk::label .l2 -text "ttk::label"
ttk::frame .f
ttk::label .f.l -text "Index:"
ttk::entry .f.e -width 10 -textvariable index
bind .f.e <Return> {
puts "\nIndex:\t$index"
foreach l {.l1 .l2} {
$l configure -underline $index
puts "[winfo class $l]:\t[$l configure -underline]"
}
}
pack .f.l .f.e -side left -padx 3p
pack .f -side bottom -padx 3p -pady 3p
pack .l1 .l2 -pady 3p