. configure -bg grey77
set labels ""
foreach i {center right left} {
    lappend labels [label .$i -text justified:\n$i -justify $i \
	    -bd 3 -relief groove -bg grey77]
}
eval pack $labels -expand y -fill both -padx 3 -pady 3 -side left