ver. 1.0.0

First running version working.

config.lua

@@ -0,0 +1,64 @@
+------------------------------------------------------------
+-- pfUI-DQB
+-- config.lua
+--
+-- Default configuration for pfUI-DQB v0.2.0
+------------------------------------------------------------
+
+local DQB = pfUI and pfUI.dqb
+
+if not DQB then
+    return
+end
+
+
+-- Initialize DQB configuration
+
+function DQB:InitializeConfig()
+
+    -- Root configuration
+
+    if not pfUI_config then
+        pfUI_config = {}
+    end
+
+    if not pfUI_config.dqb then
+        pfUI_config.dqb = {}
+    end
+
+
+    -- Dialogs & Quest Log
+    --
+    -- Controls:
+    --   gossipquest.lua
+    --   questlog.lua
+
+    if pfUI_config.dqb.dialogs_questlog == nil then
+        pfUI_config.dqb.dialogs_questlog = {}
+    end
+
+    local dialogsQuestLog =
+        pfUI_config.dqb.dialogs_questlog
+
+    if dialogsQuestLog.enable == nil then
+        dialogsQuestLog.enable = "0"
+    end
+
+
+    -- Books
+    --
+    -- Controls:
+    --   itemtext.lua
+
+    if pfUI_config.dqb.books == nil then
+        pfUI_config.dqb.books = {}
+    end
+
+    local books =
+        pfUI_config.dqb.books
+
+    if books.enable == nil then
+        books.enable = "0"
+    end
+
+end

core.lua

@@ -0,0 +1,192 @@
+------------------------------------------------------------
+-- pfUI-DQB
+-- core.lua
+------------------------------------------------------------
+
+local addonName = "pfUI-DQB"
+
+-- pfUI-DQB requires pfUI
+
+if not pfUI then
+    return
+end
+
+-- Main namespace
+
+pfUI.dqb = pfUI.dqb or {}
+
+local DQB = pfUI.dqb
+
+-- Basic information
+
+DQB.name = addonName
+DQB.version = "0.2.0"
+
+-- Registered modules
+
+DQB.modules = DQB.modules or {}
+
+-- Register a DQB module
+
+function DQB:RegisterModule(name, func)
+
+    if not name or not func then
+        return
+    end
+
+    self.modules[name] = func
+
+end
+
+-- Get DQB configuration
+
+function DQB:GetConfig(module, key, default)
+
+    if not pfUI_config
+    or not pfUI_config.dqb
+    or not pfUI_config.dqb[module]
+    or pfUI_config.dqb[module][key] == nil then
+
+        return default
+    end
+
+    return pfUI_config.dqb[module][key]
+
+end
+
+-- Set DQB configuration
+
+function DQB:SetConfig(module, key, value)
+
+    if not pfUI_config then
+        pfUI_config = {}
+    end
+
+    if not pfUI_config.dqb then
+        pfUI_config.dqb = {}
+    end
+
+    if not pfUI_config.dqb[module] then
+        pfUI_config.dqb[module] = {}
+    end
+
+    pfUI_config.dqb[module][key] = value
+
+end
+
+-- Check Dialogs & Quest Log option
+
+function DQB:IsDialogsQuestLogEnabled()
+
+    return self:GetConfig(
+        "dialogs_questlog",
+        "enable",
+        "0"
+    ) == "1"
+
+end
+
+-- Check Books option
+
+function DQB:IsBooksEnabled()
+
+    return self:GetConfig(
+        "books",
+        "enable",
+        "0"
+    ) == "1"
+
+end
+
+-- Check whether a specific module is enabled
+
+function DQB:IsModuleEnabled(name)
+
+    if name == "gossipquest"
+    or name == "questlog" then
+
+        return self:IsDialogsQuestLogEnabled()
+
+    end
+
+    if name == "itemtext" then
+
+        return self:IsBooksEnabled()
+
+    end
+
+    return false
+
+end
+
+-- Debug message
+
+function DQB:Debug(message)
+
+    if DEFAULT_CHAT_FRAME then
+
+        DEFAULT_CHAT_FRAME:AddMessage(
+            "|cff33ffccpf|cffffffffUI-DQB|r: "
+            .. tostring(message)
+        )
+
+    end
+
+end
+
+-- Initialize registered modules
+
+function DQB:Initialize()
+
+    for name, module in pairs(self.modules) do
+
+        if module
+        and self:IsModuleEnabled(name) then
+
+            module()
+
+        end
+
+    end
+
+end
+
+-- Initialize after SavedVariables are available
+
+local loader = CreateFrame("Frame")
+
+loader:RegisterEvent("VARIABLES_LOADED")
+
+loader:SetScript("OnEvent", function()
+
+    if event ~= "VARIABLES_LOADED" then
+        return
+    end
+
+    -- pfUI must exist
+
+    if not pfUI then
+        return
+    end
+
+    -- Initialize DQB configuration
+
+    if DQB.InitializeConfig then
+        DQB:InitializeConfig()
+    end
+
+    -- Initialize DQB GUI
+
+    if DQB.CreateGUI then
+        DQB:CreateGUI()
+    end
+
+    -- Initialize enabled DQB modules
+
+    DQB:Initialize()
+
+    -- No longer need this event
+
+    this:UnregisterAllEvents()
+
+end)

