From 0a215b8d5241692cc8e76ea7c17283b96fbf9666 Mon Sep 17 00:00:00 2001 From: Stew Benedict Date: Thu, 4 Sep 2003 16:11:46 +0000 Subject: Add application title in banner. --- perl-install/standalone/drakTermServ | 19 ++++++++++++++++++- 1 file changed, 18 insertions(+), 1 deletion(-) (limited to 'perl-install/standalone') diff --git a/perl-install/standalone/drakTermServ b/perl-install/standalone/drakTermServ index 90191fd24..9a0fc48d7 100755 --- a/perl-install/standalone/drakTermServ +++ b/perl-install/standalone/drakTermServ @@ -231,17 +231,34 @@ sub display_error { } sub interactive_mode() { + my $darea; + $window1 = ugtk2->new('drakTermServ'); $window1->{rwindow}->signal_connect(delete_event => sub { ugtk2->exit(0) }); unless ($::isEmbedded) { $window1->{rwindow}->set_position('center'); $window1->{rwindow}->set_title(N("Mandrake Terminal Server Configuration")); + my $pixbuf_icon = gtkcreate_pixbuf("ic82-network-40"); + $darea = Gtk2::DrawingArea->new; + $darea->set_size_request(540, 45); + $darea->modify_font(Gtk2::Pango::FontDescription->from_string('Sans Italic 24')); + my $layout = $darea->create_pango_layout(N("DrakTermServ")); + $darea->signal_connect(realize => sub { + set_back_pixbuf($darea, gtkcreate_pixbuf('title-tile')) + }); + $darea->signal_connect(expose_event => sub { + my (undef, undef, $dx, $dy) = $darea->allocation->values; + $darea->window->draw_pixbuf($darea->style->white_gc, $pixbuf_icon, 0, 0, $dx - $pixbuf_icon->get_width, $dy - $pixbuf_icon->get_height, -1, -1, 'none', 0, 0); + my ($lx, $ly) = $layout->get_pixel_size; + $darea->window->draw_layout($darea->style->white_gc, ($dx-$lx)/2, ($dy-$ly)/2, $layout); + 0; + }); } $window1->{rwindow}->set_border_width(5); gtkadd($window1->{window}, gtkpack_(gtkset_size_request(new Gtk2::VBox(0,2), 620, 400), - if_(!$::isEmbedded, 0, gtkcreate_img("drakTS.620x57")), + if_(!$::isEmbedded, 0, $darea), 1, gtkpack_(new Gtk2::HBox(0,2), 1, gtkpack_(new Gtk2::VBox(0,2), 1, gtkpack($status_box = new Gtk2::VBox(0,5), -- cgit v1.2.1