diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakconnect | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect index 08e2ab3e1..e77d8c5f8 100755 --- a/perl-install/standalone/drakconnect +++ b/perl-install/standalone/drakconnect @@ -984,8 +984,9 @@ Please run \"Internet access\" in control center.")); 5), ), 1, gtkadd(Gtk2::Frame->new(N("Parameters")), $param_vbox), - 0, gtkpack_(Gtk2::HBox->new, - 0, gtksignal_connect(Gtk2::Button->new(N("Ok")), clicked => sub { + 0, gtkpack(create_hbox('edge'), + gtksignal_connect(Gtk2::Button->new(N("Cancel")), clicked => $exit_dialogsub), + gtksignal_connect(Gtk2::Button->new(N("Ok")), clicked => sub { each_index { ${$conf_data[$::i][1]} = $infos[2*$::i+1]->get_text if $_; } @mask; @@ -993,8 +994,6 @@ Please run \"Internet access\" in control center.")); $button_apply->set_sensitive(1); $exit_dialogsub->(); }), - 1, Gtk2::Label->new(""), - 0, gtksignal_connect(Gtk2::Button->new(N("Cancel")), clicked => $exit_dialogsub), ), ), ); |