A short Tcl/Tk program
button .b -text "Hello there!" -background white \ -foreground red -command {.b configure \ -text "Goodbye!"} pack .b -side left