Show application icon in about dialog

diff --git a/clawsker b/clawsker
index 49381b3713f2d31857b9e173e8fafd1282509eb5..f4547ca29dd566489fd82ae2b619dcab9033fb00 100755 (executable)
--- a/clawsker
+++ b/clawsker
@@ -2355,6 +2355,13 @@ along with this program.  If not, see <http://www.gnu.org/licenses/>.";
                     . "<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;
 }