summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xcontrol-center86
1 files changed, 44 insertions, 42 deletions
diff --git a/control-center b/control-center
index 65a945c3..5b3bd402 100755
--- a/control-center
+++ b/control-center
@@ -289,50 +289,52 @@ $darea_title->signal_connect( expose_event => sub {
});
my ($pixmap_back_right, undef) = gtkcreate_png('mcc-core-back');
+
my ($pix_splash_map, undef) = gtkcreate_png('mcc-splash');
my $pix_dbl;
-#$notebook_global->append_page(gtkset_usize(my $fixed_about = new Gtk::Fixed, 540, 460), undef);
-#$fixed_about->put(gtkset_usize(my $darea1 = new Gtk::DrawingArea, 540, 460), 0, 0);
-#$darea1->signal_connect( size_allocate => sub { $pix_dbl = undef });
-#$darea1->signal_connect( expose_event => sub {
-# my ($dx, $dy) = ($darea1->allocation->[2], $darea1->allocation->[3]);
-# if (!defined($pix_dbl)) {
-# $pix_dbl = new Gtk::Gdk::Pixmap($darea1->window, $dx, $dy);
-
-# # fill_tiled($darea1, $pix_dbl, $pixmap_back_right, 540, 460, $dx, $dy);
-# $pix_dbl->draw_pixmap($darea1->style->white_gc, $pix_splash_map,
-# 0, 0, ($dx-540)/2, ($dy-460)/2, 540, 460);
-# my $style = new Gtk::Style;
-# my $style_dflt = new Gtk::Style;
-# $style->font(Gtk::Gdk::Font->fontset_load(_("-urw-helvetica-medium-r-normal-*-*-190-*-*-p-*-iso8859-1")));
-# #_("-adobe-times-bold-r-normal--17-*-100-100-p-*-iso8859-*,*-r-*")));
-# $pix_dbl->draw_string($style->font, $darea1->style->black_gc, 80, 165, _("Welcome to the Mandrake Control Center") );
-# my @revtree;
-# open VERS, "/etc/mandrake-release" or die _("cannot open this file for read: %s", $!);
-# while (<VERS>) { push (@revtree,$_) }
-# my @info_tree = split / /, $revtree[0];
-# my ($sysname, $nodename, $release, $version, $machine) = POSIX::uname();
-# my $style1 = new Gtk::Style;
-# $style1->font(Gtk::Gdk::Font->fontset_load(_("-urw-helvetica-medium-r-normal-*-*-90-*-*-p-*-iso8859-1")));
-# #_("-adobe-times-bold-r-normal--14-*-100-100-p-*-iso8859-*,*-r-*")));
-# my $i=0;
-# foreach(
-# [_("System:"), "$info_tree[0] $info_tree[1] $info_tree[3] $info_tree[4]"],
-# [_("Hostname:"), $nodename],
-# [_("Kernel Version:"), "$release $version"],
-# [_("Machine:"), $machine] ) {
-# $pix_dbl->draw_string($style_dflt->font, $darea1->style->black_gc, 80, 200+$i, $_->[0]);
-# $pix_dbl->draw_string($style_dflt->font, $darea1->style->black_gc, 81, 200+$i, $_->[0]);
-# $pix_dbl->draw_string($style_dflt->font, $darea1->style->black_gc, 200, 200+$i, $_->[1]);
-# $i+=20;
-# }
-# }
-# $darea1->window->draw_pixmap ($darea1->style->white_gc,
-# $pix_dbl, 0, 0,
-# ($darea1->allocation->[2]-540)/2, ($darea1->allocation->[3]-460)/2,
-# 540, 460);
-# 0;
-# });
+$notebook_global->append_page(createScrolledWindow(my $fixed_about = new Gtk::Fixed, ['automatic', 'automatic']), undef);
+$fixed_about->put(gtkset_usize(my $darea1 = new Gtk::DrawingArea, 540, 460), 0, 0);
+$fixed_about->signal_connect(realize => sub { $fixed_about->window->set_back_pixmap($pix_splash_map, 0) });
+$darea1->signal_connect( size_allocate => sub { $pix_dbl = undef });
+$darea1->signal_connect( expose_event => sub {
+ my ($dx, $dy) = ($darea1->allocation->[2], $darea1->allocation->[3]);
+ if (!defined($pix_dbl)) {
+ $pix_dbl = new Gtk::Gdk::Pixmap($darea1->window, $dx, $dy);
+
+# fill_tiled($darea1, $pix_dbl, $pixmap_back_right, 540, 460, $dx, $dy);
+ $pix_dbl->draw_pixmap($darea1->style->white_gc, $pix_splash_map,
+ 0, 0, ($dx-540)/2, ($dy-460)/2, 540, 460);
+ my $style = new Gtk::Style;
+ my $style_dflt = new Gtk::Style;
+ $style->font(Gtk::Gdk::Font->fontset_load(_("-urw-helvetica-medium-r-normal-*-*-190-*-*-p-*-iso8859-1")));
+ #_("-adobe-times-bold-r-normal--17-*-100-100-p-*-iso8859-*,*-r-*")));
+ $pix_dbl->draw_string($style->font, $darea1->style->black_gc, 80, 165, _("Welcome to the Mandrake Control Center") );
+ my @revtree;
+ open VERS, "/etc/mandrake-release" or die _("cannot open this file for read: %s", $!);
+ while (<VERS>) { push (@revtree,$_) }
+ my @info_tree = split / /, $revtree[0];
+ my ($sysname, $nodename, $release, $version, $machine) = POSIX::uname();
+ my $style1 = new Gtk::Style;
+ $style1->font(Gtk::Gdk::Font->fontset_load(_("-urw-helvetica-medium-r-normal-*-*-90-*-*-p-*-iso8859-1")));
+ #_("-adobe-times-bold-r-normal--14-*-100-100-p-*-iso8859-*,*-r-*")));
+ my $i=0;
+ foreach(
+ [_("System:"), "$info_tree[0] $info_tree[1] $info_tree[3] $info_tree[4]"],
+ [_("Hostname:"), $nodename],
+ [_("Kernel Version:"), "$release $version"],
+ [_("Machine:"), $machine] ) {
+ $pix_dbl->draw_string($style_dflt->font, $darea1->style->black_gc, 80, 200+$i, $_->[0]);
+ $pix_dbl->draw_string($style_dflt->font, $darea1->style->black_gc, 81, 200+$i, $_->[0]);
+ $pix_dbl->draw_string($style_dflt->font, $darea1->style->black_gc, 200, 200+$i, $_->[1]);
+ $i+=20;
+ }
+ }
+ $darea1->window->draw_pixmap ($darea1->style->white_gc,
+ $pix_dbl, 0, 0,
+ ($darea1->allocation->[2]-540)/2, ($darea1->allocation->[3]-460)/2,
+ 540, 460);
+ 0;
+ });
$window_global->realize;