Enlightenment CVS committal
Author : tilman
Project : e17
Module : apps/euphoria
Dir : e17/apps/euphoria/lib
Modified Files:
slider.rb
Log Message:
some fixes for xmms2-devel
===================================================================
RCS file: /cvs/e/e17/apps/euphoria/lib/slider.rb,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -3 -r1.2 -r1.3
--- slider.rb 7 Jul 2005 16:33:56 -0000 1.2
+++ slider.rb 13 May 2006 14:59:17 -0000 1.3
@@ -1,4 +1,4 @@
-# $Id: slider.rb,v 1.2 2005/07/07 16:33:56 tsauerbeck Exp $
+# $Id: slider.rb,v 1.3 2006/05/13 14:59:17 tilman Exp $
class Slider
def initialize(edje, xmms, part, config)
@@ -27,12 +27,26 @@
class VolumeSlider < Slider
attr_reader :part, :config
- def initialize(edje, xmms, part, config)
- super
+ def initialize(edje, xmms, part)
+ @edje = edje
+ @xmms = xmms
+ @part = part
+ @val = nil
+
+ self.value = @xmms.playback_volume_get.wait.value
+
+ @edje.on_signal("drag", @part) do
+ v = on_drag(@edje.part(@part).get_drag_value)
+
+ unless v.nil?
+ @xmms.playback_volume_set("left", v).wait
+ @xmms.playback_volume_set("right", v).wait
+ end
+ end
end
def value=(v)
- v = (1.0 - v.split("/")[0].to_f / 100.0).abs
+ v = (1.0 - (v[:left].to_f / 100.0)).abs
if [EMAIL PROTECTED] || @val != v
@val = v
@@ -46,7 +60,7 @@
if @val != v
@val = v
- ret = "%i/%i" % [].fill(v * 100, 0..1)
+ ret = (v * 100).to_i
end
ret
@@ -55,10 +69,6 @@
class EqSlider < Slider
attr_reader :part, :config
-
- def initialize(edje, xmms, part, config)
- super
- end
def value=(v)
v = (1.0 - v.to_f).abs
-------------------------------------------------------
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
