A short Tcl/Tk program


button .b -text "Hello there!" -background white \
	-foreground red -command {.b configure \
	-text "Goodbye!"}

pack .b -side left