diff options
Diffstat (limited to 'common/Wizcommon_gtk2.pm')
| -rw-r--r-- | common/Wizcommon_gtk2.pm | 12 |
1 files changed, 6 insertions, 6 deletions
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, |