remove draksplash

1 files changed, 0 insertions, 371 deletions

diff --git a/perl-install/standalone/draksplash b/perl-install/standalone/draksplash
deleted file mode 100755
index d41ebed59..000000000
--- a/perl-install/standalone/draksplash
+++ /dev/null
@@ -1,371 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use lib qw(/usr/lib/libDrakX);
-use standalone;
-use common;
-use mygtk2 qw(gtknew);
-use ugtk2 qw(:create :dialogs :helpers :wrappers);
-use interactive;
-use bootsplash;
-
-my $in = 'interactive'->vnew('su');
-my $global_width = 700;
-
-$in->do_pkgs->ensure_is_installed('ImageMagick', '/usr/bin/convert') or close_all();
-$in->do_pkgs->ensure_is_installed('netpbm', '/usr/bin/jpegtopnm') or close_all();
-
-$ugtk2::wm_icon = 'draksplash-16';
-my $window = ugtk2->new('DrakSplash', do_not_track_main_window => 1);
-$window->{rwindow}->signal_connect(delete_event => \&close_all);
-
-my @image_pixbuf;
-my $current_rect = [];
-my $current_point;
-
-my $preview_window = ugtk2->new(N("Create new theme"), do_not_track_main_window => 1);
-my $image_area = create_image_area();
-my $scroll = gtknew('ScrolledWindow', child => $image_area);
-
-switch_to_mode(0);
-
-my %scale_settings = (
-		      tb_x => [ 1/10, N("X coordinate of text box") ],
-		      tb_y => [ 1/10, N("Y coordinate of text box") ],
-		      tb_w => [ 8/10, N("Text box width") ],
-		      tb_h => [ 8/10, N("Text box height") ],
-		      px => [ 2/10, N("The progress bar X coordinate\nof its upper left corner") ],
-		      py => [ 7/10, N("The progress bar Y coordinate\nof its upper left corner") ],
-		      pw => [ 6/10, N("The width of the progress bar") ],
-		      ph => [ 1/10, N("The height of the progress bar") ],
-		      text_x => [ 1/10, N("X coordinate of the text") ],
-		      text_y => [ 1/10, N("Y coordinate of the text") ],
-		      transp => [ 1/10, N("Text box transparency") ],
-		      ptransp => [ 1/10, N("Progress box transparency") ],
-		      text_size => [ 1/10, N("Text size") ],
-		     );
-
-my %adj;
-create_adj_widgets();
-
-my %theme;
-set_theme('new_theme');
-set_resolution([ bootsplash::get_framebuffer_resolution() ]->[0]);
-
-my $current_mode;
-my $notebook = gtksignal_connect(gtknew('Notebook'), switch_page => sub {
-				     my (undef, undef, $mode) = @_;
-				     switch_to_mode($mode);
-				 });
-$notebook->append_page(gtknew('VBox', spacing => 5, children_tight => [
-    gtknew('Notebook', children => [
-        gtknew('Label', text => N("Progress Bar")),
-        gtknew('VBox', spacing => 5, children_tight => [
-				 create_scale_table('px', 'pw', 'py', 'ph', 'ptransp'),
-				 gtknew('Button', text => N("Choose progress bar color 1"),
-                                        clicked => sub { choose_color('pc1') }),
-				 gtknew('Button', text => N("Choose progress bar color 2"),
-                                        clicked => sub { choose_color('pc2') }),
-				 gtknew('Button', text => N("Choose progress bar background"),
-                                        clicked => sub { choose_color('pbg_c') }),
-                                 gtknew('HButtonBox', layout => 'edge', children_tight => [
-                                     gtknew('Label', text => N("Gradient type")),
-                                     gtksignal_connect(
-                                         Gtk2::ComboBox->new_with_strings([ 'vertical', 'horizontal' ], 'vertical'),
-                                         changed => sub { $theme{conf}{gradient} = $_[0]->entry->get_text }),
-                                 ]),
-                             ]),
-        gtknew('Label', text => N("Text")),
-        gtknew('VBox', spacing => 5, children_tight => [
-				 gtknew('Button', text => N("Choose text color"),
-                                        clicked => sub { choose_color('text_color') }),
-				 create_scale_table('text_x', 'text_y', 'text_size'),
-				 gtknew('Button', text => N("Choose picture"),
-                                        clicked => sub { choose_image('silentjpeg') })]),
-    ])
-]),
-		       N("Silent bootsplash"));
-$notebook->append_page(gtknew('VBox', spacing => 5, children_tight => [
-				 create_scale_table('tb_x', 'tb_y', 'tb_w', 'tb_h', 'transp'),
-				 gtknew('Button', text => N("Choose text zone color"), 
-                                        clicked => sub { choose_color('tc') }),
-                                 gtknew('Table', children => [
-                                     [ gtknew('Label', text => N("Text color")), 
-                                       gtksignal_connect(Gtk2::ComboBox->new_with_strings([ 0 .. 15 ], 1),
-                                                         changed => sub { $theme{conf}{fgcolor} = $_[0]->entry->get_text }),
-                                   ],
-                                     [ gtknew('Label', text => N("Background color")),
-                                       gtksignal_connect(Gtk2::ComboBox->new_with_strings([ 0 .. 15 ], '0'), 
-                                                         changed => sub { $theme{conf}{bgcolor} = $_[0]->entry->get_text }),
-                                   ],
-                                 ]),
-				 gtknew('Button', text => N("Choose picture"), clicked => sub { choose_image('jpeg') })]),
-		       N("Verbose bootsplash"));
-
-
-gtkadd($window->{window},
-       gtknew('VBox', spacing => 5, children_loose => [
-	      gtknew('HBox', spacing => 5, children_tight => [
-			gtknew('Table', col_spacings => 10, row_spacings => 5, children => [
-					 [ gtknew('Label', text => N("Theme name")),
-					   gtksignal_connect(
-                                               Gtk2::ComboBoxEntry->new_with_strings(
-                                                   [ bootsplash::themes_list() ], $theme{name}),
-                                               changed => sub { set_theme($_[0]->entry->get_text) }) ],
-					 [ gtknew('Label', text => N("Final resolution")),
-					   gtksignal_connect(gtknew('ComboBox', text => $theme{res},
-                                                                    list => \@bootsplash::resolutions),
-							     changed => sub { set_resolution($_[0]->get_text) }) ]])]),
-	       gtksignal_connect(gtknew('CheckButton', text => N("Display logo on Console")), toggled => sub {
-                                  $theme{conf}{logo} = bool2yesno($_[0]->get_active);
-                              }),
-	       $notebook,
-	       gtknew('HButtonBox', layout => 'edge', children_loose => [
-			 gtknew('Button', text => N("Save theme"), clicked => \&save_theme),
-			 gtknew('Button', text => N("Quit"), clicked => \&close_all)])])),
-gtkshow(gtkadd($preview_window->{window}, $scroll));
-
-$window->{rwindow}->set_size_request($global_width, -1);
-$window->{rwindow}->set_border_width(5);
-$window->{rwindow}->set_position('center');
-$window->{rwindow}->show_all;
-$window->main;
-
-# Should never get here
-ugtk2->exit(0);
-
-sub close_all() {
-   ugtk2->exit(0);
-}
-
-sub read_theme_config() {
-    my $conf = bootsplash::theme_get_config_for_resolution($theme{name}, $theme{res});
-    -f $conf and $theme{conf} = bootsplash::theme_read_config_for_resolution($theme{name}, $theme{res});
-    if (-f $theme{conf}{silentjpeg}) {
-	load_image($theme{conf}{silentjpeg}, 0, 1);
-    }
-    if (-f $theme{conf}{jpeg}) {
-	load_image($theme{conf}{jpeg}, 1, 1);
-    }
-    $theme{conf}{pc} ||= '#21459d';
-    update_scale_values_from_conf();
-    update_rect();
-}
-
-sub set_theme {
-    my ($name) = @_;
-    @image_pixbuf = ();
-    $theme{name} = $name;
-    read_theme_config();
-}
-
-{
-    my ($old_scroll_w, $old_scroll_h);
-
-    sub set_resolution {
-	my ($res) = @_;
-	$theme{res} = $res;
-	($theme{res_w}, $theme{res_h}) = $theme{res} =~ /([^x]+)x([^x]+)/;
-	update_scales_for_resolution();
-	read_theme_config();
-	$image_area->set_size_request($theme{res_w}, $theme{res_h});
-	#- try not to be larger than screen size minus toolbars size
-	my $w = min(Gtk2::Gdk->screen_width*0.9, $theme{res_w});
-	my $h = min(Gtk2::Gdk->screen_height*0.9, $theme{res_h});
-	#- do not resize and move the window again if size hasn't changed
-	if ($w != $old_scroll_w || $h !=  $old_scroll_h) {
-	    $scroll->set_size_request($w, $h);
-	    $preview_window->shrink_topwindow;
-	    $preview_window->{window}->move(0, 0);
-	    ($old_scroll_w, $old_scroll_h) = ($w, $h);
-	}
-    }
-}
-
-sub save_theme() {
-    if (!$theme{name}) {
-        $in->ask_warn('', N("Please enter a theme name"));
-        return;
-    } elsif (! -e $theme{conf}{silentjpeg}) {
-        $in->ask_warn('', N("Please select a splash image"));
-        return;
-    }
-    my $_w = $in->wait_message('', N("saving Bootsplash theme..."));
-    bootsplash::theme_set_image_for_resolution($theme{name}, $theme{res}, $theme{conf}{silentjpeg});
-    bootsplash::theme_write_config_for_resolution($theme{name}, $theme{res}, $theme{conf});
-}
-
-sub load_image {
-    my ($img, $mode, $o_no_warn) = @_;
-    eval { $image_pixbuf[$mode] = gtknew('Pixbuf', file => $img) };
-    if ($@) {
-        $in->ask_warn(N("Error"), N("Unable to load image file %s", $img)) unless $o_no_warn;
-        return;
-    }
-    $image_pixbuf[$mode] = $image_pixbuf[$mode]->scale_simple($theme{res_w}, $theme{res_h}, 'hyper');
-    $image_pixbuf[1-$mode] ||= $image_pixbuf[$mode];
-    $image_area->queue_draw;
-    1;
-}
-
-sub choose_image {
-    my ($type) = @_;
-    my $file_dialog = Gtk2::FileChooserDialog->new(N("choose image"), $window->{real_window}, 'open', N("Cancel") => 'cancel', N("Ok") => 'ok');
-    $file_dialog->set_filename($theme{$type} || '~/');
-    $file_dialog->show;
-    while ($file_dialog->run eq 'ok') {
-        @image_pixbuf = ();
-        if (load_image(my $img = $file_dialog->get_filename, 0)) {
-	    $theme{conf}{$type} = $img;
-	    last;
-	}
-    }
-    $file_dialog->destroy;
-}
-
-sub choose_color {
-    my ($var) = @_;
-    my $color = gtkshow(Gtk2::ColorSelectionDialog->new(N("Color selection")));
-    print "Current color $var: $theme{conf}{$var}\n";
-    my @rgb = $theme{conf}{$var} =~ /^#(.{2})(.{2})(.{2})$/ ? (map { hex($_)*255 } ($1, $2, $3)) : ();
-    $color->colorsel->set_current_color(gtkcolor(@rgb));
-    $color->cancel_button->signal_connect(clicked => sub { $color->destroy });
-    $color->ok_button->signal_connect(clicked => sub {
-					  my $colour = $color->colorsel->get_current_color;
-					  $theme{conf}{$var} = "#" . join('', map { sprintf("%02x", $_/256) } $colour->red, $colour->green, $colour->blue);
-					  $color->destroy;
-				      });
-}
-
-
-sub create_adj_widgets() {
-    $adj{$_} = Gtk2::Adjustment->new(0, 0, 0, 1, 10, 0) foreach keys %scale_settings;
-    my %scale_links = (tb_x => 'tb_w', tb_y => 'tb_h', px => 'pw', py => 'ph', text_x => 'px', text_y => 'py');
-    while (my ($n1, $n2) = each(%scale_links)) {
-	$adj{$n1}{on_change} = $adj{$n1}->signal_connect(value_changed => sub { check_scale_value($n1, $n2); apply_scale($n1) });
-	$adj{$n2}{on_change} = $adj{$n2}->signal_connect(value_changed => sub { check_scale_value($n2, $n1); apply_scale($n2) });
-    }
-    foreach my $n (qw(transp ptransp text_size)) {
-	$adj{$n}{on_change} = $adj{$n}->signal_connect(value_changed => sub { apply_scale($n) });
-    }
-}
-
-sub create_scale_table {
-    my @settings = @_;
-    gtknew('Table', col_spacings => 10, row_spacings => 5, children => [ map {
-	my $w = gtknew('HScale', adjustment => $adj{$_}, width => 100);
-	$w->set_digits(0);
-	[ gtknew('WrappedLabel', width => ($global_width-150), text => formatAlaTeX($scale_settings{$_}[1])), $w ];
-    } @settings]);
-}
-
-sub get_scale_max {
-    my ($name) = @_;
-    if ($name =~ /size/) { return 100 }
-    if ($name =~ /transp/) { return 255 }
-    $theme{$name =~ /[xw]$/ ? "res_w" : "res_h"};
-}
-sub apply_scale {
-    my ($name) = @_;
-    $theme{conf}{$name} = int($adj{$name}->get_value);
-    update_rect();
-    $image_area->queue_draw;
-}
-sub check_scale_value {
-    my ($changed, $linked) = @_;
-    my $max = get_scale_max($changed) - $adj{$changed}->get_value;
-    $adj{$linked}->get_value > $max and $adj{$linked}->set_value($max);
-}
-sub update_scales_for_resolution() {
-    $theme{conf}{$_} ||= int(get_scale_max($_) * $scale_settings{$_}[0]) foreach keys %scale_settings;
-    $adj{$_}->upper(get_scale_max($_)) foreach keys %adj;
-}
-sub update_scale_values_from_conf() {
-    foreach (keys %adj) {
-        $adj{$_}->signal_handler_block($adj{$_}{on_change});
-        $adj{$_}->set_value($theme{conf}{$_});
-        $adj{$_}->signal_handler_unblock($adj{$_}{on_change});
-    }
-}
-
-sub create_image_area() {
-    my $image_area = Gtk2::DrawingArea->new;
-    $image_area->can_focus(1);
-    $image_area->add_events($_) foreach qw(button-press-mask pointer-motion-mask);
-    $image_area->signal_connect(motion_notify_event => \&image_motion_notify);
-    $image_area->signal_connect(button_press_event => \&image_button_pressed);
-    $image_area->signal_connect(expose_event => \&image_expose);
-    $image_area->signal_connect(key_press_event => sub {
-	my (undef, $event) = @_;
-	member($event->keyval, 'q', 'Escape') and close_all();
-	1;
-    });
-    $image_area->grab_focus;
-    $image_area->show;
-    $image_area;
-}
-
-sub image_expose {
-    my ($widget) = @_;
-    my $window = $widget->window;
-    $window->draw_pixbuf($widget->style->white_gc, $image_pixbuf[$current_mode > 0], 0, 0, 0, 0, -1, -1, 'none', 0, 0) if $image_pixbuf[$current_mode > 0];
-    my $cross_gc;
-    if ($current_mode == 0) { #- silent
-	$window->draw_rectangle($widget->style->white_gc, 1, @{$theme{conf}}{'px', 'py', 'pw', 'ph'});
-	$cross_gc = $widget->style->black_gc;
-    } else { #- verbose or console
-	$window->draw_rectangle($widget->style->black_gc, 0, @{$theme{conf}}{'tb_x', 'tb_y', 'tb_w', 'tb_h'});
-	$cross_gc = $widget->style->white_gc;
-    }
-    $window->draw_line($cross_gc, $current_rect->[0]{X}, $current_rect->[0]{Y}, $current_rect->[1]{X}, $current_rect->[1]{Y});
-    $window->draw_line($cross_gc, $current_rect->[0]{X}, $current_rect->[1]{Y}, $current_rect->[1]{X}, $current_rect->[0]{Y});
-}
-
-sub update_rect() {
-    undef $current_point;
-    if ($current_mode == 0) { #- silent
-	$current_rect = bootsplash::xywh2rectangle(@{$theme{conf}}{'px', 'py', 'pw', 'ph'});
-    } else { #- verbose or console
-	$current_rect = bootsplash::xywh2rectangle(@{$theme{conf}}{'tb_x', 'tb_y', 'tb_w', 'tb_h'});
-    }
-}
-
-sub switch_to_mode {
-    my ($mode) = @_;
-    $current_mode = $mode;
-    update_rect();
-    $image_area->queue_draw;
-}
-
-sub update_theme_from_rect() {
-    if ($current_mode == 0) { #- silent
-	@{$theme{conf}}{'px', 'py', 'pw', 'ph'} = bootsplash::rectangle2xywh($current_rect);
-    } else { #- verbose or console
-	@{$theme{conf}}{'tb_x', 'tb_y', 'tb_w', 'tb_h'} = bootsplash::rectangle2xywh($current_rect);
-    }
-    update_scale_values_from_conf();
-    $image_area->queue_draw;
-}
-
-sub image_button_pressed {
-    my (undef, $event) = @_;
-    my $point = { X => $event->x, Y => $event->y };
-    $current_point = bootsplash::nearest($point, @$current_rect);
-    %$current_point = %$point;
-    update_theme_from_rect();
-}
-
-sub restrict_to_interval {
-    my ($x, $min, $max) = @_;
-    max($min, min($max, $x));
-}
-
-sub image_motion_notify {
-    my (undef, $event) = @_;
-    member('button1-mask', @{$event->state}) or return;
-    %$current_point = (
-        X => restrict_to_interval($event->x, 0, $theme{res_w}),
-        Y => restrict_to_interval($event->y, 0, $theme{res_h}),
-    ) if $current_point;
-    update_theme_from_rect();
-}