From 9d7ed64417b4485cfc95b910b9e0d3629845d417 Mon Sep 17 00:00:00 2001
From: Hendrik Leppkes <h.leppkes@gmail.com>
Date: Sat, 1 Nov 2008 17:33:38 +0100
Subject: [PATCH] Added support for specifying the fade-out alpha in the custom
 visibility header

Example:
[mod:ctrl]fade:10;[mod:alt]fade:50;[mod:shift]fade:80;show

0 is completly transparent, while 100 is completly opaque.
---
 Bar.lua | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/Bar.lua b/Bar.lua
index bebb0d5..388d0ba 100644
--- a/Bar.lua
+++ b/Bar.lua
@@ -284,7 +284,13 @@ function Bar:ControlFadeOut()
 		self:SetAlpha(self.config.alpha)
 		self.faded = nil
 	elseif not self.faded and not MouseIsOver(self) then
-		self:SetAlpha(self.config.fadeoutalpha)
+		local fade = self:GetAttribute("fade")
+		if tonumber(fade) then
+			fade = min(max(fade, 0), 100) / 100
+			self:SetAlpha(fade)
+		else
+			self:SetAlpha(self.config.fadeoutalpha)
+		end
 		self.faded = true
 	end
 end
@@ -306,9 +312,12 @@ function Bar:InitVisibilityDriver(returnOnly)
 	self.hidedriver = {}
 		
 	self:SetAttribute("_onstate-vis", [[
-		if newstate == "show" or newstate == "fade" then
+		if newstate == "show" then
 			self:Show()
-			self:SetAttribute("fade", (newstate == "fade"))
+			self:SetAttribute("fade", false)
+		elseif strsub(newstate, 1, 4) == "fade" then
+			self:Show()
+			self:SetAttribute("fade", (newstate == "fade") and true or strsub(newstate, 6))
 		elseif newstate == "hide" then
 			self:Hide()
 		end