From 8a0df5add2ef2c2a15997527a6f37e8889968227 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 5 Aug 2002 12:22:34 +0000
Subject: adapt to ugtk

---
 perl-install/diskdrake/smbnfs_gtk.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/diskdrake/smbnfs_gtk.pm b/perl-install/diskdrake/smbnfs_gtk.pm
index 8e28424b7..862132d05 100644
--- a/perl-install/diskdrake/smbnfs_gtk.pm
+++ b/perl-install/diskdrake/smbnfs_gtk.pm
@@ -104,7 +104,7 @@ sub set_export_icon {
     my ($entry, $w) = @_;
     $entry ||= {};
     my $icon = $icons{$entry->{isMounted} ? 'mounted' : $entry->{mntpoint} ? 'has_mntpoint' : 'default'};
-    my_gtk::ctree_set_icon($tree, $w, @$icon);
+    ugtk::ctree_set_icon($tree, $w, @$icon);
 }
 
 sub update {
@@ -147,7 +147,7 @@ sub import_ctree {
 	my $name = $server->{name} || $server->{ip};
 	$servers_displayed{$name} ||= do {
 	    my $w = $tree->insert_node(undef, undef, [$name], 5, (undef) x 4, 0, 0);
-	    my_gtk::ctree_set_icon($tree, $w, @{$icons{server}});
+	    ugtk::ctree_set_icon($tree, $w, @{$icons{server}});
 	    $wservers{$w->{_gtk}} = $server;
 	    $w;
 	};
-- 
cgit v1.2.1