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); < } < <