summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/mygtk2.pm6
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');
}