fixed most of the warning

1 files changed, 9 insertions, 12 deletions

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 );