> $button = $mainwindow->Button(-text => "find", -command => \&search );
> .....
> sub search {
> $button->text("Wait"); # This does not work
> .....$button->configure(-text=>"Wait"); But asking such kind of questions on www.perlmonks.org will provide faster responce. Also, which namely module do you use? Tcl::Tk or Tk? > } > Best regards, Vadim.
