Tk Source Code

Artifact 74b077fbdf0b095832f10fdae2f740c5eb64ed63d904a36e5ffc48ca14d416dc:

Attachment "underline.tcl" to ticket [a9929f11] added by nemethi 2023-03-12 12:15:40. Also attachment "underline.tcl" to ticket [85cea56c] 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