diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2012-08-02 15:05:30 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-24 21:28:33 +0100 |
| commit | abcb9996d91012d3454736cd6363f5db3e0e82c7 (patch) | |
| tree | af4e0f0b3ed395ce0c9bdb5e5b84e96e6834452c /perl-install/mygtk3.pm | |
| parent | 79cb62fd07a91454fe57edfba3b00833a8a19bf6 (diff) | |
| download | drakx-abcb9996d91012d3454736cd6363f5db3e0e82c7.tar drakx-abcb9996d91012d3454736cd6363f5db3e0e82c7.tar.gz drakx-abcb9996d91012d3454736cd6363f5db3e0e82c7.tar.bz2 drakx-abcb9996d91012d3454736cd6363f5db3e0e82c7.tar.xz drakx-abcb9996d91012d3454736cd6363f5db3e0e82c7.zip | |
(_gtk__Label) simplify
Diffstat (limited to 'perl-install/mygtk3.pm')
| -rw-r--r-- | perl-install/mygtk3.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/mygtk3.pm b/perl-install/mygtk3.pm index 73520316e..e324513b4 100644 --- a/perl-install/mygtk3.pm +++ b/perl-install/mygtk3.pm @@ -414,7 +414,7 @@ sub _gtk__Label { if ($w) { $w->set_text(delete $opts->{text}) if exists $opts->{text}; } else { - $w = exists $opts->{text} ? Gtk3::Label->new(delete $opts->{text}) : Gtk3::Label->new; + $w = Gtk3::Label->new(delete $opts->{text}); $w->set_selectable(delete $opts->{selectable}) if exists $opts->{selectable}; $w->set_ellipsize(delete $opts->{ellipsize}) if exists $opts->{ellipsize}; $w->set_justify(delete $opts->{justify}) if exists $opts->{justify}; |