[Fencommits] fenfire-hs: use alpha again for the rectangle behind the focus

[Benja Fallenstein]

Thu Feb 15 15:53:35 EET 2007  Benja Fallenstein <benja.fallenstein at gmail.com>
  * use alpha again for the rectangle behind the focus
diff -rN -u old-fenfire-hs/Fenfire.fhs new-fenfire-hs/Fenfire.fhs
--- old-fenfire-hs/Fenfire.fhs	2007-02-15 15:54:11.000000000 +0200
+++ new-fenfire-hs/Fenfire.fhs	2007-02-15 15:54:11.000000000 +0200
@@ -632,10 +632,13 @@
     textColor <- styleGetText StateSelected style
     blurTextColor <- styleGetText StateActive style
 
+    let alpha x (Color r g b a) = Color r g b (x*a)
+
     let ?vs = ViewSettings { hiddenProps=[rdfs_label] }
         ?uriMaker = uriMaker in let
         ?views = [("Wheel view", vanishingView 20 30 
-                       (fromGtkColor bgColor)    (fromGtkColor blurBgColor)
+                       (alpha 0.7 $ fromGtkColor bgColor)
+                           (alpha 0.7 $ fromGtkColor blurBgColor)
                        (fromGtkColor focusColor) (fromGtkColor blurColor)
                        (fromGtkColor textColor)  (fromGtkColor blurTextColor)),
                   ("Presentation view", presentationView)] in do