diff options
author | Daouda Lo <daouda@mandriva.com> | 2001-08-28 13:35:47 +0000 |
---|---|---|
committer | Daouda Lo <daouda@mandriva.com> | 2001-08-28 13:35:47 +0000 |
commit | ee31ecd75df417c84f13234ac15223eb042f67a2 (patch) | |
tree | e7f6f93c12bc85671dc5532dc6dfa8a24d845230 /mdkonline | |
parent | 4114dd7fcce48881e34c44b36d2f1689000c79a4 (diff) | |
download | mgaonline-ee31ecd75df417c84f13234ac15223eb042f67a2.tar mgaonline-ee31ecd75df417c84f13234ac15223eb042f67a2.tar.gz mgaonline-ee31ecd75df417c84f13234ac15223eb042f67a2.tar.bz2 mgaonline-ee31ecd75df417c84f13234ac15223eb042f67a2.tar.xz mgaonline-ee31ecd75df417c84f13234ac15223eb042f67a2.zip |
suid root
Diffstat (limited to 'mdkonline')
-rwxr-xr-x | mdkonline | 21 |
1 files changed, 19 insertions, 2 deletions
@@ -29,6 +29,9 @@ setlocale (LC_ALL, ""); Locale::GetText::textdomain ("MdkOnline"); import Locale::GetText I_; +use lib qw(/usr/lib/libDrakX); +use interactive; +my $in = 'interactive'->vnew('su', 'default'); sub _ { my $s = shift @_; my $t = I_($s); @@ -117,7 +120,11 @@ sub step_wizard { write_on_pixmaps($vbox_priv,"$x/privacy.png",_("Mandrake Privacy"),540,100); get_on_privacy($vbox_priv); $notebook_global->append_page($vbox_priv,new Gtk::Label("club")); -# my $vbox_ident= new Gtk::Vbox(0,0); + my $vbox_ident= new Gtk::VBox(0,0); + map { + pack_box_identity($vbox_ident,$_->[0],$_->[1],$_->[2]); + } ([_("Login:"),$login_user], [_("Password"),$passwd_user]); + $notebook_global->append_page($vbox_ident,new Gtk::Label("login")); } @@ -127,7 +134,7 @@ sub confirm_quit { my $bbox1 = new Gtk::HButtonBox; $window_about->action_area->pack_start($bbox1,0,0,0); - + my $button_cancel = new Gtk::Button(_("Cancel")); $button_cancel->signal_connect_object("clicked",$window_about => 'destroy'); $bbox1->add($button_cancel); @@ -146,6 +153,16 @@ sub confirm_quit { $window_about->set_modal(1); } +sub pack_box_identity { + my ($vbox,$label,$entry)=@_; + my $table = new Gtk::Table( 1, 2, $true ); + my $Label_wg=new Gtk::Label($label); + $Label_wg->set_justify(left); + $table->attach_defaults( $Label_wg, 0, 1, 0, 1); + $table->attach_defaults( $entry, 1, 2, 0, 1 ); + $vbox->pack_start($table,$true,$true,1); +} + sub load_text { my ($text,$file)=@_; open( FILE, $file ); |