set bgc grey45 if {[info exists embed_args(background_color)]} { set bgc $embed_args(background_color) } set argnames "Arguments:\n\n" set values "Values:\n\n" foreach i [lsort [array names embed_args]] { append argnames "$i\n" append values "$embed_args($i)\n" } message .m1 -aspect 2000 -text $argnames -bg $bgc -relief raised -bd 2 \ -justify left -padx 3 message .m2 -aspect 2000 -text $values -bg $bgc -relief raised -bd 2 \ -justify left -padx 3 pack .m1 -side left -fill y pack .m2 -side right -expand true -fill both