diff options
Diffstat (limited to 'control-center3')
| -rwxr-xr-x | control-center3 | 21 |
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 ); |