From 4f652a8ed66a3c8cef89170f9845fbd1cc02296a Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 19 Nov 2013 00:51:47 +0100 Subject: perlish $dialog->vbox => $dialog->get_child --- bin/drakhosts | 2 +- bin/draknetprofile | 2 +- bin/draknfs | 2 +- bin/draksambashare | 6 +++--- lib/network/drakconnect/edit.pm | 2 +- old/drakconnect-old | 6 +++--- old/net_monitor | 2 +- 7 files changed, 11 insertions(+), 11 deletions(-) diff --git a/bin/drakhosts b/bin/drakhosts index d93095c..17ecea5 100755 --- a/bin/drakhosts +++ b/bin/drakhosts @@ -108,7 +108,7 @@ sub add_modify_entry { $text = N("Please delete information") if $wanted =~ /delete/; $text = N("Please add information") if $wanted =~ /add/; - gtkpack__($dialog->vbox, + gtkpack__($dialog->get_child, gtknew('Title2', label => $text), $label_and_widgets->(N("IP address:"), $ip), $label_and_widgets->(N("Host name:"), $hostname), diff --git a/bin/draknetprofile b/bin/draknetprofile index 4df4330..d394b28 100755 --- a/bin/draknetprofile +++ b/bin/draknetprofile @@ -158,7 +158,7 @@ sub clone_profile() { #my $source_profile = get_selected_profile(); my $dialog = _create_dialog(N("New profile...")); my $entry_dialog = Gtk3::Entry->new; - gtkpack($dialog->vbox, + gtkpack($dialog->get_child, Gtk3::WrappedLabel->new(N("Please specify the name of the new network profile to be created (e.g., work, home, roaming, ..). This new profile will be created based on current settings, and you'll be able to configure your system configuration as usual afterwards.")), $entry_dialog, ); diff --git a/bin/draknfs b/bin/draknfs index b071807..f23b74e 100755 --- a/bin/draknfs +++ b/bin/draknfs @@ -194,7 +194,7 @@ sub help_b { my ($help_data) = @_; gtksignal_connect(gtknew('Button', text => N("Information")), clicked => sub { my $dialog = _create_dialog(N("Help"), { transient_for => $::main_window, modal => 1 }); - gtkpack_($dialog->vbox, + gtkpack_($dialog->get_child, 1, gtknew('ScrolledWindow', width => 390, height => 300, child => gtknew('TextView', text => ugtk3::markup_to_TextView_format(formatAlaTeX($help_data))) ), diff --git a/bin/draksambashare b/bin/draksambashare index 92209f0..8ccaac5 100755 --- a/bin/draksambashare +++ b/bin/draksambashare @@ -376,7 +376,7 @@ sub add_entry() { my $dialog = _create_dialog(N("DrakSamba add entry"), { transient_for => $::main_window, modal => 1 }); local $::main_window = $dialog; - gtkpack_($dialog->vbox, + gtkpack_($dialog->get_child, 0, gtkadd(Gtk3::Frame->new(N("Add a share")), gtkpack_(gtkset_border_width(Gtk3::VBox->new, 3), 0, gtkpack_(gtkset_border_width(Gtk3::VBox->new, 1), @@ -582,7 +582,7 @@ sub modify_printers_entry { $printing->set_sensitive(0); } - gtkpack_($dialog->vbox, + gtkpack_($dialog->get_child, 0, gtkadd(Gtk3::Frame->new(N("Printer share")), gtkpack_(gtkset_border_width(Gtk3::HBox->new, 3), 0, gtkpack_(gtkset_border_width(Gtk3::VBox->new, 1), @@ -929,7 +929,7 @@ sub modify_user_info { $bpasswd = Gtk3::Entry->new; $bpasswd->set_visibility(0); - gtkpack_($dialog->vbox, + gtkpack_($dialog->get_child, 0, gtkadd(Gtk3::Frame->new(N("User information")), gtkpack_(gtkset_border_width(Gtk3::VBox->new, 5), 0, $label_and_widgets->(N("User name:"), $buser, ""), diff --git a/lib/network/drakconnect/edit.pm b/lib/network/drakconnect/edit.pm index aaf3788..965cc91 100644 --- a/lib/network/drakconnect/edit.pm +++ b/lib/network/drakconnect/edit.pm @@ -465,7 +465,7 @@ sub save { my ($in, $net, $modules_conf, $p, $apply_button) = @_; my $dialog = _create_dialog(N("Please wait")); - gtkpack($dialog->vbox, + gtkpack($dialog->get_child, gtkshow(Gtk3::Label->new(N("Please Wait... Applying the configuration")))); $dialog->show_all; gtkset_mousecursor_wait(); diff --git a/old/drakconnect-old b/old/drakconnect-old index 46d4ad4..2594418 100755 --- a/old/drakconnect-old +++ b/old/drakconnect-old @@ -113,7 +113,7 @@ $window1->{window}->add( gtksignal_connect(Gtk3::Button->new(N("Ok")), clicked => sub { if ($button_apply->get('sensitive')) { my $dialog = _create_dialog(N("Please wait")); - gtkpack($dialog->vbox, + gtkpack($dialog->get_child, Gtk3::Label->new(N("Please Wait... Applying the configuration"))); $dialog->show_all; gtkflush(); @@ -174,7 +174,7 @@ sub configure_lan() { my @card_tab; if (@all_cards < 1) { - $window->vbox->add(Gtk3::Label->new(N("You do not have any configured interface. + $window->get_child->add(Gtk3::Label->new(N("You do not have any configured interface. Configure them first by clicking on 'Configure'"))); gtkpack(gtkset_layout($window->action_area, 'end'), gtksignal_connect(Gtk3::Button->new(N("Ok")), @@ -187,7 +187,7 @@ Configure them first by clicking on 'Configure'"))); } $window->set_border_width(10); - gtkpack($window->vbox, + gtkpack($window->get_child, Gtk3::Label->new(N("LAN Configuration")), my $notebook = Gtk3::Notebook->new, ); diff --git a/old/net_monitor b/old/net_monitor index 3d1ee56..df8aad0 100755 --- a/old/net_monitor +++ b/old/net_monitor @@ -383,7 +383,7 @@ sub get_val() { sub change_color { my ($color) = @_; my $dialog = _create_dialog(N("Color configuration")); - $dialog->vbox->add(my $colorsel = Gtk3::ColorSelection->new); + $dialog->get_child->add(my $colorsel = Gtk3::ColorSelection->new); $colorsel->set_current_color($color); $dialog->add_button(N("Cancel"), 'cancel'); $dialog->add_button(N("Ok"), 'ok'); -- cgit v1.2.1