diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2008-08-27 17:52:22 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2008-08-27 17:52:22 +0000 |
| commit | 4cd4016373768a24035e597d6176f297e11f7cc4 (patch) | |
| tree | 6265174b174d829fa0d3aa2652854aa21780aae2 | |
| parent | 5771dbd6c8404d8275e397ab24759c92fef03ca6 (diff) | |
| download | drakx-4cd4016373768a24035e597d6176f297e11f7cc4.tar drakx-4cd4016373768a24035e597d6176f297e11f7cc4.tar.gz drakx-4cd4016373768a24035e597d6176f297e11f7cc4.tar.bz2 drakx-4cd4016373768a24035e597d6176f297e11f7cc4.tar.xz drakx-4cd4016373768a24035e597d6176f297e11f7cc4.zip | |
(_gtk__Install_Button) no need to use "local" here
| -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'); } |