tekKonfigScroll.lua @@ -23,15 +23,21 @@ frame:SetScript("OnShow", function(self) frame:SetPoint("RIGHT") frame:SetHeight(1000) - local LINEHEIGHT, MAXOFFSET = 50, -550 + local scrollbar, upbutt, downbutt = LibStub("tekKonfig-Scroll").new(group, 6) + scrollbar:SetMinMaxValues(0,550) + scrollbar:SetValue(0) + + local f = scrollbar:GetScript("OnValueChanged") + scrollbar:SetScript("OnValueChanged", function(self, value, ...) + scroll:SetVerticalScroll(value) + frame:SetPoint("TOP", 0, value) + return f(self, value, ...) + end) + local offset = 0 scroll:UpdateScrollChildRect() scroll:EnableMouseWheel(true) - scroll:SetScript("OnMouseWheel", function(self, val) - offset = math.max(math.min(offset + val*LINEHEIGHT, 0), MAXOFFSET) - self:SetVerticalScroll(-offset) - frame:SetPoint("TOP", 0, offset) - end) + scroll:SetScript("OnMouseWheel", function(self, val) scrollbar:SetValue(scrollbar:GetValue() - val*50) end) local last local fonts, needbackground = { sample.lua @@ -17,6 +17,7 @@ tekKonfigAboutPanel.lua tekKonfigHeading.lua tekKonfigGroup.lua +tekKonfigScroll.lua tekticles.lua sample.lua tekticles.toc 52150aef3d70a4597c4b2a050afd3606f65cec66 Tekkub tekkub@gmail.com http://github.com/tekkub/tekticles/commit/855af4739de77207790090d3471074eeaab53370 855af4739de77207790090d3471074eeaab53370 2008-10-14T00:43:50-07:00 2008-10-14T00:43:50-07:00 Add scroll bar to preview panel d522c5232cded904e4b545535814ae8aeb4416a4 Tekkub tekkub@gmail.com