summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2005-07-05 07:31:24 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2005-07-05 07:31:24 +0000
commit2cea242328d456b4b35da360a09e773aa4781f0a (patch)
treed13ce9f7565ab02fcf79eca26016f6eb12fe3039 /perl-install
parentf7bc81b83f52240bbfbc3dcdaf10cfa549a76137 (diff)
downloaddrakx-2cea242328d456b4b35da360a09e773aa4781f0a.tar
drakx-2cea242328d456b4b35da360a09e773aa4781f0a.tar.gz
drakx-2cea242328d456b4b35da360a09e773aa4781f0a.tar.bz2
drakx-2cea242328d456b4b35da360a09e773aa4781f0a.tar.xz
drakx-2cea242328d456b4b35da360a09e773aa4781f0a.zip
fix layout somewhat
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/standalone/drakhosts10
-rw-r--r--perl-install/standalone/draknfs9
2 files changed, 11 insertions, 8 deletions
diff --git a/perl-install/standalone/drakhosts b/perl-install/standalone/drakhosts
index c48f8d1ad..f10c79043 100644
--- a/perl-install/standalone/drakhosts
+++ b/perl-install/standalone/drakhosts
@@ -217,16 +217,17 @@ my $okcancel = create_okcancel({
# main interface
$W->add(gtkpack_(Gtk2::VBox->new(0,0),
+ 0, Gtk2::Label->new("Here you cann add, remove and alter host definitions."),
1, create_scrolled_window($treeview),
- 0, gtkpack_(gtkset_border_width(Gtk2::HBox->new, 3),
- 0, gtksignal_connect(Gtk2::Button->new(N("Add a host")), clicked => sub {
+ 0, gtkpack_(gtkset_border_width(create_hbox('edge', 3)),
+ 0, gtksignal_connect(Gtk2::Button->new(N("Add")), clicked => sub {
eval { add_modify_entry($model, $treeview, "add") };
my $err = $@;
if ($err) {
err_dialog(N("Error"), N("Failed to add host.") . "\n\n" . $err);
}
}),
- 0, gtksignal_connect(Gtk2::Button->new(N("Modify a host")), clicked => sub {
+ 0, gtksignal_connect(Gtk2::Button->new(N("Modify")), clicked => sub {
eval { add_modify_entry($model, $treeview, "modify") };
my $err = $@;
if ($err) {
@@ -234,14 +235,13 @@ $W->add(gtkpack_(Gtk2::VBox->new(0,0),
}
}),
- 0, gtksignal_connect(Gtk2::Button->new(N("Remove a host")), clicked => sub {
+ 0, gtksignal_connect(Gtk2::Button->new(N("Remove")), clicked => sub {
eval { remove_entry($model, $treeview) };
my $err = $@;
if ($err) {
err_dialog(N("Error"), N("Failed to remove host.") . "\n\n" . $err);
}
}),
- 0, Gtk2::VSeparator->new,
),
if_($::isEmbedded, 0, $okcancel),
),
diff --git a/perl-install/standalone/draknfs b/perl-install/standalone/draknfs
index 09ce72e65..502f74d08 100644
--- a/perl-install/standalone/draknfs
+++ b/perl-install/standalone/draknfs
@@ -340,16 +340,18 @@ my $okcancel = create_okcancel({
# main interface
$W->add(gtkpack_(Gtk2::VBox->new(0,0),
+ 0, Gtk2::Label->new("Here you cann add, remove and alter NFS shares."),
1, create_scrolled_window($treeview),
0, gtkpack_(gtkset_border_width(Gtk2::HBox->new, 3),
- 0, gtksignal_connect(Gtk2::Button->new(N("Add an NFS share")), clicked => sub {
+ 1, gtkpack_(create_hbox('edge'),
+ 0, gtksignal_connect(Gtk2::Button->new(N("Add")), clicked => sub {
eval { add_modify_entry($model, $treeview, "add") };
my $err = $@;
if ($err) {
err_dialog(N("Error"), N("Failed to add NFS share.") . "\n\n" . $err);
}
}),
- 0, gtksignal_connect(Gtk2::Button->new(N("Modify an NFS share")), clicked => sub {
+ 0, gtksignal_connect(Gtk2::Button->new(N("Modify")), clicked => sub {
eval { add_modify_entry($model, $treeview, "modify") };
my $err = $@;
if ($err) {
@@ -357,13 +359,14 @@ $W->add(gtkpack_(Gtk2::VBox->new(0,0),
}
}),
- 0, gtksignal_connect(Gtk2::Button->new(N("Remove an NFS share")), clicked => sub {
+ 0, gtksignal_connect(Gtk2::Button->new(N("Remove")), clicked => sub {
eval { remove_entry($model, $treeview) };
my $err = $@;
if ($err) {
err_dialog(N("Error"), N("Failed to remove an NFS share.") . "\n\n" . $err);
}
}),
+ ),
0, Gtk2::VSeparator->new,
0, gtksignal_connect(Gtk2::Button->new(N("Reload NFS server")), clicked => sub {
system("/sbin/service nfs reload");