gui.lua

@@ -0,0 +1,116 @@
+-- pfUI-DQB
+-- gui.lua
+--
+-- Adds DQB configuration to the pfUI GUI.
+
+local DQB = pfUI and pfUI.dqb
+
+if not DQB then
+    return
+end
+
+
+-- Create DQB configuration menu
+
+function DQB:CreateGUI()
+
+    if self.InitializeConfig then
+        self:InitializeConfig()
+    end
+
+    if not pfUI
+    or not pfUI.gui
+    or not pfUI.gui.CreateGUIEntry
+    or not pfUI.gui.CreateConfig then
+
+        return
+    end
+
+
+    -- Avoid creating the menu more than once
+
+    if self.guiCreated then
+        return
+    end
+
+
+    local CreateGUIEntry =
+        pfUI.gui.CreateGUIEntry
+
+    local CreateConfig =
+        pfUI.gui.CreateConfig
+
+
+    -- DQB main menu entry
+
+    CreateGUIEntry(
+        "DQB",
+        nil,
+        function()
+
+            -- Dialogs & Quest Log
+
+            CreateConfig(
+                nil,
+                "Use pfUI Style: Dialogs & Quest Log",
+                pfUI_config.dqb.dialogs_questlog,
+                "enable",
+                "checkbox"
+            )
+
+
+            -- Books
+
+            CreateConfig(
+                nil,
+                "Use pfUI Style: Books",
+                pfUI_config.dqb.books,
+                "enable",
+                "checkbox"
+            )
+
+        end
+    )
+
+
+    self.guiCreated = true
+
+end
+
+
+-- Wait until pfUI has created its GUI
+
+local event = CreateFrame("Frame")
+
+event:RegisterEvent("ADDON_LOADED")
+
+event:SetScript(
+    "OnEvent",
+    function()
+
+        if arg1 ~= "pfUI" then
+            return
+        end
+
+
+        if not DQB.InitializeConfig then
+            return
+        end
+
+
+        DQB:InitializeConfig()
+
+
+        -- pfUI GUI must already exist
+
+        if pfUI.gui
+        and pfUI.gui.CreateGUIEntry then
+
+            DQB:CreateGUI()
+
+            event:UnregisterAllEvents()
+
+        end
+
+    end
+)

modules/gossipquest.lua

