diff options
Diffstat (limited to 'bin/drakhosts')
| -rw-r--r-- | bin/drakhosts | 35 |
1 files changed, 17 insertions, 18 deletions
diff --git a/bin/drakhosts b/bin/drakhosts index 32c6fd1..cdd5a22 100644 --- a/bin/drakhosts +++ b/bin/drakhosts @@ -1,6 +1,6 @@ #!/usr/bin/perl # -# Copyright (C) 2005 by Mandriva aginies _ateuh_ mandriva.com +# Copyright (C) 2005-2006 by Mandriva aginies _ateuh_ mandriva.com # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by @@ -28,6 +28,8 @@ use strict; use common; use network::network; +$ugtk2::wm_icon = 'IC-Dhost-48'; +use mygtk2 qw(gtknew); use ugtk2 qw(:ask :wrappers :create :dialogs); use constant FALSE => 0; @@ -47,7 +49,7 @@ my %size_groups = map { $_ => Gtk2::SizeGroup->new('horizontal') } qw(label widg my $label_and_widgets = sub { my ($label, $widget) = @_; gtkpack_(Gtk2::HBox->new(0,5), - 0, gtkadd_widget($size_groups{label}, $label), + 0, gtkadd_widget($size_groups{label}, gtknew('Label_Left', text => $label)), 1, gtkadd_widget($size_groups{widget}, $widget), ); }; @@ -74,7 +76,7 @@ sub write_conf_hosts() { } sub add_modify_entry { - my ($treeview, $wanted) = @_; + my ($treeview, $wanted, $title) = @_; my $model = $treeview->get_model; my $selection = $treeview->get_selection; my $iter; @@ -88,7 +90,7 @@ sub add_modify_entry { my $dialog = _create_dialog(); $dialog->set_transient_for($::main_window); - $dialog->set_title("Drakhosts $wanted entry"); + $dialog->set_title($title); $dialog->set_modal(1); $dialog->set_resizable(1); $dialog->set_size_request(300, -1); @@ -109,15 +111,12 @@ sub add_modify_entry { $text = N("Please delete information") if $wanted =~ /delete/; $text = N("Please add information") if $wanted =~ /add/; - gtkpack_($dialog->vbox, - 0, gtkadd(Gtk2::Frame->new($text), - gtkpack_(gtkset_border_width(Gtk2::VBox->new, 5), - 0, $label_and_widgets->(N("IP address:"), $ip), - 0, $label_and_widgets->(N("Host name:"), $hostname), - 0, $label_and_widgets->(N("Host Aliases:"), $alias), - ), - ), - 0, create_okcancel({ + gtkpack__($dialog->vbox, + gtknew('Title2', label => $text), + $label_and_widgets->(N("IP address:"), $ip), + $label_and_widgets->(N("Host name:"), $hostname), + $label_and_widgets->(N("Host Aliases:"), $alias), + create_okcancel({ cancel_clicked => sub { $dialog->destroy }, ok_clicked => sub { is_ip($ip->get_text) or err_dialog(N("Error!"), N("Please enter a valid IP address.")) and return; @@ -204,7 +203,7 @@ sub add_columns { # create model my $model = create_model(); -my $window = ugtk2->new("Drakhosts"); +my $window = ugtk2->new(N("Manage hosts definitions")); $::main_window = $window->{real_window}; $window->{rwindow}->set_size_request(500, 400) unless $::isEmbedded; my $W = $window->{window}; @@ -220,7 +219,7 @@ $treeview->signal_connect(button_press_event => sub { my $selection = $treeview->get_selection; my $iter = $selection->get_selected; if ($iter) { - add_modify_entry($treeview, "modify") if $event->type eq '2button-press'; + add_modify_entry($treeview, 'modify', N("Modify entry")) if $event->type eq '2button-press'; } }); @@ -234,20 +233,20 @@ my $okcancel = create_okcancel({ # main interface $W->add(gtkpack_(Gtk2::VBox->new(0,0), - if_(!$::isEmbedded, 0, Gtk2::Banner->new('IC-Dhost-48', N("DrakHOSTS manage hosts definitions"))), + if_(!$::isEmbedded, 0, Gtk2::Banner->new('IC-Dhost-48', N("Manage hosts definitions"))), #if_($::isEmbedded, 0, Gtk2::Label->new("Here you can add, remove and alter hosts definition.")), 1, gtkpack_(gtkset_border_width(Gtk2::HBox->new, 0), 1, create_scrolled_window($treeview), 0, gtkpack_(gtkset_border_width(create_vbox('start', 3)), 0, gtksignal_connect(Gtk2::Button->new(N("Add")), clicked => sub { - eval { add_modify_entry($treeview, "add") }; + eval { add_modify_entry($treeview, 'add', N("Add entry")) }; my $err = $@; if ($err) { err_dialog(N("Error"), N("Failed to add host.") . "\n\n" . $err); } }), 0, gtksignal_connect(Gtk2::Button->new(N("Modify")), clicked => sub { - eval { add_modify_entry($treeview, "modify") }; + eval { add_modify_entry($treeview, 'modify', N("Modify entry")) }; my $err = $@; if ($err) { err_dialog(N("Error"), N("Failed to Modify host.") . "\n\n" . $err); |