Removed RCS-style IDs.
[multipass-eu.git] / src / player-drawer-left.rb
1 c = EDJE.collection("euphoria")
2
3 parts = []
4
5 c.part("player.normal.group.drawer.left", :rect) do |p|
6         parts << p
7
8         p.description do |d|
9                 d.color = "#00000000"
10
11                 d.rel[0].to = d.rel[1].to = c.part("player.normal.group.drawer.volume")
12                 d.rel[0].set_offset(44, 8)
13                 d.rel[1].set_rel(0.0, 0.0)
14                 d.rel[1].set_offset(104, 165)
15         end
16
17         p.description("visible").color = "#00000000"
18 end
19
20 c.part("player.background.drawer.left.shadow", :image) do |p|
21         parts << p
22
23         p.description do |d|
24                 d.rel[0].to = d.rel[1].to = parts.first
25
26                 d.image = "background-drawer-left-shadow.png"
27         end
28 end
29
30 c.part("player.background.drawer.left", :image) do |p|
31         parts << p
32
33         p.description do |d|
34                 d.rel[0].to = d.rel[1].to = parts.first
35
36                 d.image = "background-drawer-left.png"
37         end
38 end
39
40 c.part("player.background.drawer.left.arm", :image) do |p|
41         parts << p
42
43         p.description do |d|
44                 d.rel[0].to = d.rel[1].to = parts.first
45                 d.rel[0].set_offset(34, 49)
46
47                 d.auto_rel = true
48                 d.image = "background-drawer-left-arm.png"
49         end
50 end
51
52 h = {"pl" => [6, nil, "playlist.open"],
53      "ml" => 25,
54      "eject" => [44, nil, "file_dialog.open"],
55      "video" => [68, "misc"],
56      "skinoptions" => [94, "misc"],
57      "drawer" => [121, nil,
58                   "player.normal.group.drawer.bottom.toggle_vis"]}
59 h.each do |name, (y, im, sig)|
60         if sig.nil?
61                 parts << Button.new(c, "player.button." + name, parts.first,
62                                     "button-#{im || name}", 9, y).part
63         else
64                 parts << SignalButton.new(c, "player.button." + name,
65                                           parts.first, "button-#{im || name}",
66                                           9, y, sig).part
67         end
68 end
69
70 c.program("player.normal.group.drawer.bottom.toggle_vis",
71           :exec_script) do |p|
72         p.signal = "mouse,clicked,1"
73         p.source = parts.last.name
74
75         p.script =<<SMALL
76 new i = !get_int (toggle_state_drawer);
77 set_int (toggle_state_drawer, i);
78
79 if (i)
80         run_program (PROGRAM:"player.normal.group.drawer.bottom.show");
81 else
82         run_program (PROGRAM:"player.normal.group.drawer.bottom.hide");
83 SMALL
84 end
85
86 c.part("player.background.drawer.left.clip", :rect) do |p|
87         p.description do |d|
88                 d.rel[0].to = d.rel[1].to = c.part("root")
89                 d.rel[0].set_offset(5, 8)
90                 d.rel[1].set_rel(0.0, 0.0)
91                 d.rel[1].set_offset(65, 165)
92         end
93
94         parts.each { |part| part.clip = p }
95
96         parts.first.description("visible") do |d|
97                 d.rel[0].to = d.rel[1].to = p
98         end
99 end