summaryrefslogtreecommitdiffstats
path: root/perl-install/install/gtk.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2007-08-27 09:58:43 +0000
committerThierry Vignaud <tv@mandriva.org>2007-08-27 09:58:43 +0000
commitdfdf67465048d060f7f86cd70d55cb78b6da15d9 (patch)
tree421a29bd65b7117bfa0db071ddbb4845b7591b7b /perl-install/install/gtk.pm
parent06778644fe639e20bf25eae532dc5b002af3a808 (diff)
downloaddrakx-backup-do-not-use-dfdf67465048d060f7f86cd70d55cb78b6da15d9.tar
drakx-backup-do-not-use-dfdf67465048d060f7f86cd70d55cb78b6da15d9.tar.gz
drakx-backup-do-not-use-dfdf67465048d060f7f86cd70d55cb78b6da15d9.tar.bz2
drakx-backup-do-not-use-dfdf67465048d060f7f86cd70d55cb78b6da15d9.tar.xz
drakx-backup-do-not-use-dfdf67465048d060f7f86cd70d55cb78b6da15d9.zip
drop Move support (unused for quite a long time and superceeded by Globetrotter
which itself was obsoleted by Mdv One)
Diffstat (limited to 'perl-install/install/gtk.pm')
-rw-r--r--perl-install/install/gtk.pm22
1 files changed, 2 insertions, 20 deletions
diff --git a/perl-install/install/gtk.pm b/perl-install/install/gtk.pm
index 6d21e6c23..dcb30f8a4 100644
--- a/perl-install/install/gtk.pm
+++ b/perl-install/install/gtk.pm
@@ -60,20 +60,6 @@ sub load_rc {
if ($f) {
Gtk2::Rc->parse_string($o->{doc} ? $theme_overriding_for_doc : scalar cat_($f));
}
-
- if ($::move) {
- #- override selection color since we will not do inverse-video on the text when it's images
- Gtk2::Rc->parse_string(q(
-style "galaxy-default"
-{
- base[ACTIVE] = "#CECECE"
- base[SELECTED] = "#CECECE"
- text[ACTIVE] = "#000000"
- text[PRELIGHT] = "#000000"
- text[SELECTED] = "#000000"
-}
-));
- }
}
#------------------------------------------------------------------------------
@@ -100,7 +86,6 @@ widget "*" style "default-font"
#------------------------------------------------------------------------------
sub default_theme {
my ($o) = @_;
- $::move ? '' :
$o->{simple_themes} || $o->{vga16} ? 'blue' : 'galaxy';
}
@@ -110,11 +95,9 @@ sub install_theme {
load_rc($o, $o->{theme} ||= default_theme($o));
load_font($o);
- if (!$::move) {
my $win = gtknew('Window', widget_name => 'background');
$win->realize;
mygtk2::set_root_window_background_with_gc($win->style->bg_gc('normal'));
- }
}
#------------------------------------------------------------------------------
@@ -176,7 +159,7 @@ sub update_steps_position {
sub create_logo_window {
my ($o) = @_;
- return if $::logowidth == 0 || $::move;
+ return if $::logowidth == 0;
mygtk2::may_destroy($o->{logo_window});
@@ -216,11 +199,10 @@ q(<fontconfig>
sub init_sizes {
my ($o) = @_;
($::rootwidth, $::rootheight) = (Gtk2::Gdk->screen_width, Gtk2::Gdk->screen_height);
- $::stepswidth = $::rootwidth <= 640 ? 0 : 200 if !$::move;
+ $::stepswidth = $::rootwidth <= 640 ? 0 : 200;
($::logowidth, $::logoheight) = $::rootwidth <= 640 ? (0, 0) : (800, 75);
($o->{windowwidth}, $o->{windowheight}) = ($::rootwidth - $::stepswidth, $::rootheight - $::helpheight - $::logoheight);
($::real_windowwidth, $::real_windowheight) = (576, 418);
- $::move and $o->{windowwidth} -= 100;
}
sub handle_unsafe_mouse {