This commit was manufactured by cvs2svn to create branch

'unlabeled-1.1.1'.

1 files changed, 367 insertions, 0 deletions

diff --git a/perl-install/install_gtk.pm b/perl-install/install_gtk.pm
new file mode 100644
index 000000000..9e38b3038
--- /dev/null
+++ b/perl-install/install_gtk.pm
@@ -0,0 +1,367 @@
+package install_gtk;
+
+use diagnostics;
+use strict;
+
+use my_gtk qw(:helpers :wrappers);
+use common qw(:common :file :functional);
+use lang;
+use devices;
+
+#-#####################################################################################
+#-INTERN CONSTANT
+#-#####################################################################################
+my @themes_vga16 = qw(blue blackwhite savane);
+my @themes = qw(mdk DarkMarble marble3d blueHeart);
+
+my (@background1, @background2);
+
+
+#------------------------------------------------------------------------------
+sub load_rc {
+    my ($name) = @_;
+
+    if (my ($f) = grep { -r $_ } map { "$_/$name.rc" } ("share", $ENV{SHARE_PATH}, dirname(__FILE__))) {
+	Gtk::Rc->parse($f);
+	foreach (cat_($f)) {
+	    if (/style\s+"background"/ .. /^\s*$/) {
+		@background1 = map { $_ * 256 * 257 } split ',', $1 if /NORMAL.*\{(.*)\}/;
+		@background2 = map { $_ * 256 * 257 } split ',', $1 if /PRELIGHT.*\{(.*)\}/;
+	    }
+	}
+    }
+}
+
+sub default_theme {
+    my ($o) = @_;
+    @themes = @themes_vga16 if $o->{simple_themes} || $o->{vga16};
+    install_theme($o, $o->{theme} || $themes[0]);
+}
+
+#------------------------------------------------------------------------------
+sub install_theme {
+    my ($o, $theme) = @_;
+    $::live and return;
+
+    $o->{theme} = $theme || $o->{theme};
+
+    load_rc($_) foreach "themes-$o->{theme}", "install", "themes";
+
+    if (my ($font, $font2) = lang::get_x_fontset($o->{lang}, $::rootwidth < 800 ? 10 : 12)) {
+	$font2 ||= $font;
+	Gtk::Rc->parse_string(qq(
+style "default-font" 
+{
+   fontset = "$font"
+}
+style "small-font"
+{
+   fontset = "$font2"
+}
+widget "*" style "default-font"
+widget "*Steps*" style "small-font"
+
+));
+    }
+    gtkset_background(@background1);# unless $::testing;
+
+    create_logo_window($o);
+    create_help_window($o);
+}
+
+#------------------------------------------------------------------------------
+sub create_big_help {
+    my $w = my_gtk->new('', grab => 1, force_position => [ $::stepswidth, $::logoheight ]);
+    $w->{rwindow}->set_usize($::logowidth, $::rootheight - $::logoheight);
+    gtkadd($w->{window},
+	   gtkpack_(new Gtk::VBox(0,0),
+		    1, createScrolledWindow(gtktext_insert(new Gtk::Text, 
+							   formatAlaTeX(_ deref($help::steps{$::o->{step}})))),
+		    0, gtksignal_connect(my $ok = new Gtk::Button(_("Ok")), "clicked" => sub { Gtk->main_quit }),
+		   ));
+    $ok->grab_focus;
+    $w->main;
+    gtkset_mousecursor_normal();
+}
+
+#------------------------------------------------------------------------------
+sub create_help_window {
+    my ($o) = @_;
+    $::live and return;
+
+    my $w;
+    if ($w = $o->{help_window}) {
+	$_->destroy foreach $w->{window}->children;
+    } else {
+	$w = bless {}, 'my_gtk';
+	$w->{rwindow} = $w->{window} = new Gtk::Window;
+	$w->{rwindow}->set_uposition($::rootwidth - $::helpwidth, $::rootheight - $::helpheight);
+	$w->{rwindow}->set_usize($::helpwidth, $::helpheight);
+	$w->sync;
+    }
+    my $pixmap = new Gtk::Pixmap(gtkcreate_xpm($w->{window}, "$ENV{SHARE_PATH}/help.xpm"));
+    gtkadd($w->{window},
+	   gtkpack_(new Gtk::HBox(0,-2),
+		    0, gtkadd(gtksignal_connect(new Gtk::Button, clicked => \&create_big_help), $pixmap),
+		    1, createScrolledWindow($o->{help_window_text} = new Gtk::Text),
+		   ));
+    gtktext_insert($o->{help_window_text}, $o->{step} ? formatAlaTeX(_ deref($help::steps{$o->{step}})) : '');
+
+    $w->show;
+    $o->{help_window} = $w;
+}
+
+#------------------------------------------------------------------------------
+sub create_steps_window {
+    my ($o) = @_;
+    $::live and return;
+
+    my $PIX_H = my $PIX_W = 21;
+
+    $o->{steps_window}->destroy if $o->{steps_window};
+
+    my $w = bless {}, 'my_gtk';
+    $w->{rwindow} = $w->{window} = new Gtk::Window;
+    $w->{rwindow}->set_uposition(0, 0);
+    $w->{rwindow}->set_usize($::stepswidth, $::stepsheight);
+    $w->{rwindow}->set_name('Steps');
+    $w->{rwindow}->set_events('button_press_mask');
+    $w->show;
+
+    gtkadd($w->{window},
+	   gtkpack_(new Gtk::VBox(0,0),
+		    (map {; 1, $_ } map {
+			my $step_name = $_;
+			my $step = $o->{steps}{$_};
+			my $darea = new Gtk::DrawingArea;
+			my $in_button;
+			my $draw_pix = sub {
+			    my $pixmap = Gtk::Gdk::Pixmap->create_from_xpm($darea->window,
+									   $darea->style->bg('normal'),
+									   $_[0]) or die;
+			    $darea->window->draw_pixmap ($darea->style->bg_gc('normal'),
+							 $pixmap, 0, 0,
+							 ($darea->allocation->[2]-$PIX_W)/2,
+							 ($darea->allocation->[3]-$PIX_H)/2,
+							 $PIX_W , $PIX_H );
+			};
+
+			my $f = sub { 
+			    my ($type) = @_;
+			    my $color = $step->{done} ? 'green' : $step->{entered} ? 'orange' : 'red';
+			    "$ENV{SHARE_PATH}/step-$color$type.xpm";
+			};
+			$darea->set_usize($PIX_W,$PIX_H);
+			$darea->set_events(['exposure_mask', 'enter_notify_mask', 'leave_notify_mask', 'button_press_mask', 'button_release_mask' ]);
+			$darea->signal_connect(expose_event => sub { $draw_pix->($f->('')) });
+			if ($step->{reachable}) {
+			    $darea->signal_connect(enter_notify_event => sub { $in_button=1; $draw_pix->($f->('-on')); });
+			    $darea->signal_connect(leave_notify_event => sub { undef $in_button; $draw_pix->($f->('')); });
+			    $darea->signal_connect(button_press_event => sub { $draw_pix->($f->('-click')); });
+			    $darea->signal_connect(button_release_event => sub { $in_button && die "setstep $step_name\n" });
+			}
+			gtkpack_(new Gtk::HBox(0,5), 0, $darea, 0, new Gtk::Label(translate($step->{text})));
+		    } grep {
+			!eval $o->{steps}{$_}{hidden};
+		    } @{$o->{orderedSteps}}),
+		    0, gtkpack(new Gtk::HBox(0,0), map {
+			my $t = $_;
+			my $w = new Gtk::Button('');
+			$w->set_name($t);
+			$w->set_usize(0, 7);
+			gtksignal_connect($w, clicked => sub {
+			    $::setstep or return; #- just as setstep s
+			    install_theme($o, $t); die "theme_changed\n" 
+			});
+		    } @themes)));
+    $w->show;
+    $o->{steps_window} = $w;
+}
+
+#------------------------------------------------------------------------------
+sub create_logo_window {
+    my ($o) = @_;
+    $::live and return;
+
+    gtkdestroy($o->{logo_window});
+    my $w = bless {}, 'my_gtk';
+    $w->{rwindow} = $w->{window} = new Gtk::Window;
+    $w->{rwindow}->set_uposition($::stepswidth, 0);
+    $w->{rwindow}->set_usize($::logowidth, $::logoheight);
+    $w->{rwindow}->set_name("logo");
+    $w->show;
+    my $file = "logo-mandrake.xpm";
+    -r $file or $file = "$ENV{SHARE_PATH}/$file";
+    if (-r $file) {
+	my $ww = $w->{window};
+	my @logo = Gtk::Gdk::Pixmap->create_from_xpm($ww->window, $ww->style->bg('normal'), $file);
+	gtkadd($ww, new Gtk::Pixmap(@logo));
+    }
+    $o->{logo_window} = $w;
+}
+
+#------------------------------------------------------------------------------
+sub init_sizes() {
+#    my $maxheight = arch() eq "ppc" ? 1024 : 600;
+#    my $maxwidth = arch() eq "ppc" ? 1280 : 800;
+    ($::rootheight,  $::rootwidth)    = (480, 640);
+    ($::rootheight,  $::rootwidth)    = my_gtk::gtkroot()->get_size;
+    #- ($::rootheight,  $::rootwidth)    = (min(768, $::rootheight), min(1024, $::rootwidth));
+    ($::stepswidth,  $::stepsheight)  = (145, $::rootheight);
+    ($::logowidth,   $::logoheight)   = ($::rootwidth - $::stepswidth, 40);
+    ($::helpwidth,   $::helpheight)   = ($::rootwidth - $::stepswidth, 104);
+    ($::windowwidth, $::windowheight) = ($::rootwidth - $::stepswidth, $::rootheight - $::helpheight - $::logoheight);
+}
+
+#------------------------------------------------------------------------------
+sub createXconf {
+    my ($file, $mouse_type, $mouse_dev, $wacom_dev) = @_;
+
+    devices::make("/dev/kbd") if arch() =~ /^sparc/; #- used by Xsun style server.
+    symlinkf($mouse_dev, "/dev/mouse");
+
+    #- needed for imlib to start on 8-bit depth visual.
+    symlink("/tmp/stage2/etc/imrc", "/etc/imrc");
+    symlink("/tmp/stage2/etc/im_palette.pal", "etc/im_palette.pal");
+
+    my $wacom;
+    if ($wacom_dev) {
+	$wacom_dev = devices::make($wacom_dev);
+	$wacom = <<END;
+Section "Module"
+   Load "xf86Wacom.so"
+EndSection
+
+Section "XInput"
+    SubSection "WacomStylus"
+        Port "$wacom_dev"
+        AlwaysCore
+    EndSubSection
+    SubSection "WacomCursor"
+        Port "$wacom_dev"
+        AlwaysCore
+    EndSubSection
+    SubSection "WacomEraser"
+        Port "$wacom_dev"
+        AlwaysCore
+    EndSubSection
+EndSection
+END
+    }
+
+    local *F;
+    open F, ">$file" or die "can't create X configuration file $file";
+    print F <<END;
+Section "Files"
+   FontPath   "/usr/X11R6/lib/X11/fonts:unscaled"
+EndSection
+
+Section "Keyboard"
+   Protocol    "Standard"
+   AutoRepeat  0 0
+
+   LeftAlt         Meta
+   RightAlt        Meta
+   ScrollLock      Compose
+   RightCtl        Control
+END
+
+    if (arch() =~ /^sparc/) {
+	print F <<END;
+   XkbRules    "sun"
+   XkbModel    "sun"
+   XkbLayout   "us"
+   XkbCompat   "compat/complete"
+   XkbTypes    "types/complete"
+   XkbKeycodes "sun(type5)"
+   XkbGeometry "sun(type5)"
+   XkbSymbols  "sun/us(sun5)"
+END
+    } else {
+	print F "    XkbDisable\n";
+    }
+
+    print F <<END;
+EndSection
+
+Section "Pointer"
+   Protocol    "$mouse_type"
+   Device      "/dev/mouse"
+   ZAxisMapping 4 5
+EndSection
+
+$wacom
+
+Section "Monitor"
+   Identifier  "My Monitor"
+   VendorName  "Unknown"
+   ModelName   "Unknown"
+   HorizSync   31.5-35.5
+   VertRefresh 50-70
+   Modeline "640x480"     25.175 640  664  760  800   480  491  493  525
+   Modeline "640x480"     28.3   640  664  760  800   480  491  493  525
+   ModeLine "800x600"     36     800  824  896 1024   600  601  603  625
+EndSection
+
+
+Section "Device"
+   Identifier "Generic VGA"
+   VendorName "Unknown"
+   BoardName "Unknown"
+   Chipset "generic"
+EndSection
+
+Section "Device"
+   Identifier "svga"
+   VendorName "Unknown"
+   BoardName "Unknown"
+EndSection
+
+Section "Screen"
+    Driver      "vga16"
+    Device      "Generic VGA"
+    Monitor     "My Monitor"
+    Subsection "Display"
+        Modes       "640x480"
+        ViewPort    0 0
+    EndSubsection
+EndSection
+
+Section "Screen"
+    Driver      "fbdev"
+    Device      "Generic VGA"
+    Monitor     "My Monitor"
+    Subsection "Display"
+        Depth       16
+        Modes       "default"
+        ViewPort    0 0
+    EndSubsection
+EndSection
+
+Section "Screen"
+    Driver "svga"
+    Device      "svga"
+    Monitor     "My Monitor"
+    Subsection "Display"
+        Depth       16
+        Modes       "800x600" "640x480"
+        ViewPort    0 0
+    EndSubsection
+EndSection
+
+Section "Screen"
+    Driver      "accel"
+    Device      "svga"
+    Monitor     "My Monitor"
+    Subsection "Display"
+        Depth       16
+        Modes       "800x600" "640x480"
+        ViewPort    0 0
+    EndSubsection
+EndSection
+END
+}
+#-   ModeLine "640x480"     28     640  672  768  800   480  490  492  525
+
+
+1;