diff options
author | Thierry Vignaud <tv@mandriva.org> | 2007-08-27 09:58:43 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mandriva.org> | 2007-08-27 09:58:43 +0000 |
commit | dfdf67465048d060f7f86cd70d55cb78b6da15d9 (patch) | |
tree | 421a29bd65b7117bfa0db071ddbb4845b7591b7b /perl-install/install/gtk.pm | |
parent | 06778644fe639e20bf25eae532dc5b002af3a808 (diff) | |
download | drakx-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.pm | 22 |
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 { |