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/harddrake2 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2
index 6e0c0dbe9..bd233db79 100755
--- a/perl-install/standalone/harddrake2
+++ b/perl-install/standalone/harddrake2
@@ -128,6 +128,7 @@ my @menu_items =
      ]
     );
 
+$ugtk2::wm_icon = "harddrake";
 $in = 'interactive'->vnew('su'); #require_root_capability();
 
 my $wait = $in->wait_message(N("Please wait"), N("Detection in progress"));
@@ -148,7 +149,6 @@ if ($::isEmbedded) {
     $::main_window = $w->{rwindow};
     ($menubar, $factory) = create_factory_menu($w->{rwindow}, @menu_items);
     $w->{window}->set_size_request(805, 550);
-    $w->{window}->set_icon(gtkcreate_pixbuf("harddrake"));
 }
 
 my $tree_model = Gtk2::TreeStore->new("Gtk2::Gdk::Pixbuf", "Glib::String", "Glib::Int");
-- 
cgit v1.2.1