7 files changed, 141 insertions, 13 deletions
diff --git a/perl-install/share/diskdrake.rc b/perl-install/share/diskdrake.rc
index 6d315056e..e92a089b4 100644
--- a/perl-install/share/diskdrake.rc
+++ b/perl-install/share/diskdrake.rc
@@ -21,6 +21,7 @@ style "blue" = "font"
 style "white" = "font"
 {
   bg[NORMAL] = { 1.0, 1.0, 1.0 }
+  bg[PRELIGHT] = { 0.67, 0.67, 0.67 }
 }
 
 widget "*Linux*" style "red" 
diff --git a/perl-install/share/install.rc b/perl-install/share/install.rc
index aa893579d..44e808c66 100644
--- a/perl-install/share/install.rc
+++ b/perl-install/share/install.rc
@@ -1,22 +1,14 @@
-
-
-style "border"
-{
-  bg[NORMAL] = { 0, 0, 0 }
-}
-
 style "steps"
 {
   bg[NORMAL] = { 0, 0, 0 }
   fg[NORMAL] = { 1.0, 1.0, 1.0 }
+  font = "-adobe-helvetica-medium-r-normal-*-*-80-*-*-p-*-iso8859-1"	
 }
 
-style "title"
+style "logo"
 {
-  bg[NORMAL] = { 0, 0.66, 1.0 }
-#  fg[NORMAL] = { 1.0, 1.0, 1.0 }
+  bg[NORMAL] = { 1.0, 1.0, 1.0 }
 }
 
-
-widget "*Title" style "title"
-widget "*Steps" style "steps"
+widget "*Steps*" style "steps"
+widget "*logo*" style "logo"
+\ No newline at end of file
diff --git a/perl-install/share/list b/perl-install/share/list
index 301cbb4a7..3ab0eed94 100644
--- a/perl-install/share/list
+++ b/perl-install/share/list
@@ -1,6 +1,8 @@
 /bin/ash
+/bin/cpio
 /sbin/insmod
 /sbin/mke2fs
+/usr/bin/bzip2
 /usr/lib/rpm/rpmrc
 /usr/X11R6/bin/xmodmap
 /usr/X11R6/bin/XF86_VGA16
