my $be = $f->BrowseEntry( -state => "readonly", bg => "green",
  -choices => \@countries,
  ($Tk::VERSION >= 804 ? (-disabledbackground => "green",
                          -disabledforeground => "black",
                         )
                       : ()
  ),
)->pack;