tekKonfigScroll.lua @@ -132,7 +132,7 @@ frame:SetScript("OnShow", function(frame) if not anchor then row:SetPoint("TOP", subtitle, "BOTTOM", 0, -16) else row:SetPoint("TOP", anchor, "BOTTOM", 0, -ROWGAP) end row:SetPoint("LEFT", EDGEGAP, 0) - row:SetPoint("RIGHT", -EDGEGAP, 0) + row:SetPoint("RIGHT", -EDGEGAP*2-8, 0) row:SetHeight(ROWHEIGHT) anchor = row rows[i] = row @@ -211,12 +211,24 @@ frame:SetScript("OnShow", function(frame) Refresh() - frame:EnableMouseWheel() - frame:SetScript("OnMouseWheel", function(self, val) - offset = math.max(math.min(offset - math.floor(val*#rows/2), NUMADDONS-#rows), 0) + local scrollbar = LibStub("tekKonfig-Scroll").new(frame, nil, #rows/2) + scrollbar:ClearAllPoints() + scrollbar:SetPoint("TOP", rows[1], 0, -16) + scrollbar:SetPoint("BOTTOM", rows[#rows], 0, 16) + scrollbar:SetPoint("RIGHT", -16, 0) + scrollbar:SetMinMaxValues(0, NUMADDONS-#rows) + scrollbar:SetValue(0) + + local f = scrollbar:GetScript("OnValueChanged") + scrollbar:SetScript("OnValueChanged", function(self, value, ...) + offset = value Refresh() + return f(self, value, ...) end) + frame:EnableMouseWheel() + frame:SetScript("OnMouseWheel", function(self, val) scrollbar:SetValue(scrollbar:GetValue() - val*#rows/2) end) + local enableall = MakeButton() enableall:SetPoint("BOTTOMLEFT", 16, 16) Ampere.lua @@ -11,6 +11,7 @@ ## X-LoadOn-Always: delayed LibStub.lua +tekKonfigScroll.lua tekKonfigAboutPanel.lua CallbackHandler-1.0.lua LibDataBroker-1.1\LibDataBroker-1.1.lua Ampere.toc 0df51b59d864742dbd2e6def96a05fa1e5628341 Tekkub tekkub@gmail.com http://github.com/tekkub/ampere/commit/5ea22dd323febfcea5cc86233be95915fc807928 5ea22dd323febfcea5cc86233be95915fc807928 2008-10-14T01:07:41-07:00 2008-10-14T01:07:41-07:00 Add scrollbar 64ffcd5fc67cb7224f5092eb9ebc304b2055a9e0 Tekkub tekkub@gmail.com