From 5053a38591244774799684a301e4b9faf4f6c7fc Mon Sep 17 00:00:00 2001
From: Tilman Sauerbeck <tilman@code-monkey.de>
Date: Mon, 25 Apr 2005 22:01:53 +0000
Subject: [PATCH] Added scrollbar to playlist.

---
 images/scroll-grip-down.png   | Bin 0 -> 520 bytes
 images/scroll-grip-hover.png  | Bin 0 -> 540 bytes
 images/scroll-grip-normal.png | Bin 0 -> 498 bytes
 src/playlist-background.rb    |   5 +++-
 src/playlist-scrollbar.rb     |  42 ++++++++++++++++++++++++++++++++++
 src/playlist.rb               |   3 ++-
 6 files changed, 48 insertions(+), 2 deletions(-)
 create mode 100644 images/scroll-grip-down.png
 create mode 100644 images/scroll-grip-hover.png
 create mode 100644 images/scroll-grip-normal.png
 create mode 100644 src/playlist-scrollbar.rb

diff --git a/images/scroll-grip-down.png b/images/scroll-grip-down.png
new file mode 100644
index 0000000000000000000000000000000000000000..531ed6e15e95df5a1c4d4a18aa56896e5569c3c6
GIT binary patch
literal 520
zcmV+j0{8uiP)<h;3K|Lk000e1NJLTq000dD001cn1^@s6?$)DR00004XF*Lt006O%
z3;baP00006VoOIv0RI600RN!9r;`8x010qNS#tmY3ljhU3ljkVnw%H_000McNliru
z)dU$779?!~!$SZ703CEiSad^gZEa<4bO1wgWnpw>WFU8GbZ8({Xk{QrNlj4iWF>9@
z00CS{L_t(Y$K95(Y63wJhQGbrP6P>9c^C-3!gXl`U%+Ru@;%a~&1=}&`5LyOVBr-f
z-f}10&ZdYbnw;XDL_&U;W@rBWXa9lSg)ek~H(&+0l2{$`9RLM%wbqN_a7e%3r`2ll
z9dR5po6VR^Cggektby@hFdz&=mdhpc`5bHQk>LA2jYfko4B72=OsCVa21Y>;5JeG5
zlKfD~^PKH=i?x;@2mnSJXp0EO7@Tulf-wdW0cdLgYwcM}WjL+T0M5CqDg}y~S|pDe
zI4T_u`FrivCyB^S?G-hTQ}RxCsBA=K%d4o}=iXy2zlC(aQZ37C8S%I|{YT6H_{CCn
zxb^P{Yb_#zQtB$9cxpUglcp(ImK_Z#i!94X(-dIi15eJmR{*Uwp68t@iU|Ato;Z$)
zq6lNmhXT4vsYSEdL@8C;Vln(ANpQ}+6ze_U9avxZN30L|9>6D}%aR445X*M}0000<
KMNUMnLSTYd1=FSg

literal 0
HcmV?d00001

diff --git a/images/scroll-grip-hover.png b/images/scroll-grip-hover.png
new file mode 100644
index 0000000000000000000000000000000000000000..f16079ef26f81305fd331f5520290e6306fb44e3
GIT binary patch
literal 540
zcmV+%0^|LOP)<h;3K|Lk000e1NJLTq000dD001cn1^@s6?$)DR00004XF*Lt006O%
z3;baP00006VoOIv0RI600RN!9r;`8x010qNS#tmY3ljhU3ljkVnw%H_000McNliru
z)dU$77BK+dC#V1b03CEiSad^gZEa<4bO1wgWnpw>WFU8GbZ8({Xk{QrNlj4iWF>9@
z00D4GL_t(Y$IX^OY63A7hQCaLAYF(B7a~|FLNC!Xj4N^H-g|W0Z4cn4xbP6(!2>7?
zv(Uxp3<Pmz(nXCpc9d~wwLfH&yqEv|{|iar8x7zMSO6wtEcWXS00A_WQnOyKN4MLh
zUaxZs&+`}#hYSV-q9}S&K)>B?<GL>M`JBmQLLA431SutzN(I+-S+CcOMx(w2K0BSx
z1Ay=QBuSEDNs<JuHM`x8a=FZSJbqC?O$b2{1Q=sDhad<LLIBhhKpe-ZlCp3dqX3LC
z7g;Q9jIwp-NwRv?=|mnJnDQj0m<nksY{YHK%hOyNcLz<!yZmi)3tOHi>4)WclI~>r
zZTpnx?ETIu|Hqc!_F}o(^1{u%`YyM9+P^<%^;iiGunfZxt@Xi>tf93g3`2mW1RkR(
zdX-Y5ltN0GVzkfaYPDiIowC_%J_OJdLd>ewDy32h$8j>XY`0r{-^Up9Z0B3RJK&x9
eM|k`77Qh$Q<d^)FEd}}j0000<MNUMnLSTX<ciqMS

literal 0
HcmV?d00001

diff --git a/images/scroll-grip-normal.png b/images/scroll-grip-normal.png
new file mode 100644
index 0000000000000000000000000000000000000000..9b7028f136151f9524bdbeac9422c381b1036a91
GIT binary patch
literal 498
zcmeAS@N?(olHy`uVBq!ia0vp@K&;8Z1|;8ITO0$VSkfJR9T^xl_H+M9WCilslDyqr
z82*Fcg1yTp14TFsJR*x37`TN&n2}-D90{Nxdx@v7EBjRzNfB`d4=J(BKq1)@*N775
z{M_8syb=cIqSVBa)D(sC%#sX+kc?CXcTeAd_bIA*3=E8Jo-U3d9>?EK+n>ecC~&O4
zdiOLl_Ha(Nrte}e*IgCgu=SJerDbQ8Be?B)wr)_UcyO?iz5C64k&iBuFSm#Y9pq=5
zHZ%W6TDnBpLt)zoq8A)83~M{SGq79;_gZ`GvEky29V(tbx@^uz>WH05GhVaRpKAtR
zyYnU;=j^jZJC9hF`%DPB^tSBerk+hYGtWN{X7#yblDhfkhTCuVt&GUl>|)B+&78&L
zBQk*@B-E9o(R;<JRhDX82Q16Of~5T{xfEIoLYF!o{#ku#<zw>zhI`d}zS~cdKG*xc
zWcR0kJ1@O$`<?N#_RPzT{@*vY)N7r$Z2vB&c;sr!vz46<d)8(57`h)dGd>n@-PA#^
z@kaH3rKK*Kt|G4KUH7Vc40E<eZ@D%l^`~CLK7l0B<A!tn+BLeOc5l1?UbCx7;85{n
md4~K0zYf_a)pqbR*fDIknQHpk*VhIZ^bDS^elF{r5}E)<XUOmX

literal 0
HcmV?d00001

diff --git a/src/playlist-background.rb b/src/playlist-background.rb
index 60c220e..6226f64 100644
--- a/src/playlist-background.rb
+++ b/src/playlist-background.rb
@@ -1,4 +1,4 @@
-# $Id: playlist-background.rb 15 2005-04-25 21:46:52Z tilman $
+# $Id: playlist-background.rb 16 2005-04-25 22:01:53Z tilman $
 
 c = EDJE.collection("playlist")
 root = c.part("root")
@@ -212,5 +212,8 @@ c.part("playlist.container", :swallow) do |p|
 	p.description do |d|
 		d.rel[0].set_to(c.part("playlist.background.middle"))
 		d.rel[1].set_to(c.part("playlist.background.middle"))
+
+		# leave some space for the scrollbar
+		d.rel[1].set_offset(-19, -1)
 	end
 end
diff --git a/src/playlist-scrollbar.rb b/src/playlist-scrollbar.rb
new file mode 100644
index 0000000..b163706
--- /dev/null
+++ b/src/playlist-scrollbar.rb
@@ -0,0 +1,42 @@
+# $Id: playlist-scrollbar.rb 16 2005-04-25 22:01:53Z tilman $
+
+c = EDJE.collection("playlist")
+
+c.part("playlist.scrollbar.trough", :rect) do |p|
+	p.description do |d|
+		d.rel[0].set_to(c.part("playlist.container"))
+		d.rel[1].set_to(c.part("playlist.background.middle"))
+
+		d.rel[0].set_rel(1.0, 0.0)
+		d.rel[0].set_offset(5, 0)
+
+		d.color = "#00000000"
+	end
+end
+
+c.part("playlist.scrollbar.handle", :image) do |p|
+	p.dragable.enabled[1] = true
+	p.dragable.step[1] = 1
+	p.dragable.count[1] = 1
+	p.dragable.confine = c.part("playlist.scrollbar.trough")
+
+	["normal", "hover", "down"].each do |state|
+		s = state == "normal" ? "default" : state
+
+		p.description(s) do |d|
+			d.set_size(13, 41)
+			d.image = "images/scroll-grip-#{state}.png"
+		end
+	end
+end
+
+{"in" => "hover", "out" => "default",
+ "down,1" => "down", "up,1" => "hover"}.each do |(ev, state)|
+	c.program("playlist.scrollbar.handle.#{ev}", :set_state) do |p|
+		p.signal = "mouse,#{ev}"
+		p.source = "playlist.scrollbar.handle"
+		p.state = state
+		p.time = 0.1
+		p.targets << ProgramTarget.new(c.part(p.source))
+	end
+end
diff --git a/src/playlist.rb b/src/playlist.rb
index bf67b88..3373138 100644
--- a/src/playlist.rb
+++ b/src/playlist.rb
@@ -1,4 +1,4 @@
-# $Id: playlist.rb 13 2005-04-24 19:56:20Z tilman $
+# $Id: playlist.rb 16 2005-04-25 22:01:53Z tilman $
 
 EDJE.collection("playlist") do |c|
 	c.set_min(300, 250)
@@ -12,4 +12,5 @@ EDJE.collection("playlist") do |c|
 
 	load "src/playlist-background.rb"
 	load "src/playlist-buttons.rb"
+	load "src/playlist-scrollbar.rb"
 end
-- 
2.30.2