diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-09-15 13:41:51 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-09-15 13:41:51 +0000 |
| commit | ae1ca0772cea076c0098a83c15de2581e8aee3f5 (patch) | |
| tree | 3df8809b28956670bca8ba3b447409c5d8bdfdd5 /perl-install/install_steps_gtk.pm | |
| parent | 1e19a1f7ea181f9fd40e0f81ac3b7fda8563d391 (diff) | |
| download | drakx-backup-do-not-use-ae1ca0772cea076c0098a83c15de2581e8aee3f5.tar drakx-backup-do-not-use-ae1ca0772cea076c0098a83c15de2581e8aee3f5.tar.gz drakx-backup-do-not-use-ae1ca0772cea076c0098a83c15de2581e8aee3f5.tar.bz2 drakx-backup-do-not-use-ae1ca0772cea076c0098a83c15de2581e8aee3f5.tar.xz drakx-backup-do-not-use-ae1ca0772cea076c0098a83c15de2581e8aee3f5.zip | |
- add and use aewm-drakx
- add some "skip" title on help/logo/steps windows so that aewm-drakx know they don't need keyboard focus
- add some more title to ease debugging (when aewm-drakx is in debug mode)
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
| -rw-r--r-- | perl-install/install_steps_gtk.pm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index 36f183245..471e322fe 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -33,8 +33,6 @@ sub new($$) { $ENV{DISPLAY} ||= $o->{display} || ":0"; unless ($::testing) { - $my_gtk::force_focus = $ENV{DISPLAY} eq ":0"; - if ($ENV{DISPLAY} eq ":0" && !$::live) { my $f = "/tmp/Xconf"; install_gtk::createXconf($f, @{$o->{mouse}}{"XMOUSETYPE", "device"}, $o->{wacom}[0]); @@ -58,7 +56,10 @@ sub new($$) { foreach (1..60) { sleep 1; log::l("Server died"), return 0 if !$ok; - return 1 if c::Xtest($ENV{DISPLAY}); + if (c::Xtest($ENV{DISPLAY})) { + fork || exec("aewm-drakx") || exec("true"); + return 1; + } } log::l("Timeout!!"); 0; @@ -155,7 +156,7 @@ sub selectInstallClass1 { my ($o, $verif, $l, $def, $l2, $def2) = @_; $::live || @$l == 1 and return $o->SUPER::selectInstallClass1($verif, $l, $def, $l2, $def2); - my $w = my_gtk->new(''); + my $w = my_gtk->new(_("Install Class")); my $focused; gtkadd($w->{window}, gtkpack($w->create_box_with_title(_("Please, choose one of the following classes of installation:")), |