From 7e92a121aebff4a3b99f7cbd2cadeb9d492e243e Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 18 Nov 2013 15:40:11 +0100 Subject: use (my|u)gtk3 instead of *tk2 --- common/Wizcommon_gtk2.pm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'common') diff --git a/common/Wizcommon_gtk2.pm b/common/Wizcommon_gtk2.pm index 56d18a0a..07526863 100644 --- a/common/Wizcommon_gtk2.pm +++ b/common/Wizcommon_gtk2.pm @@ -19,16 +19,16 @@ # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. -package MDK::Wizard::Wizcommon_gtk2; +package MDK::Wizard::Wizcommon_gtk3; use strict; #use common; sub wizard_progress_bar { use lib qw(/usr/lib/libDrakX); - use ugtk2 qw(:wrappers); + use ugtk3 qw(:wrappers); my ($command, $descr) = @_; my ($value, $timer); - my $my_win = ugtk2->new(""); + my $my_win = ugtk3->new(""); my $window1 = $my_win->{window}; gtkadd($window1, gtkpack(Gtk2::VBox->new(0,0), @@ -63,11 +63,11 @@ sub wizard_progress_bar { sub gtk_log { use lib qw(/usr/lib/libDrakX); - use ugtk2 qw(:wrappers); - use mygtk2 qw(gtknew); + use ugtk3 qw(:wrappers); + use mygtk3 qw(gtknew); my ($command, $text) = @_; my $log_text = gtknew('TextView'); - my $my_win = ugtk2->new(""); + my $my_win = ugtk3->new(""); my $window1 = $my_win->{window}; #my $pid; gtkadd($window1, -- cgit v1.2.1