[gimp-perl] Handle undef better in Gimp::UI.
- From: Ed J <edj src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [gimp-perl] Handle undef better in Gimp::UI.
- Date: Fri, 20 Jun 2014 02:22:54 +0000 (UTC)
commit 68675527055f5501ef3a90cc4de7449cfd0524ae
Author: Ed J <edj src gnome org>
Date: Fri Jun 20 03:22:35 2014 +0100
Handle undef better in Gimp::UI.
UI/UI.pm | 8 ++------
1 files changed, 2 insertions(+), 6 deletions(-)
---
diff --git a/UI/UI.pm b/UI/UI.pm
index 96782dc..c2077ef 100644
--- a/UI/UI.pm
+++ b/UI/UI.pm
@@ -48,11 +48,7 @@ package Gimp::UI::Combo;
use Gimp ('__');
our @ISA = 'Gtk2::ComboBox';
-sub image_name {
- my $name = $_[0]->get_filename;
- $name = "Untitled-".${$_[0]} if $name eq "";
- $name;
-}
+sub image_name { $_[0]->get_filename || "Untitled-".${$_[0]}; }
sub Gimp::UI::Combo::Image::_items {
+{ map { (image_name($_) => $_) } Gimp::Image->list }
@@ -441,7 +437,7 @@ my %PF2INFO = (
my ($a, $s, $g);
if ($Gimp::interface_pkg ne 'Gimp::Net') {
$a = new Gimp::UI::FontSelectButton $desc, $default;
- $s = sub { $a->set_font($_[0]) };
+ $s = sub { $a->set_font($_[0] || 'Arial') };
$g = sub { $a->get_font };
# _instrument($a);
} else {
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]