no_comment

14 files changed, 722 insertions, 134 deletions

diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 5af96574b..97cc61553 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -36,125 +36,8 @@ my $itemsNB = 1;
 my (@background1, @background2);
 
 my @themes_vga16 = qw(blue blackwhite savane);
-my @themes = qw(DarkMarble marble3d blueHeart);
-
-my @circle_head = (
-    "19 17 4 1"
-);
-
-my @circle_body = (
-" c None",
-"+ c #FFFFFF",
-"        =====      ",
-"      =========    ",
-"     =+++=======   ",
-"    =++==========  ",
-"   ==+============ ",
-"   +++============ ",
-"  ================o",
-"  ================o",
-"  ================o",
-"  ===============oo",
-"  ===============oo",
-"   =============oo ",
-"   ============ooo ",
-"    o=========ooo  ",
-"     oo=====oooo   ",
-"      ooooooooo    ",
-"        ooooo      ",
-);
-
-#-my @questionmark_head = (
-#-"39 97 6 1",
-#-" 	c None",
-#-".	c #000000",
-#-"+	c #FFFFFF",
-#-"o	c #AAAAAA",
-#-);
-#-my @questionmark_body = (
-#-("OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO") x 10,
-#-"OOOOOOOOOOOOO.......OOOOOOOOOOOOOOOOOOO",
-#-"OOOOOOOOOOOO..OOOOOOO.OOOOOOOOOOOOOOOOO",
-#-"OOOOOOOOOO..OOOOOOOOOOOOOOOOOOOOOOOOOOO",
-#-"OOOOOOOOOO..OOOOOOOOOOOOOOOOOOOOOOOOOOO",
-#-"OOOOOOOO..OOOOOOOOOOOOOOOOOOOOOOOOOOOOO",
-#-"OOOOOOOO..OOOOOOOOOOOOOOOOOOOOOOOOOOOOO",
-#-"OOOOOOO..OOOOOOOOOOOOOOOOOOXOOOOOOOOOOO",
-#-"OOOOOOO.OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO",
-#-"OOOOOO.OOOOOOOOOOOOOOOOOOOOOXOOOOOOOOOO",
-#-"OOOOO..OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO",
-#-"OOOOO.OOOOOOOOOOOOOOOOOOOOOOOXOOOOOOOOO",
-#-"OOOO..OOOOOOOOOOOOOOOOOOOOOOOOXOOOOOOOO",
-#-"OOOO.OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO",
-#-"OOOO.OOOOOOOOOOOOOOOOOOOOOOOOOOXOOOOOOO",
-#-"OOO..OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO",
-#-"OOO.OOOOOOOOOOOOOOOOOOOOOOOOOOOOXOOOOOO",
-#-"OO..OOOOOOOOOOOOOOOOOOOOOOOOOOOOXOOOOOO",
-#-"OOO.OOOOOOOOOOOOOOOOOOOOOOOOOOOOXOOOOOO",
-#-"OO.OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOXOOOOO",
-#-"OO.OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOXOOOOO",
-#-"O..OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOXOOOOO",
-#-"OO.OOOOOOOOOOOoo+++++ooOOOOOOOOOOXOOOOO",
-#-"O.OOOOOOOOOOo+++o+++++++oOOOOOOOOOXOOOO",
-#-"O.OOOOOOOOO+++OOOOo+++++++OOOOOOOOXOOOO",
-#-"O.OOOOOOOOo++oOOOOOo++++++oOOOOOOOXOOOO",
-#-"O.OOOOOOOo+++oOOOOOO+++++++OOOOOOOXOOOO",
-#-"..OOOOOOOo++++OOOOOOo++++++oOOOOOOXOOOO",
-#-"O.OOOOOOO+++++oOOOOOo+++++++OOOOOOXOOOO",
-#-".OOOOOOOO++++++OOOOOo+++++++OOOOOOOXOOO",
-#-".OOOOOOOO++++++OOOOOo+++++++OOOOOOXOOOO",
-#-".OOOOOOOOo++++oOOOOOo++++++oOOOOOOOXOOO",
-#-".OOOOOOOOOo++oOOOOOOo++++++oOOOOOOOXOOO",
-#-".OOOOOOOOOOOOOOOOOOO+++++++OOOOOOOOXOOO",
-#-".OOOOOOOOOOOOOOOOOOO++++++OOOOOOOOOXOOO",
-#-".OOOOOOOOOOOOOOOOOOo+++++oOOOOOOOOOXOOO",
-#-".OOOOOOOOOOOOOOOOOO+++++OOOOOOOOOOOXOOO",
-#-".OOOOOOOOOOOOOOOOOo+++oOOOOOOOOOOOOXOOO",
-#-".OOOOOOOOOOOOOOOOO+++oOOOOOOOOOOOOOXOOO",
-#-".OOOOOOOOOOOOOOOOo++OOOOOOOOOOOOOOOXOOO",
-#-".OOOOOOOOOOOOOOOO++OOOOOOOOOOOOOOOOXOOO",
-#-".OOOOOOOOOOOOOOOO+oOOOOOOOOOOOOOOOOXOOO",
-#-".OOOOOOOOOOOOOOOO+OOOOOOOOOOOOOOOOOXOOO",
-#-".OOOOOOOOOOOOOOOO+OOOOOOOOOOOOOOOOOXOOO",
-#-".OOOOOOOOOOOOOOOOoOOOOOOOOOOOOOOOOOXOOO",
-#-".OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOXOOO",
-#-".OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOXOOO",
-#-"O.OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOXOOO",
-#-"OOOOOOOOOOOOOOOOoooOOOOOOOOOOOOOOOOXOOO",
-#-".OOOOOOOOOOOOOO+++++OOOOOOOOOOOOOOXOOOO",
-#-"O.OOOOOOOOOOOO++++++oOOOOOOOOOOOOOXXOOO",
-#-"O.OOOOOOOOOOOo+++++++OOOOOOOOOOOOOXOOOO",
-#-"O.OOOOOOOOOOOo+++++++OOOOOOOOOOOOOXOOOO",
-#-"O.OOOOOOOOOOOo+++++++OOOOOOOOOOOOOXOOOO",
-#-"OOOOOOOOOOOOOO++++++oOOOOOOOOOOOOOXOOOO",
-#-"O.OOOOOOOOOOOOO+++++OOOOOOOOOOOOOXXOOOO",
-#-"OO.OOOOOOOOOOOOOoooOOOOOOOOOOOOOOOXOOOO",
-#-"OO.OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOXOOOOO",
-#-"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOXOOOOO",
-#-"OO.OOOOOOOOOOOOOOOOOOOOOOOOOOOOOXXOOOOO",
-#-"OOO.OOOOOOOOOOOOOOOOOOOOOOOOOOOOOXOOOOO",
-#-"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOXOOOOOO",
-#-"OOO.OOOOOOOOOOOOOOOOOOOOOOOOOOOOXOOOOOO",
-#-"OOOO.OOOOOOOOOOOOOOOOOOOOOOOOOOXXOOOOOO",
-#-"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOXOOOOOOO",
-#-"OOOOO.OOOOOOOOOOOOOOOOOOOOOOOOOXOOOOOOO",
-#-"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOXXOOOOOOO",
-#-"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOXOOOOOOOO",
-#-"OOOOOO.OOOOOOOOOOOOOOOOOOOOOOXXOOOOOOOO",
-#-"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOXOOOOOOOOO",
-#-"OOOOOOOOOOOOOOOOOOOOOOOOOOOOXXOOOOOOOOO",
-#-"OOOOOOOOOOOOOOOOOOOOOOOOOOOXXOOOOOOOOOO",
-#-"OOOOOOOOOOOOOOOOOOOOOOOOOOOXOOOOOOOOOOO",
-#-"OOOOOOOOOOOOOOOOOOOOOOOOOXXXOOOOOOOOOOO",
-#-"OOOOOOOOOOOOOOOOOOOOOOOOOXOOOOOOOOOOOOO",
-#-"OOOOOOOOOOOOXOOOOOOOOOOXXXOOOOOOOOOOOOO",
-#-"OOOOOOOOOOOOOOXOOOOOOXXXOOOOOOOOOOOOOOO",
-#-"OOOOOOOOOOOOOOOXXXXXXXOOOOOOOOOOOOOOOOO",
-#-("OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO") x 10);
-
-my    @red_circle = (@circle_head, "= c #FF0000", "o c #AA5500", @circle_body);
-my @orange_circle = (@circle_head, "= c #FFAA00", "o c #AA5500", @circle_body);
-my  @green_circle = (@circle_head, "= c #00FF00", "o c #00AA00", @circle_body);
+my @themes = qw(mdk DarkMarble marble3d blueHeart);
+
 
 #-######################################################################################
 #- In/Out Steps Functions
