package require Tk

label .l
entry .e
button .b -text "Bonjour" -command {
	.l configure -text "Bonjour [.e get]"
	.e delete 0 end
}
pack .l .e .b