diff options
| -rw-r--r-- | perl-install/NEWS | 1 | ||||
| -rwxr-xr-x | perl-install/standalone/display_help | 7 |
2 files changed, 5 insertions, 3 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS index 3560493f5..19a78f3fa 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -1,5 +1,6 @@ - display_help o block right click contextual menu + o do not display "Help" title for first time wizard Version 12.57 - 5 October 2009 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 }) ), |