diff options
| -rw-r--r-- | perl-install/mygtk2.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm index c9ba5ec00..0bdcc85cb 100644 --- a/perl-install/mygtk2.pm +++ b/perl-install/mygtk2.pm @@ -146,15 +146,15 @@ sub _gtk { sub _gtk__Install_Button { my ($w, $opts, $class) = @_; - local $opts->{widget_name} = 'Banner'; - local $opts->{child} = gtknew('HBox', spacing => 5, + $opts->{widget_name} = 'Banner'; + $opts->{child} = gtknew('HBox', spacing => 5, children_tight => [ # FIXME: not RTL compliant (lang::text_direction_rtl() ? ...) gtknew('Image', file => 'advanced_expander'), gtknew('Label', text => delete $opts->{text}), ], ); - local $opts->{relief} = 'none' if $::isInstall; + $opts->{relief} = 'none' if $::isInstall; _gtk__Button($w, $opts, 'Button'); } |