From 5b983837c80f7634dafdb8c764a01cf5bc4f6474 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 16 Mar 2004 12:14:03 +0000 Subject: set x11 ico --- perl-install/standalone/harddrake2 | 1 + 1 file changed, 1 insertion(+) (limited to 'perl-install/standalone/harddrake2') diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2 index 8120f025b..658b03571 100755 --- a/perl-install/standalone/harddrake2 +++ b/perl-install/standalone/harddrake2 @@ -148,6 +148,7 @@ 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