Show application icon in about dialog
authorRicardo Mones <ricardo@mones.org>
Fri, 23 Sep 2016 23:48:07 +0000 (01:48 +0200)
committerRicardo Mones <ricardo@mones.org>
Fri, 23 Sep 2016 23:48:07 +0000 (01:48 +0200)
clawsker

index 49381b3..f4547ca 100755 (executable)
--- a/clawsker
+++ b/clawsker
@@ -2355,6 +2355,13 @@ along with this program.  If not, see &lt;http://www.gnu.org/licenses/&gt;.";
                     . "<span size=\"large\">$lic</span>\n\n"
                     . "<span size=\"small\">$license</span>");
     $dialog->set_title ($xl::s{about});
+    if (Gtk2->CHECK_VERSION (2, 10, 0)) {
+        my @icons = get_app_icons ();
+        my $image = Gtk2::Image->new_from_pixbuf ($icons[1]);
+        $image->show ();
+        $image->set_alignment (0, 0);
+        $dialog->set_image ($image);
+    }
     #
     return $dialog;
 }