@@ -0,0 +1,916 @@
+------------------------------------------------------------
+-- pfUI-DQB
+-- modules/gossipquest.lua
+--
+-- DQB customization for pfUI Gossip & Quest dialogs.
+--
+-- pfUI remains responsible for:
+--   - Main frame
+--   - Frame backdrop
+--   - Close button
+--   - Movement
+--   - Buttons
+--   - General pfUI appearance
+--
+-- DQB changes:
+--   - Text colors
+--   - Gossip option colors
+--   - Quest text colors
+--   - Quest/Gossip parchment background
+------------------------------------------------------------
+
+local DQB = pfUI and pfUI.dqb
+
+if not DQB then
+    return
+end
+
+
+DQB:RegisterModule("gossipquest", function()
+
+    --------------------------------------------------------
+    -- Configuration
+    --------------------------------------------------------
+
+    if not DQB:IsModuleEnabled("gossipquest") then
+        return
+    end
+
+
+    --------------------------------------------------------
+    -- Helpers
+    --------------------------------------------------------
+
+    local function SetWhite(text)
+
+        if not text then
+            return
+        end
+
+        text:SetTextColor(
+            1,
+            1,
+            1,
+            1
+        )
+
+        text:SetShadowColor(
+            0,
+            0,
+            0,
+            1
+        )
+
+        text:SetShadowOffset(
+            1,
+            -1
+        )
+
+    end
+
+
+    local function SetGold(text)
+
+        if not text then
+            return
+        end
+
+        text:SetTextColor(
+            1,
+            0.82,
+            0,
+            1
+        )
+
+        text:SetShadowColor(
+            0,
+            0,
+            0,
+            1
+        )
+
+        text:SetShadowOffset(
+            1,
+            -1
+        )
+
+    end
+
+
+    --------------------------------------------------------
+    -- Gossip / Quest option buttons
+    --------------------------------------------------------
+
+    local function SetButtonWhite(button)
+
+        if not button then
+            return
+        end
+
+
+        local text = button:GetFontString()
+
+        if text then
+            SetWhite(text)
+        end
+
+
+        if button.normalText then
+            SetWhite(button.normalText)
+        end
+
+
+        if button.highlightText then
+            SetWhite(button.highlightText)
+        end
+
+
+        if button.disabledText then
+            SetWhite(button.disabledText)
+        end
+
+
+        local regions = {
+            button:GetRegions()
+        }
+
+
+        for _, region in pairs(regions) do
+
+            if region
+            and region:GetObjectType() == "FontString" then
+
+                SetWhite(region)
+
+            end
+
+        end
+
+    end
+
+
+    local function SetGossipButtonsWhite()
+
+        for i = 1, 32 do
+
+            SetButtonWhite(
+                _G["GossipTitleButton" .. i]
+            )
+
+            SetButtonWhite(
+                _G["QuestTitleButton" .. i]
+            )
+
+        end
+
+    end
+
+
+    --------------------------------------------------------
+    -- Dynamic quest section titles
+    --------------------------------------------------------
+
+    local function SetQuestObjectivesTitleGold(frame)
+
+        if not frame then
+            return
+        end
+
+
+        local regions = {
+            frame:GetRegions()
+        }
+
+
+        for _, region in pairs(regions) do
+
+            if region
+            and region:GetObjectType() == "FontString" then
+
+                local text = region:GetText()
+
+                if text then
+
+                    local lower =
+                        string.lower(text)
+
+
+                    if string.find(
+                        lower,
+                        "quest objectives"
+                    )
+                    or lower == "objectives:"
+                    or lower == "objectives" then
+
+                        SetGold(region)
+
+                    end
+
+                end
+
+            end
+
+        end
+
+
+        local children = {
+            frame:GetChildren()
+        }
+
+
+        for _, child in pairs(children) do
+            SetQuestObjectivesTitleGold(child)
+        end
+
+    end
+
+
+    local function SetQuestRewardsTitleGold(frame)
+
+        if not frame then
+            return
+        end
+
+
+        local regions = {
+            frame:GetRegions()
+        }
+
+
+        for _, region in pairs(regions) do
+
+            if region
+            and region:GetObjectType() == "FontString" then
+
+                local text = region:GetText()
+
+                if text then
+
+                    local lower =
+                        string.lower(text)
+
+
+                    if lower == "rewards"
+                    or lower == "rewards:" then
+
+                        SetGold(region)
+
+                    end
+
+                end
+
+            end
+
+        end
+
+
+        local children = {
+            frame:GetChildren()
+        }
+
+
+        for _, child in pairs(children) do
+            SetQuestRewardsTitleGold(child)
+        end
+
+    end
+
+
+    --------------------------------------------------------
+    -- Quest text
+    --------------------------------------------------------
+
+    local function SetQuestTextWhite()
+
+        SetGold(QuestTitleText)
+        SetGold(QuestProgressTitleText)
+        SetGold(QuestRewardTitleText)
+        SetGold(QuestProgressRequiredItemsText)
+
+        SetWhite(QuestDescriptionText)
+        SetWhite(QuestProgressText)
+        SetWhite(QuestProgressRequiredMoneyText)
+        SetWhite(QuestRewardText)
+        SetWhite(QuestRewardRewardTitleText)
+        SetWhite(QuestRewardItemChooseText)
+        SetWhite(QuestRewardItemReceiveText)
+        SetWhite(QuestRewardSpellLearnText)
+        SetWhite(QuestDetailItemReceiveText)
+        SetWhite(QuestDetailSpellLearnText)
+
+        SetWhite(GreetingText)
+        SetWhite(GossipGreetingText)
+        SetWhite(CurrentQuestsText)
+        SetWhite(AvailableQuestsText)
+
+        SetWhite(QuestObjectiveText)
+        SetWhite(QuestObjectivesText)
+        SetWhite(QuestObjectiveTitleText)
+        SetWhite(QuestObjectivesTitleText)
+
+        SetWhite(QuestFrameNpcNameText)
+        SetWhite(GossipFrameNpcNameText)
+
+        SetGossipButtonsWhite()
+
+        SetQuestObjectivesTitleGold(QuestFrame)
+        SetQuestObjectivesTitleGold(GossipFrame)
+
+        SetQuestRewardsTitleGold(QuestFrame)
+        SetQuestRewardsTitleGold(GossipFrame)
+
+    end
+
+
+    --------------------------------------------------------
+    -- Parchment replacement
+    --
+    -- This is intentionally based on the working pfUI
+    -- Gossip & Quest skin.
+    --
+    -- We do NOT modify the main frame.
+    --------------------------------------------------------
+
+    local function ApplyParchment(frameName, panelName)
+
+        local frame =
+            _G[frameName .. "Frame"]
+
+
+        if not frame then
+            return
+        end
+
+
+        local frameNameFull =
+            frame:GetName()
+
+
+        local panel =
+            _G[
+                frameNameFull
+                .. panelName
+                .. "Panel"
+            ]
+
+
+        if not panel then
+            return
+        end
+
+
+        local fname =
+            frameNameFull
+            .. panelName
+            .. "Panel"
+
+
+        local scroll =
+            _G[
+                frameName
+                .. panelName
+                .. "ScrollFrame"
+            ]
+
+
+        if not scroll then
+            return
+        end
+
+
+        ----------------------------------------------------
+        -- Use the exact pfUI API.
+        ----------------------------------------------------
+
+        if pfUI.api
+        and pfUI.api.StripTextures then
+
+            pfUI.api.StripTextures(
+                panel
+            )
+
+        end
+
+
+        ----------------------------------------------------
+        -- Black background
+        ----------------------------------------------------
+
+        local bg =
+            scroll.dqbParchmentBackground
+
+
+        if not bg then
+
+            bg =
+                scroll:CreateTexture(
+                    nil,
+                    "LOW"
+                )
+
+
+            bg:SetAllPoints()
+
+            scroll.dqbParchmentBackground =
+                bg
+
+        end
+
+
+        bg:SetTexture(
+            0,
+            0,
+            0,
+            0.10
+        )
+
+
+        ----------------------------------------------------
+        -- Blizzard parchment material textures
+        ----------------------------------------------------
+
+        local topLeft =
+            _G[fname .. "MaterialTopLeft"]
+
+        local topRight =
+            _G[fname .. "MaterialTopRight"]
+
+        local botLeft =
+            _G[fname .. "MaterialBotLeft"]
+
+        local botRight =
+            _G[fname .. "MaterialBotRight"]
+
+
+        ----------------------------------------------------
+        -- Top left
+        ----------------------------------------------------
+
+        if topLeft then
+
+            topLeft.SetTexture =
+                function()
+
+                    bg:SetTexture(
+                        0,
+                        0,
+                        0,
+                        0.10
+                    )
+
+                end
+
+
+            topLeft.Hide =
+                function()
+
+                    bg:SetTexture(
+                        0,
+                        0,
+                        0,
+                        0.10
+                    )
+
+                end
+
+
+            topLeft.Show =
+                function()
+                    return
+                end
+
+
+            topLeft:Hide()
+
+        end
+
+
+        ----------------------------------------------------
+        -- Top right
+        ----------------------------------------------------
+
+        if topRight then
+
+            topRight.Show =
+                function()
+                    return
+                end
+
+
+            topRight:Hide()
+
+        end
+
+
+        ----------------------------------------------------
+        -- Bottom left
+        ----------------------------------------------------
+
+        if botLeft then
+
+            botLeft.Show =
+                function()
+                    return
+                end
+
+
+            botLeft:Hide()
+
+        end
+
+
+        ----------------------------------------------------
+        -- Bottom right
+        ----------------------------------------------------
+
+        if botRight then
+
+            botRight.Show =
+                function()
+                    return
+                end
+
+
+            botRight:Hide()
+
+        end
+
+    end
+
+
+    --------------------------------------------------------
+    -- Apply all parchment panels
+    --------------------------------------------------------
+
+    local function ApplyAllParchment()
+
+        ApplyParchment(
+            "Quest",
+            "Greeting"
+        )
+
+        ApplyParchment(
+            "Quest",
+            "Detail"
+        )
+
+        ApplyParchment(
+            "Quest",
+            "Progress"
+        )
+
+        ApplyParchment(
+            "Quest",
+            "Reward"
+        )
+
+        ApplyParchment(
+            "Gossip",
+            "Greeting"
+        )
+
+    end
+
+
+    --------------------------------------------------------
+    -- Quest reward highlight
+    --------------------------------------------------------
+
+    local QuestRewardItemHighlight
+
+
+    if QuestRewardScrollChildFrame then
+
+        QuestRewardItemHighlight =
+            CreateFrame(
+                "Frame",
+                nil,
+                QuestRewardScrollChildFrame
+            )
+
+
+        local highlight =
+            QuestRewardItemHighlight:CreateTexture(
+                nil,
+                "OVERLAY"
+            )
+
+
+        highlight:SetTexture(
+            1,
+            1,
+            1,
+            0.20
+        )
+
+
+        highlight:SetAllPoints()
+
+
+        QuestRewardItemHighlight.bg =
+            highlight
+
+
+        QuestRewardItemHighlight:Hide()
+
+    end
+
+
+    --------------------------------------------------------
+    -- Quest reward updates
+    --------------------------------------------------------
+
+    if QuestFrameItems_Update then
+
+        hooksecurefunc(
+            "QuestFrameItems_Update",
+            function()
+
+                if QuestRewardItemHighlight then
+                    QuestRewardItemHighlight:Hide()
+                end
+
+                SetQuestTextWhite()
+                ApplyAllParchment()
+
+            end
+        )
+
+    end
+
+
+    --------------------------------------------------------
+    -- Quest reward item click
+    --------------------------------------------------------
+
+    if QuestRewardItem_OnClick then
+
+        hooksecurefunc(
+            "QuestRewardItem_OnClick",
+            function()
+
+                if this
+                and this.type == "choice"
+                and this.backdrop
+                and QuestRewardItemHighlight then
+
+                    QuestRewardItemHighlight:SetAllPoints(
+                        this.backdrop
+                    )
+
+                    QuestRewardItemHighlight:Show()
+
+                end
+
+            end
+        )
+
+    end
+
+
+    --------------------------------------------------------
+    -- Blizzard text color hooks
+    --------------------------------------------------------
+
+    if QuestFrame_SetTextColor then
+
+        hooksecurefunc(
+            "QuestFrame_SetTextColor",
+            function(text)
+
+                SetWhite(text)
+
+            end
+        )
+
+    end
+
+
+    if QuestFrame_SetTitleTextColor then
+
+        hooksecurefunc(
+            "QuestFrame_SetTitleTextColor",
+            function(text)
+
+                SetGold(text)
+
+            end
+        )
+
+    end
+
+
+    --------------------------------------------------------
+    -- Quest information
+    --------------------------------------------------------
+
+    if QuestInfo_Display then
+
+        hooksecurefunc(
+            "QuestInfo_Display",
+            function()
+
+                SetQuestTextWhite()
+                ApplyAllParchment()
+
+            end
+        )
+
+    end
+
+
+    --------------------------------------------------------
+    -- Gossip updates
+    --------------------------------------------------------
+
+    if GossipFrameUpdate then
+
+        hooksecurefunc(
+            "GossipFrameUpdate",
+            function()
+
+                SetQuestTextWhite()
+                SetGossipButtonsWhite()
+                ApplyAllParchment()
+
+            end
+        )
+
+    end
+
+
+    if GossipFrameAvailableQuestsUpdate then
+
+        hooksecurefunc(
+            "GossipFrameAvailableQuestsUpdate",
+            function()
+
+                SetGossipButtonsWhite()
+
+            end
+        )
+
+    end
+
+
+    if GossipFrameActiveQuestsUpdate then
+
+        hooksecurefunc(
+            "GossipFrameActiveQuestsUpdate",
+            function()
+
+                SetGossipButtonsWhite()
+
+            end
+        )
+
+    end
+
+
+    if GossipFrameOptionsUpdate then
+
+        hooksecurefunc(
+            "GossipFrameOptionsUpdate",
+            function()
+
+                SetGossipButtonsWhite()
+
+            end
+        )
+
+    end
+
+
+    --------------------------------------------------------
+    -- Quest panels
+    --------------------------------------------------------
+
+    if QuestFrameGreetingPanel_OnShow then
+
+        hooksecurefunc(
+            "QuestFrameGreetingPanel_OnShow",
+            function()
+
+                SetQuestTextWhite()
+                SetGossipButtonsWhite()
+                ApplyAllParchment()
+
+            end
+        )
+
+    end
+
+
+    if QuestFrameDetailPanel_OnShow then
+
+        hooksecurefunc(
+            "QuestFrameDetailPanel_OnShow",
+            function()
+
+                SetQuestTextWhite()
+                ApplyAllParchment()
+
+            end
+        )
+
+    end
+
+
+    if QuestFrameProgressPanel_OnShow then
+
+        hooksecurefunc(
+            "QuestFrameProgressPanel_OnShow",
+            function()
+
+                SetQuestTextWhite()
+                ApplyAllParchment()
+
+            end
+        )
+
+    end
+
+
+    if QuestFrameRewardPanel_OnShow then
+
+        hooksecurefunc(
+            "QuestFrameRewardPanel_OnShow",
+            function()
+
+                SetQuestTextWhite()
+
+                SetQuestRewardsTitleGold(
+                    QuestRewardScrollChildFrame
+                )
+
+                SetQuestRewardsTitleGold(
+                    QuestFrameRewardPanel
+                )
+
+                ApplyAllParchment()
+
+            end
+        )
+
+    end
+
+
+    --------------------------------------------------------
+    -- Frame OnShow hooks
+    --
+    -- These are important because pfUI can recreate/show
+    -- its material textures after the dialog is opened.
+    --------------------------------------------------------
+
+    if QuestFrame then
+
+        QuestFrame:HookScript(
+            "OnShow",
+            function()
+
+                ApplyAllParchment()
+                SetQuestTextWhite()
+
+            end
+        )
+
+    end
+
+
+    if GossipFrame then
+
+        GossipFrame:HookScript(
+            "OnShow",
+            function()
+
+                ApplyAllParchment()
+                SetQuestTextWhite()
+                SetGossipButtonsWhite()
+
+            end
+        )
+
+    end
+
+
+    --------------------------------------------------------
+    -- Initial application
+    --------------------------------------------------------
+
+    SetQuestTextWhite()
+    SetGossipButtonsWhite()
+
+
+    --------------------------------------------------------
+    -- Debug
+    --------------------------------------------------------
+
+    if DQB.Debug then
+
+        DQB:Debug(
+            "gossipquest module applied"
+        )
+
+    end
+
+end)

