invalid command name "button"
    while executing
"button .b1 -text "Eukaryota" -command [list ChC .b1] -font "Helvetica 16""
    (in namespace eval "::request" script line 9)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)

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