label - create and manipulate label (text or image) widgets

http://www.purl.org/tcl/home/man/tcl8.4/TkCmd/label.htm

----
'''Composite labels:''' A text label can hold either a constant text or a reference to a textvariable from which it is updated. Occasionally one wants both mixed, for instance to display "Distance from $from to $to: $mi miles", and auto-updated when one of those variables changes. The following code can help:

 proc compositelabel {w contents} {
    frame $w
    set n 0
    foreach i $contents {
	set w1 [label $w.[incr n]]
	if [regexp {^[$](.+)} $i -> varname] {
	    $w1 configure -textvar ::$varname
	} else {
	    $w1 configure -text $i
	}
    }
    eval pack [winfo children $w] -side left
 }
 # usage example:
 compositelabel .dist {Distance from $from to $to is $m miles}

Make sure that the second argument is braced - the dollar signs are not to be seen by the Tcl parser, but rather used to indicate the following is the name of a global variable, not a text constant... ([RS])
----
[Tk syntax help] - [Arts and crafts of Tcl-Tk programming]
- [Category Command]