diff options
author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-19 00:51:47 +0100 |
---|---|---|
committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-24 11:00:44 +0100 |
commit | 4f652a8ed66a3c8cef89170f9845fbd1cc02296a (patch) | |
tree | 1583b64670afe8030376c6ffc3b2ffe445c49f28 /bin/draksambashare | |
parent | 07388acc2571db56faf3298062c821a0041d7e6c (diff) | |
download | drakx-net-4f652a8ed66a3c8cef89170f9845fbd1cc02296a.tar drakx-net-4f652a8ed66a3c8cef89170f9845fbd1cc02296a.tar.gz drakx-net-4f652a8ed66a3c8cef89170f9845fbd1cc02296a.tar.bz2 drakx-net-4f652a8ed66a3c8cef89170f9845fbd1cc02296a.tar.xz drakx-net-4f652a8ed66a3c8cef89170f9845fbd1cc02296a.zip |
perlish $dialog->vbox => $dialog->get_child
Diffstat (limited to 'bin/draksambashare')
-rwxr-xr-x | bin/draksambashare | 6 |
1 files changed, 3 insertions, 3 deletions
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, ""), |