Removed RCS-style IDs.
[multipass-eu.git] / src / playlist-scrollbar.rb
1 c = EDJE.collection("playlist")
2
3 c.part("playlist.scrollbar.trough", :rect) do |p|
4         p.description do |d|
5                 d.rel[0].set_to(c.part("playlist.container"))
6                 d.rel[1].set_to(c.part("playlist.background.middle"))
7
8                 d.rel[0].set_rel(1.0, 0.0)
9                 d.rel[0].set_offset(5, 0)
10
11                 d.color = "#00000000"
12         end
13 end
14
15 c.part("playlist.scrollbar.handle", :image) do |p|
16         p.dragable.enabled[1] = true
17         p.dragable.step[1] = 1
18         p.dragable.count[1] = 1
19         p.dragable.confine = c.part("playlist.scrollbar.trough")
20
21         ["normal", "hover", "down"].each do |state|
22                 s = state == "normal" ? "default" : state
23
24                 p.description(s) do |d|
25                         d.set_size(13, 41)
26                         d.image = "scroll-grip-#{state}.png"
27                 end
28         end
29 end
30
31 {"in" => "hover", "out" => "default",
32  "down,1" => "down", "up,1" => "hover"}.each do |(ev, state)|
33         c.program("playlist.scrollbar.handle.#{ev}", :set_state) do |p|
34                 p.signal = "mouse,#{ev}"
35                 p.source = "playlist.scrollbar.handle"
36                 p.state = state
37                 p.time = 0.1
38                 p.targets << ProgramTarget.new(c.part(p.source))
39         end
40 end