From f59f29576c158faef6c0b3db7005598d1c49ea46 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Wed, 17 Mar 2004 09:50:33 +0000
Subject: use new $ugtk2::wm_icon for x11 icon

---
 perl-install/standalone/drakfont | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/standalone/drakfont')

diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index e0a77320a..c34c797f0 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -91,6 +91,8 @@ use common;
 
 require_root_capability();
 
+$ugtk2::wm_icon = "drakfont";
+
 #   global variables needed by each functions
 my $xlsfonts = 0;
 my $windows  = 0;
@@ -470,11 +472,9 @@ sub interactive_mode() {
     $window1 = ugtk2->new('drakfont');
     $window1->{rwindow}->signal_connect(delete_event => sub { ugtk2->exit(0) });
     if ($::isEmbedded) {
-        $::Plug->set_icon(gtkcreate_pixbuf("drakfont"));
     } else {
         $window1->{rwindow}->set_position('center');
         $window1->{rwindow}->set_title(N("DrakFont"));
-        $window1->{window}->set_icon(gtkcreate_pixbuf("drakfont"));
     }
     
     my $button = {};
-- 
cgit v1.2.1