diff options
| -rwxr-xr-x | control-center | 86 |
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; |