modules/itemtext.lua

@@ -0,0 +1,685 @@
+-- pfUI-DQB
+-- modules/itemtext.lua
+--
+-- DQB customization for pfUI Books / Item Text.
+--
+-- The original pfUI skin remains responsible for:
+--   - Main frame
+--   - Frame backdrop
+--   - Close button
+--   - Movement
+--   - General pfUI appearance
+--
+-- DQB only changes:
+--   - Text colors
+--   - Parchment background
+--   - Page controls
+--   - Scrollbar presentation
+
+
+local DQB = pfUI and pfUI.dqb
+
+if not DQB then
+    return
+end
+
+
+DQB:RegisterModule("itemtext", function()
+
+    --------------------------------------------------------
+    -- Check configuration
+    --------------------------------------------------------
+
+    if not DQB:IsModuleEnabled("itemtext") then
+        return
+    end
+
+
+    --------------------------------------------------------
+    -- pfUI API
+    --------------------------------------------------------
+
+    local API = pfUI.api
+
+    if not API then
+        return
+    end
+
+
+    local StripTextures = API.StripTextures
+    local CreateBackdrop = API.CreateBackdrop
+    local CreateBackdropShadow = API.CreateBackdropShadow
+    local SkinCloseButton = API.SkinCloseButton
+    local SkinScrollbar = API.SkinScrollbar
+    local SkinArrowButton = API.SkinArrowButton
+
+
+    --------------------------------------------------------
+    -- Text colors
+    --------------------------------------------------------
+
+    local function SetWhite(text)
+
+        if not text then
+            return
+        end
+
+        text:SetTextColor(
+            1,
+            1,
+            1,
+            1
+        )
+
+        text:SetShadowColor(
+            0,
+            0,
+            0,
+            1
+        )
+
+        text:SetShadowOffset(
+            1,
+            -1
+        )
+
+    end
+
+
+    local function SetGold(text)
+
+        if not text then
+            return
+        end
+
+        text:SetTextColor(
+            1,
+            0.82,
+            0,
+            1
+        )
+
+        text:SetShadowColor(
+            0,
+            0,
+            0,
+            1
+        )
+
+        text:SetShadowOffset(
+            1,
+            -1
+        )
+
+    end
+
+
+    --------------------------------------------------------
+    -- Apply text colors
+    --------------------------------------------------------
+
+    local function SetItemTextColors()
+
+        SetGold(
+            ItemTextTitleText
+        )
+
+        SetWhite(
+            ItemTextPageText
+        )
+
+        SetWhite(
+            ItemTextCurrentPage
+        )
+
+    end
+
+
+    --------------------------------------------------------
+    -- Main frame
+    --------------------------------------------------------
+
+    if not ItemTextFrame then
+        return
+    end
+
+
+    StripTextures(
+        ItemTextFrame
+    )
+
+
+    CreateBackdrop(
+        ItemTextFrame,
+        nil,
+        nil,
+        0.75
+    )
+
+
+    CreateBackdropShadow(
+        ItemTextFrame
+    )
+
+
+    ItemTextFrame.backdrop:SetPoint(
+        "TOPLEFT",
+        12,
+        -12
+    )
+
+
+    ItemTextFrame.backdrop:SetPoint(
+        "BOTTOMRIGHT",
+        -30,
+        72
+    )
+
+
+    ItemTextFrame:SetHitRectInsets(
+        12,
+        30,
+        12,
+        72
+    )
+
+
+    if API.EnableMovable then
+
+        API.EnableMovable(
+            ItemTextFrame
+        )
+
+    end
+
+
+    --------------------------------------------------------
+    -- Close button
+    --------------------------------------------------------
+
+    if ItemTextCloseButton then
+
+        SkinCloseButton(
+            ItemTextCloseButton,
+            ItemTextFrame.backdrop,
+            -6,
+            -6
+        )
+
+    end
+
+
+    --------------------------------------------------------
+    -- Text area
+    --------------------------------------------------------
+
+    if ItemTextScrollFrame then
+
+        ItemTextScrollFrame:SetWidth(
+            292
+        )
+
+    end
+
+
+    if ItemTextPageText then
+
+        ItemTextPageText:SetWidth(
+            282
+        )
+
+        ItemTextPageText:ClearAllPoints()
+
+        ItemTextPageText:SetPoint(
+            "TOPLEFT",
+            4,
+            -15
+        )
+
+    end
+
+
+    if ItemTextTitleText then
+
+        ItemTextTitleText:ClearAllPoints()
+
+        ItemTextTitleText:SetPoint(
+            "TOP",
+            ItemTextFrame.backdrop,
+            "TOP",
+            0,
+            -10
+        )
+
+    end
+
+
+    --------------------------------------------------------
+    -- Scroll frame
+    --------------------------------------------------------
+
+    if ItemTextScrollFrame then
+
+        StripTextures(
+            ItemTextScrollFrame
+        )
+
+
+        CreateBackdrop(
+            ItemTextScrollFrame,
+            nil,
+            true,
+            0
+        )
+
+
+        SkinScrollbar(
+            ItemTextScrollFrameScrollBar
+        )
+
+
+        ItemTextScrollFrame:ClearAllPoints()
+
+        ItemTextScrollFrame:SetPoint(
+            "TOPRIGHT",
+            -66,
+            -46
+        )
+
+    end
+
+
+    --------------------------------------------------------
+    -- Replace parchment with black translucent background
+    --------------------------------------------------------
+
+    local bg
+
+
+    if ItemTextScrollFrame then
+
+        bg =
+            ItemTextScrollFrame.dqbBackground
+
+
+        if not bg then
+
+            bg =
+                ItemTextScrollFrame:CreateTexture(
+                    nil,
+                    "LOW"
+                )
+
+
+            bg:SetAllPoints()
+
+
+            ItemTextScrollFrame.dqbBackground =
+                bg
+
+        end
+
+
+        bg:SetTexture(
+            0,
+            0,
+            0,
+            0.50
+        )
+
+    end
+
+
+    --------------------------------------------------------
+    -- Disable Blizzard parchment material
+    --------------------------------------------------------
+
+    if ItemTextMaterialTopLeft then
+
+        ItemTextMaterialTopLeft.SetTexture =
+            function()
+
+                bg:SetTexture(
+                    0,
+                    0,
+                    0,
+                    0.50
+                )
+
+            end
+
+
+        ItemTextMaterialTopLeft.Hide =
+            function()
+
+                bg:SetTexture(
+                    0,
+                    0,
+                    0,
+                    0.50
+                )
+
+            end
+
+
+        ItemTextMaterialTopLeft.Show =
+            function()
+                return
+            end
+
+
+        ItemTextMaterialTopLeft:Hide()
+
+    end
+
+
+    if ItemTextMaterialTopRight then
+
+        ItemTextMaterialTopRight.Show =
+            function()
+                return
+            end
+
+
+        ItemTextMaterialTopRight:Hide()
+
+    end
+
+
+    if ItemTextMaterialBotLeft then
+
+        ItemTextMaterialBotLeft.Show =
+            function()
+                return
+            end
+
+
+        ItemTextMaterialBotLeft:Hide()
+
+    end
+
+
+    if ItemTextMaterialBotRight then
+
+        ItemTextMaterialBotRight.Show =
+            function()
+                return
+            end
+
+
+        ItemTextMaterialBotRight:Hide()
+
+    end
+
+
+    --------------------------------------------------------
+    -- Current page
+    --------------------------------------------------------
+
+    if ItemTextCurrentPage
+    and ItemTextScrollFrame then
+
+        ItemTextCurrentPage:ClearAllPoints()
+
+        ItemTextCurrentPage:SetPoint(
+            "TOP",
+            ItemTextScrollFrame,
+            "BOTTOM",
+            0,
+            -10
+        )
+
+        ItemTextCurrentPage:SetFontObject(
+            "GameFontWhite"
+        )
+
+    end
+
+
+    --------------------------------------------------------
+    -- Previous page button
+    --------------------------------------------------------
+
+    if ItemTextPrevPageButton
+    and ItemTextScrollFrame then
+
+        SkinArrowButton(
+            ItemTextPrevPageButton,
+            "left",
+            18
+        )
+
+
+        ItemTextPrevPageButton:ClearAllPoints()
+
+        ItemTextPrevPageButton:SetPoint(
+            "TOPLEFT",
+            ItemTextScrollFrame,
+            "BOTTOMLEFT",
+            0,
+            -6
+        )
+
+
+        ItemTextPrevPageButton.Show =
+            function(self)
+
+                self:Enable()
+
+            end
+
+
+        ItemTextPrevPageButton.Hide =
+            function(self)
+
+                self:Disable()
+
+            end
+
+    end
+
+
+    --------------------------------------------------------
+    -- Next page button
+    --------------------------------------------------------
+
+    if ItemTextNextPageButton
+    and ItemTextScrollFrame then
+
+        SkinArrowButton(
+            ItemTextNextPageButton,
+            "right",
+            18
+        )
+
+
+        ItemTextNextPageButton:ClearAllPoints()
+
+        ItemTextNextPageButton:SetPoint(
+            "TOPRIGHT",
+            ItemTextScrollFrame,
+            "BOTTOMRIGHT",
+            0,
+            -6
+        )
+
+
+        ItemTextNextPageButton.Show =
+            function(self)
+
+                self:Enable()
+
+            end
+
+
+        ItemTextNextPageButton.Hide =
+            function(self)
+
+                self:Disable()
+
+            end
+
+    end
+
+
+    --------------------------------------------------------
+    -- Keep scrollbar visible
+    --------------------------------------------------------
+
+    if ItemTextScrollFrame
+    and ItemTextScrollFrameScrollBar then
+
+        ItemTextScrollFrame:Show()
+
+        ItemTextScrollFrameScrollBar:Show()
+
+
+        if ItemTextScrollFrameScrollBarScrollUpButton then
+
+            ItemTextScrollFrameScrollBarScrollUpButton:Show()
+
+        end
+
+
+        if ItemTextScrollFrameScrollBarScrollDownButton then
+
+            ItemTextScrollFrameScrollBarScrollDownButton:Show()
+
+        end
+
+
+        ItemTextScrollFrame.Show =
+            function(self)
+            end
+
+
+        ItemTextScrollFrame.Hide =
+            function(self)
+            end
+
+
+        ItemTextScrollFrameScrollBar.Show =
+            function(self)
+
+                if self.thumb then
+                    self.thumb:Show()
+                end
+
+            end
+
+
+        ItemTextScrollFrameScrollBar.Hide =
+            function(self)
+
+                if self.thumb then
+                    self.thumb:Hide()
+                end
+
+            end
+
+
+        if ItemTextScrollFrameScrollBarScrollUpButton then
+
+            ItemTextScrollFrameScrollBarScrollUpButton.Show =
+                function(self)
+
+                    if self:GetParent():GetValue() ~= 0 then
+                        self:Enable()
+                    end
+
+                end
+
+
+            ItemTextScrollFrameScrollBarScrollUpButton.Hide =
+                function(self)
+
+                    self:Disable()
+
+                end
+
+        end
+
+
+        if ItemTextScrollFrameScrollBarScrollDownButton then
+
+            ItemTextScrollFrameScrollBarScrollDownButton.Show =
+                function(self)
+
+                    self:Enable()
+
+                end
+
+
+            ItemTextScrollFrameScrollBarScrollDownButton.Hide =
+                function(self)
+
+                    self:Disable()
+
+                end
+
+        end
+
+    end
+
+
+    --------------------------------------------------------
+    -- Update colors when the book opens
+    --------------------------------------------------------
+
+    ItemTextFrame:HookScript(
+        "OnShow",
+        function()
+
+            SetItemTextColors()
+
+            if bg then
+
+                bg:SetTexture(
+                    0,
+                    0,
+                    0,
+                    0.50
+                )
+
+            end
+
+            if ItemTextMaterialTopLeft then
+                ItemTextMaterialTopLeft:Hide()
+            end
+
+            if ItemTextMaterialTopRight then
+                ItemTextMaterialTopRight:Hide()
+            end
+
+            if ItemTextMaterialBotLeft then
+                ItemTextMaterialBotLeft:Hide()
+            end
+
+            if ItemTextMaterialBotRight then
+                ItemTextMaterialBotRight:Hide()
+            end
+
+        end
+    )
+
+
+    --------------------------------------------------------
+    -- Initial colors
+    --------------------------------------------------------
+
+    SetItemTextColors()
+
+
+    --------------------------------------------------------
+    -- Debug
+    --------------------------------------------------------
+
+    if DQB.Debug then
+
+        DQB:Debug(
+            "itemtext module applied"
+        )
+
+    end
+
+end)

pfUI-DQB.toc

@@ -0,0 +1,13 @@
+## Interface: 11200
+## Title: |cff33ffccpf|cffffffffUI|cffaaaaaa [Dialog, QuestLog & Books]
+## Author: jKalfis
+## Notes: Quest & Gossip, Quest Log and Books visual enhancements for pfUI.
+## Version: 1.0.0
+## Dependencies: pfUI
+
+core.lua
+config.lua
+gui.lua
+modules\gossipquest.lua
+modules\questlog.lua
+modules\itemtext.lua