no_comment

7 files changed, 169 insertions, 3 deletions

diff --git a/perl-install/share/install.rc b/perl-install/share/install.rc
index b18c395b8..5e8a9d7d0 100644
--- a/perl-install/share/install.rc
+++ b/perl-install/share/install.rc
@@ -17,9 +17,6 @@ style "default-font"
 
 style "steps"
 {
-  bg[NORMAL] = { 0, 0, 0 }
-  fg[NORMAL] = { 1.0, 1.0, 1.0 }
-
   fontset = "\
 -mdk-helvetica-medium-r-normal-*-*-80-*-*-*-*-*-*,\
 -mdk-helvetica-medium-r-normal-*-*-100-*-*-*-*-iso8859-3,\
diff --git a/perl-install/share/list b/perl-install/share/list
index e5dcd8be7..959d76371 100644
--- a/perl-install/share/list
+++ b/perl-install/share/list
@@ -12,6 +12,9 @@
 /usr/bin/bzip2
 /usr/bin/perl
 /usr/bin/zsh
+/usr/lib/gtk/themes/engines/libpixmap.so
+/usr/lib/gtk/themes/engines/libpixmap.la
+/usr/lib/libimlib-xpm.so
 /usr/lib/perl5/5.00503/AutoLoader.pm
 /usr/lib/perl5/5.00503/Carp.pm
 /usr/lib/perl5/5.00503/Data/Dumper.pm
diff --git a/perl-install/share/themes-blackwhite.rc b/perl-install/share/themes-blackwhite.rc
index 48d5f9400..76ab4f800 100644
--- a/perl-install/share/themes-blackwhite.rc
+++ b/perl-install/share/themes-blackwhite.rc
@@ -46,6 +46,12 @@ style "background"
   bg[PRELIGHT] = { 0.67, 0.67, 0.67 }
 }
 
+style "steps"
+{
+  bg[NORMAL] = { 0, 0, 0 }
+  fg[NORMAL] = { 1.0, 1.0, 1.0 }
+}
+
 widget_class "*" style "any"
 widget_class "*GtkSpin*" style "entry"
 widget_class "*GtkEntry*" style "entry"
@@ -53,3 +59,4 @@ widget_class "*Gtk*List*" style "entry"
 widget_class "*GtkNotebook*" style "notebook"
 widget "*GtkButton*" style "button"
 widget "*background*" style "background"
+widget "*Steps*" style "steps"
diff --git a/perl-install/share/themes-blue.rc b/perl-install/share/themes-blue.rc
index 53ed55159..bc8b2f4c0 100644
--- a/perl-install/share/themes-blue.rc
+++ b/perl-install/share/themes-blue.rc
@@ -46,6 +46,12 @@ style "background"
   bg[PRELIGHT] = { 0, 0, 0.67 }
 }
 
+style "steps"
+{
+  bg[NORMAL] = { 0, 0, 0 }
+  fg[NORMAL] = { 1.0, 1.0, 1.0 }
+}
+
 widget_class "*" style "any"
 widget_class "*GtkSpin*" style "entry"
 widget_class "*GtkEntry*" style "entry"
@@ -53,3 +59,4 @@ widget_class "*Gtk*List*" style "entry"
 widget_class "*GtkNotebook*" style "notebook"
 widget "*GtkButton*" style "button"
 widget "*background*" style "background"
