my $cb_update_actual = $FrameDataToAnalyze -> Checkbutton( -text=>"", -offvalue=>0, -onvalue=>1, -command=> sub { if ($UpdateActual) { $entry_actual_value->configure(-state=>"normal"); } else { $entry_actual_value->configure(-state=>"disabled"); } }, -variable=>\$UpdateActual); $cb_update_actual -> select();