fixed most of the warning

2 files changed, 12 insertions, 13 deletions

diff --git a/cest_ton_boot b/cest_ton_boot
index 369cd8d0..a43b4e01 100755
--- a/cest_ton_boot
+++ b/cest_ton_boot
@@ -74,6 +74,8 @@ $window->set_title( I_("ce soir tu choisis ton boot") );
 #$window->set_policy('automatic', 'automatic');
 $window->set_policy(0, 0, 0);
 $window->border_width (10);
+$window->realize;
+
 
 ### menus definition
 # the menus are not shown
@@ -141,7 +143,7 @@ $a_box->set_sensitive (0);
 $a_dedans->pack_start ($a_box, 0, 0, 0);
 
 # now for the pixmap from gdk
-my ( $pixmap, $mask ) = Gtk::Gdk::Pixmap->create_from_xpm_d( NULL, $window->get_style()->bg( 'normal' ), @xpm_data );
+my ( $pixmap, $mask ) = Gtk::Gdk::Pixmap->create_from_xpm( $window->window, $window->get_style()->bg( 'normal' ), "./c.xpm" );
 
 # a pixmap widget to contain the pixmap
 my $pixmapwid = new Gtk::Pixmap( $pixmap, $mask );
diff --git a/control-center3 b/control-center3
index 02b86255..651dcc3a 100755
--- a/control-center3
+++ b/control-center3
@@ -28,6 +28,8 @@ use POSIX;
 init Gtk;
 use Data::Dumper;
 
+my $false = 0;
+
 my $_xbindir = "/usr/X11R6/bin";
 my $_bindir = "/usr/bin";
 my $_sbindir = "/usr/sbin";
@@ -46,6 +48,8 @@ $window_global->signal_connect ( delete_event => sub { quit_global(); });
 $window_global->set_position(1);
 $window_global->set_title("Mandrake Control Center");
 $window_global->border_width(0);
+#$window_global->realize;
+
 
 $vbox_global = new Gtk::VBox(0, 0);
 $window_global->add($vbox_global);
@@ -293,25 +297,18 @@ sub xpm_label_box
 {
     my ( $parent, $xpm_filename, $label_text ) = @_;
     
-    my $box;
-    my $style;
-    my $pixmap;
-    my $mask;
-    my $pixmapwid;
-    my $label;
-    
     # Create box for xpm and label
-    $box = new Gtk::HBox( $false, 0 );
+    my $box = new Gtk::HBox( $false, 0 );
     
     # Get the style of the button to get the background color.  
-    $style = $parent->get_style()->bg( 'normal' );
+    my $style = $parent->get_style()->bg( 'normal' );
     
     # Now on to the xpm stuff
-    ($pixmap, $mask ) = Gtk::Gdk::Pixmap->create_from_xpm($parent->window, $style, $xpm_filename );
-    $pixmapwid = new Gtk::Pixmap( $pixmap, $mask );
+    my ($pixmap, $mask ) = Gtk::Gdk::Pixmap->create_from_xpm($parent->window, $style, $xpm_filename );
+    my $pixmapwid = new Gtk::Pixmap( $pixmap, $mask );
     
     # Create a label for the button
-    $label = new Gtk::Label( $label_text );
+    my $label = new Gtk::Label( $label_text );
     
     # Pack the pixmap and label into the box
     $box->pack_start( $pixmapwid, $false, $false, 3 );