+widget "*Steps*" style "steps"
diff --git a/perl-install/share/themes-marble3d.rc b/perl-install/share/themes-marble3d.rc
new file mode 100644
index 000000000..ec9bcd788
--- /dev/null
+++ b/perl-install/share/themes-marble3d.rc
@@ -0,0 +1,139 @@
+style "button"
+{
+  engine "pixmap" 
+    {
+    image 
+      {
+        function        = BOX
+	recolorable     = TRUE
+	state           = NORMAL
+	detail          = "buttondefault"
+	shadow          = IN
+	file            = "marble3d-button_def.xpm"
+	border          = { 9, 9, 9, 9 }
+	stretch         = TRUE
+      }
+    image 
+      {
+        function        = BOX
+	recolorable     = TRUE
+	state           = NORMAL
+	shadow          = OUT
+	file            = "marble3d-button1.xpm"
+	border          = { 3, 3, 3, 3 }
+	stretch         = TRUE
+      }
+    image 
+      {
+        function        = BOX
+	recolorable     = TRUE
+	state           = PRELIGHT
+	shadow          = OUT
+	file            = "marble3d-button2.xpm"
+	border          = { 3, 3, 3, 3 }
+	stretch         = TRUE
+      }
+    image 
+      {
+        function        = BOX
+	recolorable     = TRUE
+	state           = NORMAL
+	shadow          = IN
+	file            = "marble3d-button4.xpm"
+	border          = { 2, 2, 2, 2 }
+	stretch         = TRUE
+      }
+    image 
+      {
+        function        = BOX
+	recolorable     = TRUE
+	state           = SELECTED
+	shadow          = IN
+	file            = "marble3d-button4.xpm"
+	border          = { 3, 3, 3, 3 }
+	stretch         = TRUE
+      }
+    image 
+      {
+        function        = BOX
+	recolorable     = TRUE
+	state           = ACTIVE
+	shadow          = IN
+	file            = "marble3d-button4.xpm"
+	border          = { 3, 3, 3, 3 }
+	stretch         = TRUE
+      }
+   }
+}
+
+style "window" 
+{
+  engine "pixmap" {
+    image 
+      {
+	function        = FLAT_BOX
+	recolorable     = TRUE
+	file            = "marble3d-bg1.xpm"
+	stretch         = FALSE
+      }
+  }
+}
+
+
+style "any"
+{
+  fg[NORMAL]      = { 0.00, 0.00, 0.00 }
+  fg[PRELIGHT]    = { 0.25, 0.25, 0.25 }
+  fg[ACTIVE]      = { 0.00, 0.00, 0.00 }
+  fg[SELECTED]    = { 0.00, 0.00, 0.00 }
+  fg[INSENSITIVE] = { 0.50, 0.50, 0.50 }
+  
+  bg[NORMAL]      = { 0.80, 0.80, 0.80 }
+  bg[PRELIGHT]    = { 0.85, 0.85, 0.85 }
+  bg[ACTIVE]      = { 0.90, 0.90, 0.90 }
+  bg[SELECTED]    = { 0.90, 0.80, 0.70 }
+  bg[INSENSITIVE] = { 0.80, 0.75, 0.70 }
+}
+
+style "entry"
+{
+  base[NORMAL] = { 1.0, 1.0, 1.0 }
+  base[ACTIVE] = { 1.0, 1.0, 1.0 }
+  fg[NORMAL] = { 0.67, 0.67, 0.67 }
+}
+
+style "notebook"
+{
+  bg[NORMAL]	  = { 0.82, 0.8, 0.8 }
+  bg[ACTIVE]	  = { 0.72, 0.7, 0.7 }
+  fg[NORMAL]      = { 0, 0, 0 }
+}
+
+style "button" = "any"
+{
+  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.8, 0.8, 0.8 }
+  bg[PRELIGHT] = { 0.74, 0.72, 0.7 }
+}
+
+
+style "steps"
+{
+  fg[NORMAL] = { 0.40, 0.30, 0.20 }
+}
+
+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 "*GtkNotebook*" style "notebook"
+widget "*GtkButton" style "button"
+widget "*background*" style "background"
diff --git a/perl-install/share/themes-savane.rc b/perl-install/share/themes-savane.rc
index 18a45ca32..4d903660e 100644
--- a/perl-install/share/themes-savane.rc
+++ b/perl-install/share/themes-savane.rc
@@ -46,6 +46,12 @@ style "background"
   bg[PRELIGHT] = { 0.67, 0.33, 0 }
 }
 
+style "steps"
+{
+  bg[NORMAL] = { 0, 0, 0 }
+  fg[NORMAL] = { 1.0, 1.0, 1.0 }
+}
+
 widget_class "*" style "any"
 widget_class "*GtkSpin*" style "entry"
 widget_class "*GtkEntry*" style "entry"
@@ -53,3 +59,4 @@ widget_class "*Gtk*List*" style "entry"
 widget_class "*GtkNotebook*" style "notebook"
 widget "*GtkButton*" style "button"
 widget "*background*" style "background"
+widget "*Steps*" style "steps"
diff --git a/perl-install/share/themes.rc b/perl-install/share/themes.rc
index 5d8db5b90..5b05c2294 100644
--- a/perl-install/share/themes.rc
+++ b/perl-install/share/themes.rc
@@ -1,3 +1,8 @@
+style "marble3d"
+{
+  bg[NORMAL] = { 0.80, 0.80, 0.8 }
+  bg[PRELIGHT] = { 0.9, 0.9, 0.9 }
+}
 style "savane"
 {
   bg[NORMAL] = { 1.0, 0.67, 0 }
@@ -13,6 +18,7 @@ style "blue"
   bg[NORMAL] = { 0, 0, 0.67 }
   bg[PRELIGHT] = { 0, 0, 1.0 }
 }
+widget "*marble3d*" style "marble3d"
 widget "*savane*" style "savane"
 widget "*blackwhite*" style "blackwhite"
 widget "*blue*" style "blue"