diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2009-10-05 13:39:06 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2009-10-05 13:39:06 +0000 |
| commit | ab3f8f5ab5a4b0f32c4c796d8ccd33909fcd0d04 (patch) | |
| tree | 707ad76ca34d48156321d0a853f50c743271faba /perl-install/standalone | |
| parent | 45b3050245040aa2a14a8c07b7f17e4da4949ac2 (diff) | |
| download | drakx-ab3f8f5ab5a4b0f32c4c796d8ccd33909fcd0d04.tar drakx-ab3f8f5ab5a4b0f32c4c796d8ccd33909fcd0d04.tar.gz drakx-ab3f8f5ab5a4b0f32c4c796d8ccd33909fcd0d04.tar.bz2 drakx-ab3f8f5ab5a4b0f32c4c796d8ccd33909fcd0d04.tar.xz drakx-ab3f8f5ab5a4b0f32c4c796d8ccd33909fcd0d04.zip | |
fix check for first time wizard, thus really do no display "Help"
title for first time wizard
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/display_help | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/perl-install/standalone/display_help b/perl-install/standalone/display_help index 162ede7cc..5f56f2ffc 100755 --- a/perl-install/standalone/display_help +++ b/perl-install/standalone/display_help @@ -34,8 +34,9 @@ $view->open($ARGV[0]); my ($rootwin_width, $rootwin_height) = gtkroot()->get_size; my ($default_width, $default_height); my $wm = any::running_window_manager(); +my $is_firstime = to_bool($wm =~ /drakx-matchbox-window-manager/); -if ($wm) { +if (!$is_firstime) { # wide enough to embedd help snapshots: $default_width = $rootwin_width <= 800 ? 720 : 840; $default_height = $rootwin_height <= 480 ? 420 : $rootwin_height <= 600 ? 523 : 600; @@ -49,12 +50,12 @@ my $w = ugtk2->new(N("Help"), width => $default_width, height => $default_height gtkadd($w->{rwindow}, gtkpack_(Gtk2::VBox->new, - if_($wm, 0, gtknew('Title2', label => N("Help"))), + if_(!$is_firstime, 0, gtknew('Title2', label => N("Help"))), 0, Gtk2::HSeparator->new, 1, create_scrolled_window(gtkset_border_width($view, 5), [ 'never', 'automatic' ]), #1, gtknew('ScrolledWindow', child => $view, border_width => 5, h_policy => 'never'); 0, Gtk2::HSeparator->new, - #if_($wm, # We have JavaScritp issues for now, so let's keep the "close" button: + #if_($_firsttime, # We have JavaScritp issues for now, so let's keep the "close" button: 0, gtkpack(create_hbox('end'), gtknew('Button', text => N("Close"), clicked => sub { Gtk2->main_quit }) ), |