From b3461ea470c446fc6dffea10733f8d5b98c70511 Mon Sep 17 00:00:00 2001 From: damien Date: Thu, 20 Jul 2000 12:30:41 +0000 Subject: see changelog. 20 jul 2000 --- docs/HACKING | 23 +++++++++++++++++++++++ perl-install/ChangeLog | 6 ++++++ perl-install/Xconfigurator.pm | 10 +++++----- 3 files changed, 34 insertions(+), 5 deletions(-) diff --git a/docs/HACKING b/docs/HACKING index 983215c13..84a5bae11 100644 --- a/docs/HACKING +++ b/docs/HACKING @@ -48,3 +48,26 @@ NEVER compile and/or execute DrakX as root! DindinX Last change: Mon Feb 21 12:47:06 CET 2000 + +(dam's): + +Here is how I made it work on my computer. +------------------------------------------ + +- get the sources +- install the librairies needed included newt-devel gtk+-devel popt-devel popt gtk-engines +- cd path/to/gi +- make +- mkdir /usr/share/gtk +- ln -s path/to/gi/perl-install/share/themes /usr/share/gtk +- ln -s path/to/gi/perl-install/share/step-* /usr/share +- have a cd architecture linked on /export +- ln -s /export /tmp/rhimage +- export PERL_INSTALL_TEST=1 +- cd path/to/gi/perl-install +- ./install2 in root (dangerous) or chmod a+r /dev/hd* and ./install2 in user + +-- + dam's + Last change : Thu Jul 20 14:15:30 CET 2000 + diff --git a/perl-install/ChangeLog b/perl-install/ChangeLog index 12190b7cc..d7f138c8b 100644 --- a/perl-install/ChangeLog +++ b/perl-install/ChangeLog @@ -1,3 +1,9 @@ +2000-07-20 dam's + + * Xconfigurator.pm: use {miscellaneous}{autologuser} instead of + {miscellaneous}{autologuser} + {miscellaneous}{autologing}. + * move some README content to ../HACKING + 2000-07-19 dam's * Xconfigurator.pm: added autologin boxes. diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm index f2cb51bcf..ef4ba3a6a 100644 --- a/perl-install/Xconfigurator.pm +++ b/perl-install/Xconfigurator.pm @@ -1026,14 +1026,14 @@ Would you like X to start when you reboot?"), 1); $l{uid} > 500, $l{name}; } cat_("$o->{prefix}/etc/passwd"); - if (exists $o->{miscellaneous}{autologin} || $::auto || @users + if (exists $o->{miscellaneous}{autologuser} || $::auto || @users || $in->ask_yesorno(_("Autologin at startup"), _("I can set up your computer to automatically log on one user. Would you like to use this feature?"), 1)) { - $o->{miscellaneous}{autologin} = $in->ask_from_entries_refH(_("Autologin"), - _("Autologin - Choose default user\n"), - [ _("Choose the default user :") => {val => \$o->{miscellaneous}{autologuser}, list => \@users, not_edit => 1} ], - ); + $in->ask_from_entries_refH(_("Autologin"), + _("Autologin - Choose default user\n"), + [ _("Choose the default user :") => {val => \$o->{miscellaneous}{autologuser}, list => \@users, not_edit => 1} ], + ); } } run_program::rooted($prefix, "chkconfig", "--del", "gpm") if $o->{mouse}{device} =~ /ttyS/ && !$::isStandalone; -- cgit v1.2.1