diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2008-09-01 15:13:05 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2008-09-01 15:13:05 +0000 |
| commit | 9b29406c633c912e1fbc11f148f556f0ad205cc1 (patch) | |
| tree | c91c837ff6f2814a168ac339a38eec964c4f7072 /perl-install | |
| parent | 6420bb4a6694bfdd284d1bb9f9e0b8b59494079b (diff) | |
| download | drakx-9b29406c633c912e1fbc11f148f556f0ad205cc1.tar drakx-9b29406c633c912e1fbc11f148f556f0ad205cc1.tar.gz drakx-9b29406c633c912e1fbc11f148f556f0ad205cc1.tar.bz2 drakx-9b29406c633c912e1fbc11f148f556f0ad205cc1.tar.xz drakx-9b29406c633c912e1fbc11f148f556f0ad205cc1.zip | |
(_gtk__Label_Left) export padding value so that interactive::gtk can reuse it
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/mygtk2.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm index 94103a6e3..4001d7fa1 100644 --- a/perl-install/mygtk2.pm +++ b/perl-install/mygtk2.pm @@ -355,10 +355,12 @@ sub _gtk__WrappedLabel { _gtk__Label($w, $opts); } +our $left_padding = 20; + sub _gtk__Label_Left { my ($w, $opts) = @_; $opts->{alignment} ||= [ 0, 0 ]; - $opts->{padding} = [ 20, 0 ]; + $opts->{padding} = [ $left_padding, 0 ]; _gtk__WrappedLabel($w, $opts); } |