OHDebug.lua

   1
   2 local function OnMouseWheel(frame, delta)
   3         if delta > 0 then
   4                 if IsShiftKeyDown() then frame:ScrollToTop()
   5                 else frame:ScrollUp() end
   6         elseif delta < 0 then
   7                 if IsShiftKeyDown() then frame:ScrollToBottom()
   8                 else frame:ScrollDown() end
   9         end
  10 end
  11
  12
  13 local f = CreateFrame("ScrollingMessageFrame", nil, UIParent)
  14 f:SetMaxLines(250)
  15 f:SetFontObject(ChatFontNormal)
  16 f:SetJustifyH("LEFT")
  17 f:SetFading(false)
  18 f:EnableMouseWheel(true)
  19 f:SetScript("OnMouseWheel", OnMouseWheel)
  20 f:SetScript("OnHide", f.ScrollToBottom)
  21 f:Hide()
  22
  23
  24 local orig = f.AddMessage
  25 f.AddMessage = function(self, txt, ...)
  26         local newtext = txt:gsub("TourGuide|r:", date("%X").."|r", 1)
  27         return orig(self, newtext, ...)
  28 end
  29
  30
  31 TourGuideOHDebugFrame = f
  32
  33
  34 function TourGuideOHDebugFunc()
  35         f:SetParent(OptionHouseOptionsFrame)
  36         f:SetFrameStrata(OptionHouseOptionsFrame:GetFrameStrata())
  37         f:SetFrameLevel(OptionHouseOptionsFrame:GetFrameLevel())
  38         f:ClearAllPoints()
  39         f:SetWidth(630)
  40         f:SetHeight(305)
  41         f:SetPoint("TOPLEFT", 190, -103)
  42         f:Show()
  43
  44         return f
  45 end
  46