OUTPUT BUFFER:
#!/usr/local/bin/wish proc ChC w { set c [tk_chooseColor] $w configure -bg $c return } button .b1 -text "Eukaryota" -command [list ChC .b1] -font "Helvetica 16" button .b2 -text "Prokaryota" -command [list ChC .b2] -font "Helvetica 16" button .b3 -text " Archaea " -command [list ChC .b3] -font "Helvetica 16" pack .b1 .b2 .b3 -side left