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 | |
| 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')
| -rwxr-xr-x | bin/drakhosts | 2 | ||||
| -rwxr-xr-x | bin/draknetprofile | 2 | ||||
| -rwxr-xr-x | bin/draknfs | 2 | ||||
| -rwxr-xr-x | bin/draksambashare | 6 |
4 files changed, 6 insertions, 6 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, ""), |