diff options
Diffstat (limited to 'Rpmdrake/gurpm.pm')
| -rw-r--r-- | Rpmdrake/gurpm.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/Rpmdrake/gurpm.pm b/Rpmdrake/gurpm.pm index ea77d419..c7444c52 100644 --- a/Rpmdrake/gurpm.pm +++ b/Rpmdrake/gurpm.pm @@ -25,16 +25,16 @@ package Rpmdrake::gurpm; use strict; use lib qw(/usr/lib/libDrakX); -use mygtk2 qw(gtknew); #- do not import anything else, especially gtkadd() which conflicts with ugtk2 one -use ugtk2 qw(:all); -use base qw(ugtk2); +use mygtk3 qw(gtknew); #- do not import anything else, especially gtkadd() which conflicts with ugtk3 one +use ugtk3 qw(:all); +use base qw(ugtk3); use Time::HiRes; use feature 'state'; sub new { my ($self, $title, $initializing, %options) = @_; - my $mainw = bless(ugtk2->new($title, %options, default_width => 600, width => 600), $self); + my $mainw = bless(ugtk3->new($title, %options, default_width => 600, width => 600), $self); $::main_window = $mainw->{real_window}; $mainw->{label} = gtknew('Label', text => $initializing, alignment => [ 0.5, 0 ]); # size label's heigh to 2 lines in order to prevent dummy vertical resizing: @@ -74,7 +74,7 @@ sub progress { sub DESTROY { my ($self) = @_; - mygtk2::may_destroy($self); + mygtk3::may_destroy($self); $self and $self->destroy; $self = undef; $self->{cancel} = undef; #- in case we'll do another one later |