diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2012-08-01 17:16:09 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-24 21:28:33 +0100 |
| commit | 504f6c89db28716c7038153fb7838565b4ba0583 (patch) | |
| tree | ca6e1c843dfb368d34f5c6b89f962d61415525ee /perl-install/diskdrake/smbnfs_gtk.pm | |
| parent | 3252bfe856428c0a38ba7edb0f0ad6245537df6e (diff) | |
| download | drakx-504f6c89db28716c7038153fb7838565b4ba0583.tar drakx-504f6c89db28716c7038153fb7838565b4ba0583.tar.gz drakx-504f6c89db28716c7038153fb7838565b4ba0583.tar.bz2 drakx-504f6c89db28716c7038153fb7838565b4ba0583.tar.xz drakx-504f6c89db28716c7038153fb7838565b4ba0583.zip | |
use (my|u)gtk3 instead of *tk2
Diffstat (limited to 'perl-install/diskdrake/smbnfs_gtk.pm')
| -rw-r--r-- | perl-install/diskdrake/smbnfs_gtk.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/diskdrake/smbnfs_gtk.pm b/perl-install/diskdrake/smbnfs_gtk.pm index 28fc9f2ea..e29101b44 100644 --- a/perl-install/diskdrake/smbnfs_gtk.pm +++ b/perl-install/diskdrake/smbnfs_gtk.pm @@ -9,8 +9,8 @@ use common; use interactive; use fs::remote::smb; use fs::remote::nfs; -use mygtk2 qw(gtknew gtkset); -use ugtk2 qw(:helpers :wrappers :create); +use mygtk3 qw(gtknew gtkset); +use ugtk3 qw(:helpers :wrappers :create); my ($all_hds, $in, $tree_model, $current_entry, $current_leaf, %icons); @@ -19,7 +19,7 @@ sub main { my ($kind) = $type eq 'smb' ? smb2kind() : nfs2kind(); $kind->check($in) or return; - my $w = ugtk2->new(N("Partitioning")); + my $w = ugtk3->new(N("Partitioning")); add_smbnfs($w->{window}, $kind); $w->{rwindow}->set_default_size(400, 300) if $w->{rwindow}->can('set_default_size'); @@ -227,7 +227,7 @@ sub import_tree { } else { if (!$tree_model->iter_has_child($curr)) { gtkset_mousecursor_wait($tree->window); - ugtk2::flush(); + ugtk3::flush(); $add_exports->($curr); gtkset_mousecursor_normal($tree->window); } |