@@ -781,21 +664,17 @@ sub create_steps_window {
     });
     $w->show;
 
+    my @steps_icons = map { [ gtkcreate_xpm($w->{window}, "$ENV{SHARE_PATH}/step-$_.xpm") ] } qw(green orange red);
+
     gtkadd($w->{window},
 	   gtkpack_(new Gtk::VBox(0,0),
 		    (map {; 1, $_ } map {
 			my $step = $o->{steps}{$_};
-			my $circle =
-			  $step->{done}    && \@green_circle  ||
-			  $step->{entered} && \@orange_circle ||
-			  \@red_circle;
-			my @pixmap = Gtk::Gdk::Pixmap->create_from_xpm_d($w->{window}->window, undef, @$circle);
-
 			my $w = new Gtk::Label(translate($step->{text}));
 
 			$w->set_name("Steps" . ($step->{reachable} && "Reachable"));
-			my $b = new Gtk::HBox(0,5);
-			gtkpack_($b, 0, new Gtk::Pixmap(@pixmap), 0, $w);
+			gtkpack_(my $b = new Gtk::HBox(0,5), 0, 
+				 new Gtk::Pixmap(@{$steps_icons[$step->{done} ? 0 : $step->{entered} ? 1 : 2]}), 0, $w);
 
 			$reachableSteps{$_} = $b if $step->{reachable};
 			$b;
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 491680271..be64d842b 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -519,7 +519,7 @@ sub _ask_from_list {
     gtkadd($o->{window},
 	   gtkpack($o->create_box_with_title(@$messages),
 		   gtkpack_(new Gtk::VBox(0,7),
-			    1, @$l > 15 ? gtkset_usize(createScrolledWindow($list), 200, min(400, $::windowheight - 60)) : $list,
+			    1, @$l > 15 ? gtkset_usize(createScrolledWindow($list), 200, min(350, $::windowheight - 60)) : $list,
 			    @okcancel || !ref $title ? (0, create_okcancel($o, @okcancel)) : ())
 		  ));
     $o->show; #- otherwise the moveto is not done
diff --git a/perl-install/partition_table_raw.pm b/perl-install/partition_table_raw.pm
index 50da8dfe5..603d65f4e 100644
--- a/perl-install/partition_table_raw.pm
+++ b/perl-install/partition_table_raw.pm
@@ -22,6 +22,7 @@ my @MBR_signatures = (
     [ 'dos', 0xa0, "\x25\x03\x4E\x02\xCD\x13" ],
     [ 'dos', 0xa0, "\x00\xB4\x08\xCD\x13\x72" ], #- nt2k's
     [ 'dos', 0x60, "\xBB\x00\x7C\xB8\x01\x02\x57\xCD\x13\x5F\x73\x0C\x33\xC0\xCD\x13" ], #- nt's
+    [ 'dos', 0x70, "\x0C\x33\xC0\xCD\x13\x4F\x75\xED\xBE\xA3" ],
     [ 'freebsd', 0xC0, "\x00\x30\xE4\xCD\x16\xCD\x19\xBB\x07\x00\xB4" ],
     [ 'freebsd', 0x160, "\x6A\x10\x89\xE6\x48\x80\xCC\x40\xCD\x13" ],
     [ 'dummy', 0xAC, "\x0E\xB3\x07\x56\xCD\x10\x5E\xEB" ], #- caldera?
diff --git a/perl-install/share/install.rc b/perl-install/share/install.rc
index 84c264a4b..0875a0ece 100644
--- a/perl-install/share/install.rc
+++ b/perl-install/share/install.rc
@@ -8,10 +8,8 @@ style "steps"
   fontset = "-*-*-medium-r-normal-*-8-*-*-*-*-*-iso8859-15"
 }
 
-style "logo"
+style "logo" = "background"
 {
-  bg[NORMAL] = { 1.0, 1.0, 1.0 }
-
   # no background image
   engine "pixmap" { image { function = FLAT_BOX } }
 }
diff --git a/perl-install/share/step-green.xpm b/perl-install/share/step-green.xpm
new file mode 100644
index 000000000..6d96f2281
--- /dev/null
+++ b/perl-install/share/step-green.xpm
@@ -0,0 +1,193 @@
+/* XPM */
+static char *magick[] = {
+/* columns rows colors chars-per-pixel */
+"21 21 166 2",
+"   c #295300",
+".  c #2a5500",
+"X  c #2e540d",
+"o  c #2f540e",
+"O  c #305413",
+"+  c #33551a",
+"@  c #36591c",
+"#  c #3a582b",
+"$  c #326400",
+"%  c #37660d",
+"&  c #356b00",
+"*  c #3e6d16",
+"=  c #387100",
+"-  c #3b7402",
+";  c #3d7b00",
+":  c #3e7d00",
+">  c #3f6623",
+",  c #407c07",
+"<  c #417c0a",
+"1  c #417711",
+"2  c #537b3f",
+"3  c #465b48",
+"4  c #4d5e5a",
+"5  c #4e5e5c",
+"6  c #505f63",
+"7  c #4f7244",
+"8  c #53744a",
+"9  c #587f4a",
+"0  c #5a7c54",
+"q  c #546465",
+"w  c #586b68",
+"e  c #5b637f",
+"r  c #5a6871",
+"t  c #5f697f",
+"y  c #5b7661",
+"u  c #627a6e",
+"i  c #5f6981",
+"p  c #61658e",
+"a  c #62658f",
+"s  c #636e83",
+"d  c #62688b",
+"f  c #64698f",
+"g  c #666c8f",
+"h  c #646593",
+"j  c #646791",
+"k  c #646792",
+"l  c #646594",
+"z  c #656697",
+"x  c #666797",
+"c  c #666699",
+"v  c #656992",
+"b  c #676d92",
+"n  c #676898",
+"m  c #686998",
+"M  c #696c98",
+"N  c #6b7988",
+"B  c #6e788e",
+"V  c #6c7196",
+"C  c #6f7695",
+"Z  c #757b99",
+"A  c #468c00",
+"S  c #478e00",
+"D  c #498612",
+"F  c #489002",
+"G  c #499200",
+"H  c #4b9600",
+"J  c #4c9405",
+"K  c #4c910a",
+"L  c #4d8223",
+"P  c #59893e",
+"I  c #579820",
+"U  c #50a000",
+"Y  c #50a100",
+"T  c #51a200",
+"R  c #52a400",
+"E  c #53a700",
+"W  c #54a800",
+"Q  c #55a900",
+"!  c #56ab00",
+"~  c #56ad00",
+"^  c #57ad01",
+"/  c #58a017",
+"(  c #58b100",
+")  c #59b200",
+"_  c #59b300",
+"`  c #5ab500",
+"'  c #5bb700",
+"]  c #5dba00",
+"[  c #5dbb00",
+"{  c #5ebc00",
+"}  c #5ebd00",
+"|  c #64b51a",
+" . c #64a239",
+".. c #6ab729",
+"X. c #5e8850",
+"o. c #628360",
+"O. c #6a896d",
+"+. c #6a8572",
+"@. c #7baf5a",
+"#. c #60c000",
+"$. c #61c200",
+"%. c #62c400",
+"&. c #63c600",
+"*. c #64c800",
+"=. c #65c900",
+"-. c #65ca00",
+";. c #66cb00",
+":. c #66cc00",
+">. c #67cc01",
+",. c #68cd03",
+"<. c #68cd04",
+"1. c #6bce09",
+"2. c #6dce0c",
+"3. c #6ecf0d",
+"4. c #6fcf0f",
+"5. c #70cf10",
+"6. c #7bcc2f",
+"7. c #7ad322",
+"8. c #7cd324",
+"9. c #7ed428",
+"0. c #718189",
+"q. c #748090",
+"w. c #798495",
+"e. c #7d8a95",
+"r. c #8aaf7b",
+"t. c #96bf7b",
+"y. c #80d52b",
+"u. c #82d52e",
+"i. c #83d630",
+"p. c #83d631",
+"a. c #85d435",
+"s. c #85d634",
+"d. c #88d739",
+"f. c #89d83a",
+"g. c #8bd83d",
+"h. c #8ed942",
+"j. c #8fd946",
+"k. c #8fda45",
+"l. c #91da48",
+"z. c #94db4c",
+"x. c #9add57",
+"c. c #9bde58",
+"v. c #93c46f",
+"b. c #9acf6d",
+"n. c #a5d876",
+"m. c #a1e063",
+"M. c #a2e064",
+"N. c #a6e16a",
+"B. c #a7e26d",
+"V. c #a9e26f",
+"C. c #ace277",
+"Z. c #ade476",
+"A. c #b2e57f",
+"S. c #819987",
+"D. c #849e86",
+"F. c #849c89",
+"G. c #8ca68b",
+"H. c #8eaf82",
+"J. c #95b588",
+"K. c #9fbf8f",
+"L. c #a1c48c",
+"P. c #a3c88b",
+"I. c #a7cc8c",
+"U. c #aed590",
+"Y. c #b3dc8e",
+"T. c None",
+/* pixels */
+"T.T.T.T.T.T.T.T.T.T.T.T.r.+.T.T.T.T.T.T.T.",
+"T.T.T.T.T.T.T.T.T.T.T.w.c.o.T.T.T.T.T.T.T.",
+"T.T.T.T.T.T.T.T.T.T.M I.u.0 T.T.T.T.T.T.T.",
+"T.T.T.T.T.T.T.T.T.n K.Z.,.2 T.T.T.T.T.T.T.",
+"T.n T.T.T.T.T.T.T.e.A.z.} L T.T.T.T.T.T.T.",
+"T.t.L.J.F.q.V T.Z U.m.7.} K f T.T.T.T.T.T.",
+"T.O.a.x.M.N.n.P.Y.V.a.4.%.^ u T.T.T.T.T.T.",
+"T.T.X.] 4.y.f.l.k.y.4.>.>.=...N T.T.T.T.T.",
+"T.T.z P ^ $.>.1.1.,.>.=.,.4.7.k.v.H.S.0.b ",
+"T.T.T.v I ' %.=.>.>.>.>.>.<.5.8.d.h.p.=./ ",
+"T.T.T.T.g | <.>.>.>.>.>.>.=.%.] Q S & @ q ",
+"T.T.T.T.T.@.9.1.>.>.>.>.=.%.Q : . O 3 k T.",
+"T.T.T.T.m b.g.4.>.>.>.>.=._ ; X 6 p T.T.T.",
+"T.T.T.T.G.B.p.>.%.=.=.=.=.E % e T.T.T.T.T.",
+"T.T.T.C C.l.%.T H T ' %.=.E * z T.T.T.T.T.",
+"T.T.T.D.h.Q =   + > S _ $.Q 1 k T.T.T.T.T.",
+"T.T.B 6.G X # 5 z T.7 J _ Q < k T.T.T.T.T.",
+"T.T. .D 4 p T.T.T.T.T.y T E , d T.T.T.T.T.",
+"T.T.s k T.T.T.T.T.T.T.T.9 F = t T.T.T.T.T.",
+"T.T.T.T.T.T.T.T.T.T.T.T.T.8 $ r T.T.T.T.T.",
+"T.T.T.T.T.T.T.T.T.T.T.T.T.T.w i T.T.T.T.T."
+};
diff --git a/perl-install/share/step-orange.xpm b/perl-install/share/step-orange.xpm
new file mode 100644
index 000000000..9a64f3a3d
--- /dev/null
+++ b/perl-install/share/step-orange.xpm
@@ -0,0 +1,198 @@
+/* XPM */
+static char *magick[] = {
+/* columns rows colors chars-per-pixel */
+"21 21 171 2",
+"   c #664008",
+".  c #66420f",
+"X  c #6a4000",
+"o  c #6f4300",
+"O  c #6c440d",
+"+  c #664416",
+"@  c #6b4922",
+"#  c #664d3b",
+"$  c #755129",
+"%  c #7e5c3c",
+"&  c #665043",
+"*  c #665350",
+"=  c #66565e",
+"-  c #66575f",
+";  c #695450",
+":  c #745d58",
+">  c #665862",
+",  c #7d604e",
+"<  c #7a6055",
+"1  c #6d627a",
+"2  c #74677d",
+"3  c #786671",
+"4  c #7e6b74",
+"5  c #666187",
+"6  c #666289",
+"7  c #66638c",
+"8  c #69658c",
+"9  c #6c668c",
+"0  c #666492",
+"q  c #676697",
+"w  c #666699",
+"e  c #686797",
+"r  c #6b6894",
+"t  c #6d6b97",
+"y  c #6e6b97",
+"u  c #696898",
+"i  c #6a6899",
+"p  c #6b6998",
+"a  c #706787",
+"s  c #726886",
+"d  c #746881",
+"f  c #746983",
+"g  c #787295",
+"h  c #7c7392",
+"j  c #7c7493",
+"k  c #8d5500",
+"l  c #8e590e",
+"z  c #945a04",
+"x  c #9f6000",
+"c  c #9b6726",
+"v  c #976b3f",
+"b  c #a56300",
+"n  c #a66400",
+"m  c #a7670a",
+"M  c #ad6800",
+"N  c #a96d1a",
+"B  c #b26b00",
+"V  c #b56d00",
+"C  c #b66d00",
+"Z  c #b6710e",
+"A  c #be7200",
+"S  c #bf7814",
+"D  c #806047",
+"F  c #826657",
+"G  c #947059",
+"H  c #977d7a",
+"J  c #c07300",
+"K  c #c07301",
+"L  c #c37500",
+"P  c #c77800",
+"I  c #c57808",
+"U  c #ca7900",
+"Y  c #cd7b00",
+"T  c #cf7c00",
+"R  c #c97b09",
+"E  c #d47f00",
+"W  c #88798b",
+"Q  c #837994",
+"!  c #b28050",
+"~  c #a1867d",
+"^  c #ad907f",
+"/  c #ba8e62",
+"(  c #d88200",
+")  c #d98200",
+"_  c #da8300",
+"`  c #da8404",
+"'  c #dd8500",
+"]  c #d28414",
+"[  c #dd8d1d",
+"{  c #cd8420",
+"}  c #c28338",
+"|  c #e28800",
+" . c #e58900",
+".. c #e78b00",
+"X. c #e98c00",
+"o. c #eb8d00",
+"O. c #ec8e00",
+"+. c #ee8f00",
+"@. c #f09000",
+"#. c #f29100",
+"$. c #f39200",
+"%. c #f59300",
+"&. c #f79400",
+"*. c #f89500",
+"=. c #f99600",
+"-. c #fa9600",
+";. c #fc9700",
+":. c #fd9800",
+">. c #fe9900",
+",. c #ff9900",
+"<. c #ff9901",
+"1. c #ff9a03",
+"2. c #ff9b04",
+"3. c #ff9b06",
+"4. c #ff9e0c",
+"5. c #ff9e0d",
+"6. c #ff9f0f",
+"7. c #ffa012",
+"8. c #ffa113",
+"9. c #ffa216",
+"0. c #ffa41b",
+"q. c #ffa621",
+"w. c #ffa722",
+"e. c #ffa927",
+"r. c #ffa928",
+"t. c #ffaa2a",
+"y. c #f5a938",
+"u. c #ffac30",
+"i. c #ffad33",
+"p. c #ffae34",
+"a. c #ffb23f",
+"s. c #cb8e45",
+"d. c #d3984e",
+"f. c #d5a161",
+"g. c #d7af7e",
+"h. c #ffb545",
+"j. c #ffb648",
+"k. c #ffb74b",
+"l. c #ffb84e",
+"z. c #ffbb55",
+"x. c #ffbd5a",
+"c. c #e2ab62",
+"v. c #eebc77",
+"b. c #efbd77",
+"n. c #ffc061",
+"m. c #ffc163",
+"M. c #fdc167",
+"N. c #ffc267",
+"B. c #ffc46c",
+"V. c #f4c27b",
+"C. c #fdc672",
+"Z. c #ffc772",
+"A. c #ffc773",
+"S. c #ffc876",
+"D. c #ffc978",
+"F. c #ffcc7f",
+"G. c #94838e",
+"H. c #9b888d",
+"J. c #918496",
+"K. c #928494",
+"L. c #998993",
+"P. c #9b8d99",
+"I. c #a68f8a",
+"U. c #a7918d",
+"Y. c #b79a88",
+"T. c #bc9e86",
+"R. c #ceae8f",
+"E. c #d1ad86",
+"W. c #ddba90",
+"Q. c #e0ba8b",
+"!. c None",
+/* pixels */
+"!.!.!.!.!.!.!.!.!.!.!.!.h H !.!.!.!.!.!.!.",
+"!.!.!.!.!.!.!.!.!.!.!.!.E.s.!.!.!.!.!.!.!.",
+"!.!.!.!.!.!.!.!.!.!.!.K.C.{ q !.!.!.!.!.!.",
+"!.!.!.!.!.!.!.!.!.!.i Q.z.I 9 !.!.!.!.!.!.",
+"!.!.!.!.!.!.!.!.!.i R.D.t.K 3 !.!.!.!.!.!.",
+"!.H.Q t !.!.!.!.!.K.F.l.3.L F !.!.!.!.!.!.",
+"!.f.C.V.g.T.U.L.P.W.m.q.;.( v !.!.!.!.!.!.",
+"!.e [ q.j.x.N.C.S.m.i.4.>.$.] r !.!.!.!.!.",
+"!.!.4 S X.4.q.t.e.0.4.>.>.3.4.d.^ G.j i !.",
+"!.!.!.f R ..&.>.>.>.>.>.>.3.7.i.z.N.N.c./ ",
+"!.!.!.!.G ` $.>.>.>.>.>.>.>.>.4.9.7.&.E B ",
+"!.!.!.!.!.! 4.3.>.>.>.>.>.>.*...U x o + = ",
+"!.!.!.!.!.~ a.7.>.>.>.>.>.*.' b o . & 0 !.",
+"!.!.!.!.g v.l.7.>.>.>.>.>.$.C O = 7 !.!.!.",
+"!.!.!.!.Y.B.p.3.*.*.;.>.>.X.n ; !.!.!.!.!.",
+"!.!.!.t v.h.%.T A L ( +.*.X.M : !.!.!.!.!.",
+"!.!.!.I.j.( k X   @ z P +.X.B < !.!.!.!.!.",
+"!.!.W y.K   # > 5 !.1 c E | C , !.!.!.!.!.",
+"!.!.} m * 6 !.!.!.!.!.a Z Y C D !.!.!.!.!.",
+"!.!.s 8 !.!.!.!.!.!.!.!.f N n % !.!.!.!.!.",
+"!.!.!.!.!.!.!.!.!.!.!.!.!.2 l $ !.!.!.!.!."
+};
diff --git a/perl-install/share/step-red.xpm b/perl-install/share/step-red.xpm
new file mode 100644
index 000000000..745f37474
--- /dev/null
+++ b/perl-install/share/step-red.xpm
@@ -0,0 +1,194 @@
+/* XPM */
+static char *magick[] = {
+/* columns rows colors chars-per-pixel */
+"21 21 167 2",
+"   c #661515",
+".  c #66181a",
+"X  c #6f1616",
+"o  c #661c22",
+"O  c #661f26",
+"+  c #67252f",
+"@  c #662e3e",
+"#  c #662f40",
+"$  c #66364b",
+"%  c #66374d",
+"&  c #703142",
+"*  c #783649",
+"=  c #7b374a",
+"-  c #7f425b",
+";  c #7f445f",
+":  c #664360",
+">  c #6c4461",
+",  c #664f73",
+"<  c #664f74",
+"1  c #66547c",
+"2  c #764663",
+"3  c #7c4560",
+"4  c #7a5175",
+"5  c #665883",
+"6  c #6e5e8c",
+"7  c #6e608e",
+"8  c #666090",
+"9  c #666293",
+"0  c #676598",
+"q  c #666699",
+"w  c #6a6394",
+"e  c #686597",
+"r  c #6c6292",
+"t  c #686698",
+"y  c #6b6798",
+"u  c #6b6799",
+"i  c #6b6899",
+"p  c #6f6999",
+"a  c #70608e",
+"s  c #746a99",
+"d  c #766b98",
+"f  c #7d6e9a",
+"g  c #821a1a",
+"h  c #911d1d",
+"j  c #981e1e",
+"k  c #822e3a",
+"l  c #9b2020",
+"z  c #9e2020",
+"x  c #a32121",
+"c  c #a62121",
+"v  c #af2323",
+"b  c #b12323",
+"n  c #b22424",
+"m  c #b52424",
+"M  c #b72525",
+"N  c #bc2525",
+"B  c #be2626",
+"V  c #bf343c",
+"C  c #813c52",
+"Z  c #8f3d52",
+"A  c #a03542",
+"S  c #a73d4f",
+"D  c #b43540",
+"F  c #9a4054",
+"G  c #864763",
+"H  c #8a5477",
+"J  c #944f6f",
+"K  c #ba4355",
+"L  c #ab5773",
+"P  c #a7627f",
+"I  c #b6627b",
+"U  c #c02626",
+"Y  c #c52727",
+"T  c #c12a2c",
+"R  c #c82828",
+"E  c #cb363f",
+"W  c #d12a2a",
+"Q  c #da2c2c",
+"!  c #db2c2c",
+"~  c #dd2c2c",
+"^  c #e22d2d",
+"/  c #e42e2e",
+"(  c #e52e2e",
+")  c #e62e2e",
+"_  c #e92e2e",
+"`  c #e92f2f",
+"'  c #eb2f2f",
+"]  c #ed2f2f",
+"[  c #e23031",
+"{  c #ee3030",
+"}  c #ed3538",
+"|  c #f23030",
+" . c #f33131",
+".. c #f53131",
+"X. c #f73131",
+"o. c #f83232",
+"O. c #f93232",
+"+. c #fc3232",
+"@. c #fd3333",
+"#. c #fe3333",
+"$. c #ff3333",
+"%. c #ff3434",
+"&. c #ff3535",
+"*. c #ff3636",
+"=. c #ff3838",
+"-. c #ff3939",
+";. c #ff3d3d",
+":. c #d14959",
+">. c #d36573",
+",. c #dd727e",
+"<. c #ff4040",
+"1. c #ff4141",
+"2. c #ff4242",
+"3. c #ff4545",
+"4. c #ff4949",
+"5. c #ff4c4c",
+"6. c #ff4d4d",
+"7. c #ff5151",
+"8. c #ff5252",
+"9. c #ff5a5a",
+"0. c #fd5d5e",
+"q. c #ff5c5c",
+"w. c #e8767e",
+"e. c #ff6161",
+"r. c #ff6363",
+"t. c #ff6969",
+"y. c #ff6a6a",
+"u. c #ff6d6d",
+"i. c #ff6f6f",
+"p. c #ff7474",
+"a. c #ff7575",
+"s. c #ff7777",
+"d. c #fb7a7c",
+"f. c #ff7979",
+"g. c #ff7e7e",
+"h. c #8c5e84",
+"j. c #806c96",
+"k. c #876f97",
+"l. c #836f98",
+"z. c #8b7096",
+"x. c #9f6383",
+"c. c #927599",
+"v. c #9f7b9b",
+"b. c #ad738f",
+"n. c #a77794",
+"m. c #a47d9b",
+"M. c #b5718a",
+"N. c #be798f",
+"B. c #a281a0",
+"V. c #c78194",
+"C. c #cb899a",
+"Z. c #cf94a4",
+"A. c #e38d97",
+"S. c #e98b92",
+"D. c #e9959c",
+"F. c #f58b8e",
+"G. c #ff8383",
+"H. c #ff8989",
+"J. c #fc8e8f",
+"K. c #ff8d8d",
+"L. c #f88f91",
+"P. c #fc9091",
+"I. c #ff9191",
+"U. c #ff9696",
+"Y. c #fd9e9f",
+"T. c #e597a0",
+"R. c None",
+/* pixels */
+"R.R.R.R.R.R.R.R.R.R.R.R.z.P R.R.R.R.R.R.R.",
+"R.R.R.R.R.R.R.R.R.R.R.p A.:.R.R.R.R.R.R.R.",
+"R.R.R.R.R.R.R.R.R.R.R.m.H.E e R.R.R.R.R.R.",
+"R.R.R.R.R.R.R.R.R.R.f D.i.T 6 R.R.R.R.R.R.",
+"R.R.R.R.R.R.R.R.R.i T.K.6.U 4 R.R.R.R.R.R.",
+"R.n.v.c.l.d u R.R.B.U.y.&.R G R.R.R.R.R.R.",
+"R.I g.I.I.L.S.C.Z.Y.a.4.+.^ S R.R.R.R.R.R.",
+"R.R.K &.8.e.y.a.f.y.6.=.&.+.} h.u R.R.R.R.",
+"R.R.r D ~ ..=.1.1.;.&.&.&.=.3.0.,.b.j.u R.",
+"R.R.R.a V ) ..+.+.+.+.+.&.&.;.6.e.a.d.w.>.",
+"R.R.R.R.H [ ..+.+.+.+.+.+.+.&.+.+. .Q N x ",
+"R.R.R.R.R.L 3.=.+.+.+.+.+.+. .Q b g   $ < ",
+"R.R.R.R.R.M.y.1.+.+.+.+.+.O.W h . # , R.R.",
+"R.R.R.R.k.K.i.1.+.+.+.+.+.] b + 5 R.R.R.R.",
+"R.R.R.R.V.G.8...]  ...+.+.' c > R.R.R.R.R.",
+"R.R.R.d F.0.Q v z c Y ) O.' v 2 R.R.R.R.R.",
+"R.R.R.N.9.N X o @ % k N ) ' M 3 R.R.R.R.R.",
+"R.R.x.O.l O : 8 R.R.q Z R ~ M - R.R.R.R.R.",
+"R.R.J ; 1 8 R.R.R.R.R.w F R n C R.R.R.R.R.",
+"R.R.R.R.R.R.R.R.R.R.R.R.R.A j = R.R.R.R.R.",
+"R.R.R.R.R.R.R.R.R.R.R.R.R.7 = & R.R.R.R.R."
+};
diff --git a/perl-install/share/themes-blue.rc b/perl-install/share/themes-blue.rc
index 3cc921861..d85932b45 100644
--- a/perl-install/share/themes-blue.rc
+++ b/perl-install/share/themes-blue.rc
@@ -42,14 +42,14 @@ style "button" = "any"
 
 style "background"
 {
-  bg[NORMAL] = { 0, 0, 0.67 }
+  bg[NORMAL] = { 0, 0.67, 0.99 }
   bg[PRELIGHT] = { 0, 0, 0.67 }
 }
 
 style "steps"
 {
-  bg[NORMAL] = { 0, 0, 0 }
-  fg[NORMAL] = { 1.0, 1.0, 1.0 }
+  bg[NORMAL] = { 0, 0, 1.0 }
+  fg[NORMAL] = { 1.0, 1.0, 0 }
 }
 
 widget_class "*" style "any"
diff --git a/perl-install/share/themes-mdk.rc b/perl-install/share/themes-mdk.rc
new file mode 100644
index 000000000..c9e31fc62
--- /dev/null
+++ b/perl-install/share/themes-mdk.rc
@@ -0,0 +1,125 @@
+style "checkradiobutton" {
+  engine "pixmap" {
+    image 
+      {
+        function        = CHECK
+	recolorable     = TRUE
+	shadow          = OUT
+	overlay_file    = "mdk-check_off.png"
+	overlay_stretch = FALSE
+      }
+    image 
+      {
+        function        = CHECK
+	recolorable     = TRUE
+	shadow          = IN
+	overlay_file    = "mdk-check_on.png"
+	overlay_stretch = FALSE
+      }
+    image 
+      {
+        function        = OPTION
+	recolorable     = TRUE
+	shadow          = OUT
+	overlay_file    = "mdk-toggle_off.png"
+	overlay_stretch = FALSE
+      }
+    image 
+      {
+        function        = OPTION
+	recolorable     = TRUE
+	shadow          = IN
+	overlay_file    = "mdk-toggle_on.png"
+	overlay_stretch = FALSE
+      }
+    image 
+      {
+        function        = FOCUS
+	recolorable     = TRUE
+	overlay_file    = "focus.png"
+	overlay_border  = { 4, 4, 4, 4 }
+	overlay_stretch = TRUE
+      }
+  }
+}
+
+style "window" 
+{
+  engine "pixmap" {
+    image 
+      {
+	function        = FLAT_BOX
+	recolorable     = TRUE
+	file            = "mdk-bg.png"
+	stretch         = FALSE
+      }
+  }
+}
+
+style "any"
+{
+  base[NORMAL]	  = { 0.2, 0.2, 0.4 }
+  bg[NORMAL]      = { 0.2, 0.2, 0.4 }
+  bg[INSENSITIVE] = { 0.6, 0.6, 0.8 }
+  base[INSENSITIVE]={ 0.6, 0.6, 0.8 }
+  bg[ACTIVE]      = { 0.6, 0.6, 0.8 }
+  bg[PRELIGHT]    = { 0.4, 0.4, 0.6 }
+  
+  text[NORMAL]	  = { 1.0, 1.0, 1.0 }
+  fg[NORMAL]  	  = { 1.0, 1.0, 1.0 }
+  fg[INSENSITIVE] = { 1.0, 1.0, 1.0 }
+  text[INSENSITIVE]={ 1.0, 1.0, 1.0 }
+  fg[ACTIVE]  	  = { 1.0, 1.0, 1.0 }
+  fg[PRELIGHT]    = { 1.0, 1.0, 1.0 }
+
+  bg[SELECTED] = { 1.0, 1.0, 1.0 }
+  fg[SELECTED] = { 0.2, 0.2, 0.4 }
+}
+
+style "entry"
+{
+  base[NORMAL] = { 0.4, 0.4, 0.6 }
+  base[ACTIVE] = { 0.4, 0.4, 0.6 }
+  fg[NORMAL]   = { 1.0, 1.0, 1.0 }
+}
+
+style "notebook"
+{
+  bg[NORMAL]      = { 0, 0, 1.0 }
+  bg[ACTIVE]      = { 0, 0, 0.67 }
+  fg[NORMAL]      = { 1.0, 1.0, 1.0 }
+}
+
+style "button" = "any"
+{
+  bg[NORMAL] = { 0.4, 0.4, 0.6 }
+  fg[NORMAL] = { 1.0, 1.0, 1.0 }
+  bg[PRELIGHT] = { 0.36, 0.36, 0.56 }
+  fg[PRELIGHT] = { 0.8, 0.8, 1.0 }
+}
+
+style "background"
+{
+  bg[NORMAL] = { 0.6, 0.6, 0.8 }
+  bg[PRELIGHT] = { 0.8, 0.8, 0.99 }
+}
+
+style "steps"
+{
+  bg[NORMAL] = { 0.4, 0.4, 0.6 }
+  fg[NORMAL] = { 1.0, 1.0, 1.0 }
+}
+
+widget_class "GtkWindow" style "window"
+widget_class "*" style "any"
+widget_class "*GtkSpin*" style "entry"
+widget_class "*GtkEntry*" style "entry"
+widget_class "*Gtk*List*" style "entry"
+widget_class "*GtkCTree*" style "entry"
+widget_class "*GtkNotebook*" style "notebook"
+widget "*GtkButton*" style "button"
+widget "*background*" style "background"
+widget "*Steps*" style "steps"
+
+class "GtkRadioButton" style "checkradiobutton"
+class "GtkCheckButton" style "checkradiobutton"
diff --git a/perl-install/share/themes/mdk-bg.png b/perl-install/share/themes/mdk-bg.png
new file mode 100644
index 000000000..d749eb412
--- /dev/null
+++ b/perl-install/share/themes/mdk-bg.png
diff --git a/perl-install/share/themes/mdk-check_off.png b/perl-install/share/themes/mdk-check_off.png
new file mode 100644
index 000000000..1e205d866
--- /dev/null
+++ b/perl-install/share/themes/mdk-check_off.png
diff --git a/perl-install/share/themes/mdk-check_on.png b/perl-install/share/themes/mdk-check_on.png
new file mode 100644
index 000000000..e009f897a
--- /dev/null
+++ b/perl-install/share/themes/mdk-check_on.png
diff --git a/perl-install/share/themes/mdk-toggle_off.png b/perl-install/share/themes/mdk-toggle_off.png
new file mode 100644
index 000000000..da48f81d1
--- /dev/null
+++ b/perl-install/share/themes/mdk-toggle_off.png
diff --git a/perl-install/share/themes/mdk-toggle_on.png b/perl-install/share/themes/mdk-toggle_on.png
new file mode 100644
index 000000000..0b1844d04
--- /dev/null
+++ b/perl-install/share/themes/mdk-toggle_on.png