diff --git a/perl-install/share/themes-blackwhite.rc b/perl-install/share/themes-blackwhite.rc
new file mode 100644
index 000000000..bc94df9aa
--- /dev/null
+++ b/perl-install/share/themes-blackwhite.rc
@@ -0,0 +1,40 @@
+style "any"
+{
+  font = "-adobe-helvetica-medium-r-normal-*-*-100-*-*-p-*-iso8859-1"
+
+  bg[NORMAL]      = { 0.67, 0.67, 0.67 }
+  bg[ACTIVE]      = { 0, 0, 0 }
+  bg[PRELIGHT]    = { 0, 0, 0 }
+  bg[INSENSITIVE] = { 0, 0, 0 }
+  
+  fg[NORMAL]  	  = { 1.0, 1.0, 1.0 }
+  fg[ACTIVE]  	  = { 1.0, 1.0, 1.0 }
+  fg[PRELIGHT]    = { 1.0, 1.0, 1.0 }
+  fg[INSENSITIVE] = { 1.0, 1.0, 1.0 }
+}
+
+style "entry"
+{
+  base[NORMAL] = { 1.0, 1.0, 1.0 }
+  fg[NORMAL] = { 0.67, 0.67, 0.67 }
+}
+
+style "button"
+{
+  bg[NORMAL] = { 1.0, 1.0, 1.0 }
+  fg[NORMAL] = { 0, 0, 0 }
+  bg[PRELIGHT] = { 1.0, 1.0, 1.0 }
+  fg[PRELIGHT] = { 0.67, 0.67, 0.67 }
+}
+
+style "background"
+{
+  bg[NORMAL] = { 0.67, 0.67, 0.67 }
+}
+
+widget_class "*" style "any"
+widget_class "*GtkEntry*" style "entry"
+widget_class "*GtkSpin*" style "entry"
+widget_class "*Gtk*List*" style "entry"
+widget "*GtkButton*" style "button"
+widget "*background*" style "background"
diff --git a/perl-install/share/themes-blue.rc b/perl-install/share/themes-blue.rc
new file mode 100644
index 000000000..1404d4dce
--- /dev/null
+++ b/perl-install/share/themes-blue.rc
@@ -0,0 +1,36 @@
+style "any"
+{
+  font = "-adobe-helvetica-medium-r-normal-*-*-100-*-*-p-*-iso8859-1"
+
+  bg[NORMAL]      = { 0, 0, 0.67 }
+  bg[ACTIVE]      = { 0, 0.67, 1.0 }
+  bg[PRELIGHT]    = { 0, 0, 1.0 }
+  bg[INSENSITIVE] = { 1.0, 0, 0.67 }
+  
+  fg[NORMAL]  	  = { 1.0, 1.0, 1.0 }
+  fg[ACTIVE]  	  = { 1.0, 1.0, 1.0 }
+  fg[PRELIGHT]    = { 1.0, 1.0, 1.0 }
+  fg[INSENSITIVE] = { 1.0, 1.0, 1.0 }
+}
+
+style "entry"
+{
+  base[NORMAL] = { 0, 1.0, 1.0 }
+  fg[NORMAL] = { 0.67, 0, 0.67 }
+}
+
+style "button" = "any"
+{
+}
+
+style "background"
+{
+  bg[NORMAL] = { 0, 0.67, 1.0 }
+}
+
+widget_class "*" style "any"
+widget_class "*GtkEntry*" style "entry"
+widget_class "*GtkSpin*" style "entry"
+widget_class "*Gtk*List*" style "entry"
+widget "*GtkButton*" style "button"
+widget "*background*" style "background"
diff --git a/perl-install/share/themes-savane.rc b/perl-install/share/themes-savane.rc
new file mode 100644
index 000000000..43e67583c
--- /dev/null
+++ b/perl-install/share/themes-savane.rc
@@ -0,0 +1,39 @@
+style "any"
+{
+  font = "-adobe-helvetica-medium-r-normal-*-*-100-*-*-p-*-iso8859-1"
+
+  bg[NORMAL]      = { 0.67, 0.33, 0 }
+  bg[PRELIGHT]      = { 1.0, 1.0, 0 }
+  bg[INSENSITIVE] = { 1.0, 0, 0.67 }
+  
+  fg[NORMAL] = { 1.0, 1.0, 1.0 }
+  fg[ACTIVE] = { 1.0, 1.0, 1.0 }
+  fg[PRELIGHT] = { 1.0, 1.0, 1.0 }
+  fg[INSENSITIVE]   = { 1.0, 1.0, 1.0 }
+}
+
+style "entry"
+{
+  base[NORMAL] = { 1.0, 1.0, 1.0 }
+  fg[NORMAL] = { 0, 0, 0 }
+}
+
+style "button"
+{
+  bg[NORMAL] = { 1.0, 0.67, 0 }
+  fg[NORMAL] = { 0, 0, 0 }
+  bg[PRELIGHT] = { 1.0, 1.0, 0 }
+  fg[PRELIGHT] = { 0, 0, 0 }
+}
+
+style "background"
+{
+  bg[NORMAL] = { 0, 0.67, 0 }
+}
+
+widget_class "*" style "any"
+widget_class "*GtkEntry*" style "entry"
+widget_class "*GtkSpin*" style "entry"
+widget_class "*Gtk*List*" style "entry"
+widget "*GtkButton*" style "button"
+widget "*background*" style "background"
diff --git a/perl-install/share/themes.rc b/perl-install/share/themes.rc
new file mode 100644
index 000000000..5d8db5b90
--- /dev/null
+++ b/perl-install/share/themes.rc
@@ -0,0 +1,18 @@
+style "savane"
+{
+  bg[NORMAL] = { 1.0, 0.67, 0 }
+  bg[PRELIGHT] = { 0.67, 0.33, 0 }
+}
+style "blackwhite"
+{
+  bg[NORMAL] = { 0.67, 0.67, 0.67 }
+  bg[PRELIGHT] = { 1.0, 1.0, 1.0 }
+}
+style "blue"
+{
+  bg[NORMAL] = { 0, 0, 0.67 }
+  bg[PRELIGHT] = { 0, 0, 1.0 }
+}
+widget "*savane*" style "savane"
+widget "*blackwhite*" style "blackwhite"
+widget "*blue*" style "blue"