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