Hi all,
I am trying to include the Display Manager configuration in drakboot.
I am not a perl and gtk guru and I just look at what have already be done. The
layout of the widget is not very good but if you are interrested here is a
patch for /usr/lib/libDrakX/bootlook.pm
It allow you to choose the Display Manager between XDM, GDM, KDM, and KDE (for
mdkkdm).
Thanks
50d49
< my $auto_mode_dm = get_display_manager();
85,87d83
< my $display_manager_combo = new Gtk2::Combo;
< $display_manager_combo->set_popdown_strings(get_dm());
< $display_manager_combo->entry->set_text($auto_mode_dm) if $auto_mode_dm;
339,348d334
< ),
<
< gtkadd(new Gtk2::Frame(N("Display Manager")),
< gtkpack__(new Gtk2::VBox(0, 5),
< gtkpack__(new Gtk2::HBox(0, 10),
< gtkpack__(new Gtk2::VBox(0, 10),
< $display_manager_combo
< )
< )
< )
351c337
< gtksignal_connect(new Gtk2::Button(N("OK")), clicked => sub { Xconfig::various::runlevel($x_mode ? 5 : 3); updateAutologin(); updateAurora(); updateDisplayManager(); $::isEmbedded ? kill('USR1',$::CCPID) : Gtk2->exit(0) }),
---
> gtksignal_connect(new Gtk2::Button(N("OK")), clicked => sub { Xconfig::various::runlevel($x_mode ? 5 : 3); updateAutologin(); updateAurora(); $::isEmbedded ? kill('USR1',$::CCPID) : Gtk2->exit(0) }),
355d340
<
439,470d423
<
< #------------------------------------------------------------
< # Display Manager functions
< #------------------------------------------------------------
<
< sub get_dm {
< @winm = ["KDM", "KDE", "GNOME"];
< }
<
< sub get_display_manager {
< my %l = getVarsFromSh("$::prefix/etc/sysyconfig/desktop");
< if ($l{DISPLAYMANAGER} eq "gdm") {$l{DISPLAYMANAGER} = "GDM";}
< if ($l{DISPLAYMANAGER} eq "GNOME") {$l{DISPLAYMANAGER} = "GDM";}
< if ($l{DISPLAYMANAGER} eq "Gnome") {$l{DISPLAYMANAGER} = "GDM";}
< if ($l{DISPLAYMANAGER} eq "gnome") {$l{DISPLAYMANAGER} = "GDM";}
<
< if ($l{DISPLAYMANAGER} eq "kde") {$l{DISPLAYMANAGER} = "KDE";}
<
< if ($l{DISPLAYMANAGER} eq "xdm") {$l{DISPLAYMANAGER} = "XDM";}
<
< return $l{DISPLAYMANAGER};
< }
<
< sub updateDisplayManager {
< my $display_manager = $display_manager_combo->entry->get_text();
<
< my %l = getVarsFromSh("$::prefix/etc/sysconfig/desktop");
< $l{DISPLAYMANAGER} = $display_manager;
< setVarsInSh("$::prefix/etc/sysconfig/desktop", \%l);
< }
<
<
