diff options
Diffstat (limited to 'itcl/iwidgets3.0.0/generic/finddialog.itk')
| -rwxr-xr-x | itcl/iwidgets3.0.0/generic/finddialog.itk | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/itcl/iwidgets3.0.0/generic/finddialog.itk b/itcl/iwidgets3.0.0/generic/finddialog.itk index b237153ac32..894d0db4fff 100755 --- a/itcl/iwidgets3.0.0/generic/finddialog.itk +++ b/itcl/iwidgets3.0.0/generic/finddialog.itk @@ -251,7 +251,7 @@ body ::iwidgets::Finddialog::clear {} { } if {$itk_option(-clearcommand) != {}} { - $itk_option(-clearcommand) + eval $itk_option(-clearcommand) } } @@ -423,7 +423,7 @@ body ::iwidgets::Finddialog::find {} { # If a match command is defined, then call it with the match point. # if {$itk_option(-matchcommand) != {}} { - $itk_option(-matchcommand) $matchPoint + [subst $itk_option(-matchcommand)] $matchPoint } # |