diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-01-18 19:00:47 +0100 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-24 21:28:32 +0100 |
| commit | 560f03ba7a642654d75055bfb0b9062d4c481f66 (patch) | |
| tree | 30dd18f6f7399490ddaa22cfab5e548c116b1aef /perl-install/standalone | |
| parent | 2982650bb08f0d49fa74e396a1ea5d23a6048213 (diff) | |
| download | drakx-560f03ba7a642654d75055bfb0b9062d4c481f66.tar drakx-560f03ba7a642654d75055bfb0b9062d4c481f66.tar.gz drakx-560f03ba7a642654d75055bfb0b9062d4c481f66.tar.bz2 drakx-560f03ba7a642654d75055bfb0b9062d4c481f66.tar.xz drakx-560f03ba7a642654d75055bfb0b9062d4c481f66.zip | |
convert from mygtk2 to ugtk2
(needed for next commits)
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/drakboot | 2 | ||||
| -rwxr-xr-x | perl-install/standalone/drakdvb | 2 | ||||
| -rwxr-xr-x | perl-install/standalone/drakups | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot index 47e4de3aa..fec394ce3 100755 --- a/perl-install/standalone/drakboot +++ b/perl-install/standalone/drakboot @@ -78,7 +78,7 @@ sub run_boot_window { my $w = ugtk2->new($title); my $window = $w->{window}; - mygtk2::register_main_window($w->{real_window}); + mygtk3::register_main_window($w->{real_window}); $window->signal_connect(delete_event => sub { ugtk2->exit(0) }); unless ($::isEmbedded) { diff --git a/perl-install/standalone/drakdvb b/perl-install/standalone/drakdvb index 2c5f3484a..ce735cafa 100755 --- a/perl-install/standalone/drakdvb +++ b/perl-install/standalone/drakdvb @@ -31,7 +31,7 @@ my $title = N("DVB"); $ugtk2::wm_icon = "/usr/share/mcc/themes/default/tv-mdk.png"; my $w = ugtk2->new($title); $w->{window}->signal_connect('destroy' => \&exitapp); -mygtk2::register_main_window($w->{real_window}); +mygtk3::register_main_window($w->{real_window}); my $in = 'interactive'->vnew; my $config_file = "$ENV{HOME}/.mplayer/channels.conf"; diff --git a/perl-install/standalone/drakups b/perl-install/standalone/drakups index b5baee934..8524daf2a 100755 --- a/perl-install/standalone/drakups +++ b/perl-install/standalone/drakups @@ -328,7 +328,7 @@ if (member('--wizard', @ARGV)) { $w = ugtk2->new(N("UPS Management")); if (!$::isEmbedded) { - mygtk2::register_main_window($w->{real_window}); + mygtk3::register_main_window($w->{real_window}); $w->{window}->set_size_request(500, 550); $w->{rwindow}->set_title(N("DrakUPS")); } |