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 --- old/drakconnect-old | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'old/drakconnect-old') 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, ); -- cgit v1.2.1