wuira 0.1.4 → 0.1.6

package/lib/ui/mount.lua

@@ -237,6 +237,219 @@ local function __TS__New(target, ...)
     return instance
 end
 
+local Set
+do
+    Set = __TS__Class()
+    Set.name = "Set"
+    function Set.prototype.____constructor(self, values)
+        self[Symbol.toStringTag] = "Set"
+        self.size = 0
+        self.nextKey = {}
+        self.previousKey = {}
+        if values == nil then
+            return
+        end
+        local iterable = values
+        if iterable[Symbol.iterator] then
+            local iterator = iterable[Symbol.iterator](iterable)
+            while true do
+                local result = iterator:next()
+                if result.done then
+                    break
+                end
+                self:add(result.value)
+            end
+        else
+            local array = values
+            for ____, value in ipairs(array) do
+                self:add(value)
+            end
+        end
+    end
+    function Set.prototype.add(self, value)
+        local isNewValue = not self:has(value)
+        if isNewValue then
+            self.size = self.size + 1
+        end
+        if self.firstKey == nil then
+            self.firstKey = value
+            self.lastKey = value
+        elseif isNewValue then
+            self.nextKey[self.lastKey] = value
+            self.previousKey[value] = self.lastKey
+            self.lastKey = value
+        end
+        return self
+    end
+    function Set.prototype.clear(self)
+        self.nextKey = {}
+        self.previousKey = {}
+        self.firstKey = nil
+        self.lastKey = nil
+        self.size = 0
+    end
+    function Set.prototype.delete(self, value)
+        local contains = self:has(value)
+        if contains then
+            self.size = self.size - 1
+            local next = self.nextKey[value]
+            local previous = self.previousKey[value]
+            if next ~= nil and previous ~= nil then
+                self.nextKey[previous] = next
+                self.previousKey[next] = previous
+            elseif next ~= nil then
+                self.firstKey = next
+                self.previousKey[next] = nil
+            elseif previous ~= nil then
+                self.lastKey = previous
+                self.nextKey[previous] = nil
+            else
+                self.firstKey = nil
+                self.lastKey = nil
+            end
+            self.nextKey[value] = nil
+            self.previousKey[value] = nil
+        end
+        return contains
+    end
+    function Set.prototype.forEach(self, callback)
+        for ____, key in __TS__Iterator(self:keys()) do
+            callback(nil, key, key, self)
+        end
+    end
+    function Set.prototype.has(self, value)
+        return self.nextKey[value] ~= nil or self.lastKey == value
+    end
+    Set.prototype[Symbol.iterator] = function(self)
+        return self:values()
+    end
+    function Set.prototype.entries(self)
+        local function getFirstKey()
+            return self.firstKey
+        end
+        local nextKey = self.nextKey
+        local key
+        local started = false
+        return {
+            [Symbol.iterator] = function(self)
+                return self
+            end,
+            next = function(self)
+                if not started then
+                    started = true
+                    key = getFirstKey(nil)
+                else
+                    key = nextKey[key]
+                end
+                return {done = not key, value = {key, key}}
+            end
+        }
+    end
+    function Set.prototype.keys(self)
+        local function getFirstKey()
+            return self.firstKey
+        end
+        local nextKey = self.nextKey
+        local key
+        local started = false
+        return {
+            [Symbol.iterator] = function(self)
+                return self
+            end,
+            next = function(self)
+                if not started then
+                    started = true
+                    key = getFirstKey(nil)
+                else
+                    key = nextKey[key]
+                end
+                return {done = not key, value = key}
+            end
+        }
+    end
+    function Set.prototype.values(self)
+        local function getFirstKey()
+            return self.firstKey
+        end
+        local nextKey = self.nextKey
+        local key
+        local started = false
+        return {
+            [Symbol.iterator] = function(self)
+                return self
+            end,
+            next = function(self)
+                if not started then
+                    started = true
+                    key = getFirstKey(nil)
+                else
+                    key = nextKey[key]
+                end
+                return {done = not key, value = key}
+            end
+        }
+    end
+    function Set.prototype.union(self, other)
+        local result = __TS__New(Set, self)
+        for ____, item in __TS__Iterator(other) do
+            result:add(item)
+        end
+        return result
+    end
+    function Set.prototype.intersection(self, other)
+        local result = __TS__New(Set)
+        for ____, item in __TS__Iterator(self) do
+            if other:has(item) then
+                result:add(item)
+            end
+        end
+        return result
+    end
+    function Set.prototype.difference(self, other)
+        local result = __TS__New(Set, self)
+        for ____, item in __TS__Iterator(other) do
+            result:delete(item)
+        end
+        return result
+    end
+    function Set.prototype.symmetricDifference(self, other)
+        local result = __TS__New(Set, self)
+        for ____, item in __TS__Iterator(other) do
+            if self:has(item) then
+                result:delete(item)
+            else
+                result:add(item)
+            end
+        end
+        return result
+    end
+    function Set.prototype.isSubsetOf(self, other)
+        for ____, item in __TS__Iterator(self) do
+            if not other:has(item) then
+                return false
+            end
+        end
+        return true
+    end
+    function Set.prototype.isSupersetOf(self, other)
+        for ____, item in __TS__Iterator(other) do
+            if not self:has(item) then
+                return false
+            end
+        end
+        return true
+    end
+    function Set.prototype.isDisjointFrom(self, other)
+        for ____, item in __TS__Iterator(self) do
+            if other:has(item) then
+                return false
+            end
+        end
+        return true
+    end
+    Set[Symbol.species] = Set
+end
+
 local function __TS__ArrayMap(self, callbackfn, thisArg)
     local result = {}
     for i = 1, #self do
@@ -244,8 +457,45 @@ local function __TS__ArrayMap(self, callbackfn, thisArg)
     end
     return result
 end
+
+local function __TS__NumberIsFinite(value)
+    return type(value) == "number" and value == value and value ~= math.huge and value ~= -math.huge
+end
+
+local function __TS__InstanceOf(obj, classTbl)
+    if type(classTbl) ~= "table" then
+        error("Right-hand side of 'instanceof' is not an object", 0)
+    end
+    if classTbl[Symbol.hasInstance] ~= nil then
+        return not not classTbl[Symbol.hasInstance](classTbl, obj)
+    end
+    if type(obj) == "table" then
+        local luaClass = obj.constructor
+        while luaClass ~= nil do
+            if luaClass == classTbl then
+                return true
+            end
+            luaClass = luaClass.____super
+        end
+    end
+    return false
+end
+
+local function __TS__ObjectAssign(target, ...)
+    local sources = {...}
+    for i = 1, #sources do
+        local source = sources[i]
+        if type(source) == "table" then
+            for key in pairs(source) do
+                target[key] = source[key]
+            end
+        end
+    end
+    return target
+end
 -- End of Lua Library inline imports
 local ____exports = {}
+local protect, mountedFrames, mountedTrees
 local ____measureLayout = require("ui.layout.measureLayout")
 local measureLayout = ____measureLayout.measureLayout
 local ____Background = require("ui.decorations.Background")
@@ -254,19 +504,64 @@ local ____Border = require("ui.decorations.Border")
 local Border = ____Border.Border
 local ____statusBarTextures = require("ui.decorations.statusBarTextures")
 local resolveStatusBarTexture = ____statusBarTextures.resolveStatusBarTexture
-local mountedFrames = __TS__New(Map)
-local mountedTrees = __TS__New(Map)
+local ____Resources = require("datasources.Resources")
+local HP = ____Resources.HP
+local ____SecureButton = require("platform.SecureButton")
+local createSecureButton = ____SecureButton.createSecureButton
+local configureSecureButton = ____SecureButton.configureSecureButton
+local validateSecureButton = ____SecureButton.validateSecureButton
+function protect(self, root, tree)
+    local ____temp_2 = not tree.protected
+    if ____temp_2 then
+        local ____this_1
+        ____this_1 = root
+        local ____opt_0 = ____this_1.IsProtected
+        ____temp_2 = (____opt_0 and ____opt_0(____this_1)) ~= true
+    end
+    if ____temp_2 then
+        return false
+    end
+    tree.protected = true
+    if tree.listener == nil then
+        local listener = CreateFrame("Frame", nil, UIParent)
+        tree.listener = listener
+        local ____tree_frames_3 = tree.frames
+        ____tree_frames_3[#____tree_frames_3 + 1] = listener
+        listener:RegisterEvent("PLAYER_REGEN_ENABLED")
+        listener:SetScript(
+            "OnEvent",
+            function()
+                if tree.pendingUnmount then
+                    ____exports.unmount(nil, root)
+                else
+                    for ____, refresh in ipairs(tree.visibility) do
+                        refresh(nil)
+                    end
+                end
+            end
+        )
+    end
+    return true
+end
 function ____exports.unmount(self, frame)
     local tree = mountedTrees:get(frame)
     if tree == nil then
         return
     end
+    if protect(nil, frame, tree) and InCombatLockdown() then
+        tree.pendingUnmount = true
+        return
+    end
+    for ____, dispose in ipairs(tree.bindings) do
+        dispose(nil)
+    end
     for ____, decoration in ipairs(tree.decorations) do
         decoration:dispose()
     end
     for ____, child in ipairs(tree.frames) do
         child:UnregisterAllEvents()
         child:SetScript("OnEvent", nil)
+        child:SetScript("OnUpdate", nil)
         child:Hide()
     end
     for ____, cell in ipairs(tree.cells) do
@@ -274,6 +569,8 @@ function ____exports.unmount(self, frame)
     end
     mountedTrees:delete(frame)
 end
+mountedFrames = __TS__New(Map)
+mountedTrees = __TS__New(Map)
 --- Creates the tree before resolving anchors. Positive y moves down.
 function ____exports.mount(self, element, parent, rootAnchor)
     if parent == nil then
@@ -281,22 +578,65 @@ function ____exports.mount(self, element, parent, rootAnchor)
     end
     local frames = __TS__New(Map)
     local pending = {}
+    local rootProps = element.props
+    local measured = measureLayout(
+        nil,
+        element,
+        {
+            width = rootProps.width == "inherit" and parent:GetWidth() or nil,
+            height = rootProps.height == "inherit" and parent:GetHeight() or nil
+        }
+    )
+    local ____temp_7 = parent ~= UIParent
+    if ____temp_7 then
+        local ____this_5
+        ____this_5 = parent
+        local ____opt_4 = ____this_5.IsProtected
+        local ____temp_6 = ____opt_4 and ____opt_4(____this_5)
+        if ____temp_6 == nil then
+            ____temp_6 = false
+        end
+        ____temp_7 = ____temp_6
+    end
+    local protectedTree = ____temp_7
+    local seen = __TS__New(Set)
+    local function validate(self, item)
+        if seen:has(item.cell.props) or mountedFrames:has(item.cell.props) then
+            error("A Cell can only be mounted once at a time")
+        end
+        seen:add(item.cell.props)
+        if item.cell.kind == "secureButton" then
+            protectedTree = true
+            validateSecureButton(nil, item.cell.props)
+        end
+        for ____, child in ipairs(item.children) do
+            validate(nil, child)
+        end
+    end
+    validate(nil, measured)
+    if protectedTree and InCombatLockdown() then
+        error("SecureButton: mount protected UI outside combat")
+    end
     local function create(self, measured, parent, placement)
-        local ____measured_0 = measured
-        local cell = ____measured_0.cell
-        local width = ____measured_0.width
-        local height = ____measured_0.height
+        local ____measured_8 = measured
+        local cell = ____measured_8.cell
+        local width = ____measured_8.width
+        local height = ____measured_8.height
         if frames:has(cell.props) or mountedFrames:has(cell.props) then
             error("A Cell can only be mounted once at a time")
         end
-        local frame = cell.kind == "progress" and CreateFrame("StatusBar", nil, parent) or CreateFrame("Frame", nil, parent)
+        local frame = cell.kind == "progress" and CreateFrame("StatusBar", nil, parent) or (cell.kind == "secureButton" and createSecureButton(nil, parent, cell.props) or (cell.kind == "button" and CreateFrame("Button", nil, parent) or CreateFrame("Frame", nil, parent)))
         frame:Hide()
-        local ____frame_EnableMouse_2 = frame.EnableMouse
-        local ____cell_props_clickThrough_1 = cell.props.clickThrough
-        if ____cell_props_clickThrough_1 == nil then
-            ____cell_props_clickThrough_1 = true
+        local ____frame_EnableMouse_11 = frame.EnableMouse
+        local ____temp_10 = cell.kind == "secureButton" or cell.kind == "button"
+        if not ____temp_10 then
+            local ____cell_props_clickThrough_9 = cell.props.clickThrough
+            if ____cell_props_clickThrough_9 == nil then
+                ____cell_props_clickThrough_9 = true
+            end
+            ____temp_10 = not ____cell_props_clickThrough_9
         end
-        ____frame_EnableMouse_2(frame, not ____cell_props_clickThrough_1)
+        ____frame_EnableMouse_11(frame, ____temp_10)
         frames:set(cell.props, frame)
         pending[#pending + 1] = {
             cell = cell,
@@ -311,28 +651,16 @@ function ____exports.mount(self, element, parent, rootAnchor)
         do
             local index = 0
             while index < #measured.children do
-                local ____create_6 = create
-                local ____measured_children_index_5 = measured.children[index + 1]
-                local ____opt_3 = measured.placements
-                ____create_6(nil, ____measured_children_index_5, frame, ____opt_3 and ____opt_3[index + 1])
+                local ____create_15 = create
+                local ____measured_children_index_14 = measured.children[index + 1]
+                local ____opt_12 = measured.placements
+                ____create_15(nil, ____measured_children_index_14, frame, ____opt_12 and ____opt_12[index + 1])
                 index = index + 1
             end
         end
         return frame
     end
-    local rootProps = element.props
-    local root = create(
-        nil,
-        measureLayout(
-            nil,
-            element,
-            {
-                width = rootProps.width == "inherit" and parent:GetWidth() or nil,
-                height = rootProps.height == "inherit" and parent:GetHeight() or nil
-            }
-        ),
-        parent
-    )
+    local root = create(nil, measured, parent)
     local anchors = __TS__New(Map)
     for ____, item in ipairs(pending) do
         local position = item.cell.props
@@ -369,7 +697,11 @@ function ____exports.mount(self, element, parent, rootAnchor)
             pending,
             function(____, item) return item.cell end
         ),
-        decorations = {}
+        decorations = {},
+        bindings = {},
+        protected = protectedTree,
+        pendingUnmount = false,
+        visibility = {}
     }
     mountedTrees:set(root, tree)
     do
@@ -378,20 +710,75 @@ function ____exports.mount(self, element, parent, rootAnchor)
             error(failure, 0)
         end
         local ____try, ____hasReturned = pcall(function()
+            local updates = {}
+            protect(nil, root, tree)
             for ____, item in ipairs(pending) do
+                local sourceActive = true
+                local lastVisible
+                local visible = item.cell.props.visible
+                local function refreshVisibility()
+                    if protect(nil, root, tree) and InCombatLockdown() then
+                        return
+                    end
+                    local ____sourceActive_19 = sourceActive
+                    if ____sourceActive_19 then
+                        local ____temp_18 = visible and visible(nil)
+                        if ____temp_18 == nil then
+                            ____temp_18 = true
+                        end
+                        ____sourceActive_19 = ____temp_18
+                    end
+                    local value = ____sourceActive_19
+                    if value == lastVisible then
+                        return
+                    end
+                    lastVisible = value
+                    if value then
+                        item.frame:Show()
+                    else
+                        item.frame:Hide()
+                    end
+                end
+                local ____tree_visibility_20 = tree.visibility
+                ____tree_visibility_20[#____tree_visibility_20 + 1] = refreshVisibility
+                local function onActiveChange(____, active)
+                    sourceActive = active
+                    refreshVisibility(nil)
+                end
                 local position = item.cell.props
+                if position.alpha ~= nil then
+                    local alpha = position.alpha
+                    local previous
+                    local function refreshAlpha()
+                        local value = type(alpha) == "function" and alpha(nil) or alpha
+                        if issecretvalue(value) then
+                            return
+                        end
+                        if not __TS__NumberIsFinite(value) or value < 0 or value > 1 then
+                            error("Cell alpha must be between 0 and 1")
+                        end
+                        if value ~= previous then
+                            item.frame:SetAlpha(value)
+                        end
+                        previous = value
+                    end
+                    refreshAlpha(nil)
+                    if type(alpha) == "function" then
+                        updates[#updates + 1] = refreshAlpha
+                    end
+                end
                 local target = anchors:get(item.frame)
-                local ____opt_7 = item.placement
-                local x = ____opt_7 and ____opt_7.x or (position.mode == "absolute" and position.x or position.offset.x)
-                local ____opt_9 = item.placement
-                local y = ____opt_9 and ____opt_9.y or (position.mode == "absolute" and position.y or position.offset.y)
-                local ____temp_11
+                local ____opt_21 = item.placement
+                local x = ____opt_21 and ____opt_21.x or (position.mode == "absolute" and position.x or position.offset.x)
+                local ____opt_23 = item.placement
+                local y = ____opt_23 and ____opt_23.y or (position.mode == "absolute" and position.y or position.offset.y)
+                local ____temp_25
                 if item.frame == root then
-                    ____temp_11 = rootAnchor
+                    ____temp_25 = rootAnchor
                 else
-                    ____temp_11 = nil
+                    ____temp_25 = nil
                 end
-                local overrideAnchor = ____temp_11
+                local overrideAnchor = ____temp_25
                 local anchor = overrideAnchor or (item.placement ~= nil and "TOPLEFT" or (position.anchor or "TOPLEFT"))
                 local relativeAnchor = overrideAnchor or (item.placement ~= nil and "TOPLEFT" or (position.relativeAnchor or anchor))
                 item.frame:SetPoint(
@@ -401,48 +788,232 @@ function ____exports.mount(self, element, parent, rootAnchor)
                     x + item.margin.left,
                     -(y + item.margin.top)
                 )
+                if item.cell.kind == "secureButton" then
+                    local props = item.cell.props
+                    local ____tree_bindings_26 = tree.bindings
+                    ____tree_bindings_26[#____tree_bindings_26 + 1] = configureSecureButton(nil, item.frame, props)
+                    if props.cooldown ~= nil then
+                        local cooldown = CreateFrame("Cooldown", nil, item.frame, "CooldownFrameTemplate")
+                        local ____tree_frames_27 = tree.frames
+                        ____tree_frames_27[#____tree_frames_27 + 1] = cooldown
+                        cooldown:EnableMouse(false)
+                        cooldown:SetAllPoints(item.frame)
+                        cooldown:SetFrameLevel(item.frame:GetFrameLevel() + 2)
+                        cooldown:SetDrawSwipe(true)
+                        cooldown:SetDrawEdge(false)
+                        local ____cooldown_SetDrawBling_29 = cooldown.SetDrawBling
+                        local ____props_finishGlow_28 = props.finishGlow
+                        if ____props_finishGlow_28 == nil then
+                            ____props_finishGlow_28 = false
+                        end
+                        ____cooldown_SetDrawBling_29(cooldown, ____props_finishGlow_28)
+                        cooldown:SetHideCountdownNumbers(false)
+                        cooldown:SetSwipeColor(0, 0, 0, 0.7)
+                        cooldown:GetCountdownFontString():SetFont("Fonts\\FRIZQT__.TTF", 13, "OUTLINE")
+                        local ____tree_bindings_30 = tree.bindings
+                        ____tree_bindings_30[#____tree_bindings_30 + 1] = props.cooldown:BindCooldown(cooldown)
+                    end
+                    if props.binding ~= nil and props.showHotkey ~= false then
+                        local overlay = CreateFrame("Frame", nil, item.frame)
+                        local ____tree_frames_31 = tree.frames
+                        ____tree_frames_31[#____tree_frames_31 + 1] = overlay
+                        overlay:EnableMouse(false)
+                        overlay:SetAllPoints(item.frame)
+                        overlay:SetFrameLevel(item.frame:GetFrameLevel() + 3)
+                        local hotkey = overlay:CreateFontString(nil, "OVERLAY")
+                        hotkey:SetAllPoints(overlay)
+                        hotkey:SetFont("Fonts\\FRIZQT__.TTF", 11, "OUTLINE")
+                        hotkey:SetJustifyH("RIGHT")
+                        hotkey:SetJustifyV("TOP")
+                        hotkey:SetTextColor(1, 1, 1, 1)
+                        hotkey:SetText(props.binding)
+                    end
+                end
+                if item.cell.kind == "button" then
+                    local onClick = item.cell.props.onClick
+                    local ____self_33 = item.frame
+                    local ____self_33_SetScript_34 = ____self_33.SetScript
+                    local ____temp_32
+                    if onClick == nil then
+                        ____temp_32 = nil
+                    else
+                        ____temp_32 = function() return onClick(nil) end
+                    end
+                    ____self_33_SetScript_34(____self_33, "OnClick", ____temp_32)
+                    local ____tree_bindings_35 = tree.bindings
+                    ____tree_bindings_35[#____tree_bindings_35 + 1] = function() return item.frame:SetScript("OnClick", nil) end
+                end
+                if item.cell.kind == "label" then
+                    local props = item.cell.props
+                    local label = item.frame:CreateFontString(nil, "OVERLAY")
+                    label:SetAllPoints(item.frame)
+                    label:SetFont(props.font or "Fonts\\FRIZQT__.TTF", props.fontSize or 12, "OUTLINE")
+                    label:SetJustifyH(props.align or "LEFT")
+                    label:SetJustifyV("MIDDLE")
+                    local color = props.color
+                    label:SetTextColor(color and color.r or 1, color and color.g or 1, color and color.b or 1, color and color.a or 1)
+                    local text = props.text
+                    if type(text) == "function" then
+                        local previous
+                        updates[#updates + 1] = function()
+                            local value = text(nil)
+                            if issecretvalue(value) or value ~= previous then
+                                label:SetText(value)
+                            end
+                            if not issecretvalue(value) then
+                                previous = value
+                            end
+                        end
+                    else
+                        label:SetText(text)
+                    end
+                end
+                if item.cell.kind == "icon" then
+                    local props = item.cell.props
+                    local texture = item.frame:CreateTexture(nil, "OVERLAY")
+                    texture:SetAllPoints(item.frame)
+                    local uv = props.texCoords or ({0, 1, 0, 1})
+                    texture:SetTexCoord(uv[1], uv[2], uv[3], uv[4])
+                    texture:SetTexture(props.texture)
+                    local ____opt_44 = props.textureSource
+                    if ____opt_44 ~= nil then
+                        ____opt_44:BindTo(item.frame, texture, onActiveChange)
+                    end
+                end
                 if item.cell.kind == "progress" then
                     local props = item.cell.props
                     local bar = item.frame
-                    local ____opt_12 = props.foreground
-                    local color = ____opt_12 and ____opt_12.color or props.color
-                    local ____bar_SetStatusBarTexture_17 = bar.SetStatusBarTexture
-                    local ____resolveStatusBarTexture_16 = resolveStatusBarTexture
-                    local ____opt_14 = props.foreground
-                    ____bar_SetStatusBarTexture_17(
+                    local ____opt_46 = props.foreground
+                    local color = ____opt_46 and ____opt_46.color or props.color
+                    local ____bar_SetStatusBarTexture_51 = bar.SetStatusBarTexture
+                    local ____resolveStatusBarTexture_50 = resolveStatusBarTexture
+                    local ____opt_48 = props.foreground
+                    ____bar_SetStatusBarTexture_51(
                         bar,
-                        ____resolveStatusBarTexture_16(nil, ____opt_14 and ____opt_14.texture or props.texture or "solid")
+                        ____resolveStatusBarTexture_50(nil, ____opt_48 and ____opt_48.texture or props.texture or "solid")
                     )
                     bar:SetStatusBarColor(color and color.r or 1, color and color.g or 1, color and color.b or 1, color and color.a or 1)
                     if props.foreground ~= nil then
                         local fill = bar:GetStatusBarTexture()
-                        local ____fill_SetHorizTile_27 = fill.SetHorizTile
-                        local ____props_foreground_tileX_26 = props.foreground.tileX
-                        if ____props_foreground_tileX_26 == nil then
-                            ____props_foreground_tileX_26 = false
+                        local ____fill_SetHorizTile_61 = fill.SetHorizTile
+                        local ____props_foreground_tileX_60 = props.foreground.tileX
+                        if ____props_foreground_tileX_60 == nil then
+                            ____props_foreground_tileX_60 = false
                         end
-                        ____fill_SetHorizTile_27(fill, ____props_foreground_tileX_26)
-                        local ____fill_SetVertTile_29 = fill.SetVertTile
-                        local ____props_foreground_tileY_28 = props.foreground.tileY
-                        if ____props_foreground_tileY_28 == nil then
-                            ____props_foreground_tileY_28 = false
+                        ____fill_SetHorizTile_61(fill, ____props_foreground_tileX_60)
+                        local ____fill_SetVertTile_63 = fill.SetVertTile
+                        local ____props_foreground_tileY_62 = props.foreground.tileY
+                        if ____props_foreground_tileY_62 == nil then
+                            ____props_foreground_tileY_62 = false
                         end
-                        ____fill_SetVertTile_29(fill, ____props_foreground_tileY_28)
+                        ____fill_SetVertTile_63(fill, ____props_foreground_tileY_62)
                         fill:SetBlendMode(props.foreground.blendMode or "BLEND")
                         local uv = props.foreground.texCoords or ({0, 1, 0, 1})
                         fill:SetTexCoord(uv[1], uv[2], uv[3], uv[4])
                     end
                     bar:SetOrientation(props.orientation == "vertical" and "VERTICAL" or "HORIZONTAL")
-                    local ____bar_SetReverseFill_31 = bar.SetReverseFill
-                    local ____props_reverse_30 = props.reverse
-                    if ____props_reverse_30 == nil then
-                        ____props_reverse_30 = false
+                    local ____bar_SetReverseFill_65 = bar.SetReverseFill
+                    local ____props_reverse_64 = props.reverse
+                    if ____props_reverse_64 == nil then
+                        ____props_reverse_64 = false
                     end
-                    ____bar_SetReverseFill_31(bar, ____props_reverse_30)
+                    ____bar_SetReverseFill_65(bar, ____props_reverse_64)
                     bar:SetMinMaxValues(props.min or 0, props.max or 100)
                     local source = item.cell.source or props.source
                     if source ~= nil then
-                        source:BindTo(bar, {min = props.min, max = props.max, current = props.current or props.value})
+                        local healPredictionBar
+                        local absorbPredictionBar
+                        if __TS__InstanceOf(source, HP) then
+                            local function overlay(____, style, heal)
+                                bar:SetClipsChildren(true)
+                                local layer = CreateFrame("StatusBar", nil, bar)
+                                local ____tree_frames_66 = tree.frames
+                                ____tree_frames_66[#____tree_frames_66 + 1] = layer
+                                layer:EnableMouse(false)
+                                layer:SetFrameLevel(bar:GetFrameLevel())
+                                layer:SetSize(item.width, item.height)
+                                layer:SetStatusBarTexture(resolveStatusBarTexture(nil, style.texture or "solid"))
+                                local tint = style.color
+                                layer:SetStatusBarColor(tint.r, tint.g, tint.b, tint.a or 0.5)
+                                local texture = layer:GetStatusBarTexture()
+                                texture:SetBlendMode(style.blendMode or "BLEND")
+                                local ____texture_SetHorizTile_68 = texture.SetHorizTile
+                                local ____style_tileX_67 = style.tileX
+                                if ____style_tileX_67 == nil then
+                                    ____style_tileX_67 = false
+                                end
+                                ____texture_SetHorizTile_68(texture, ____style_tileX_67)
+                                local ____texture_SetVertTile_70 = texture.SetVertTile
+                                local ____style_tileY_69 = style.tileY
+                                if ____style_tileY_69 == nil then
+                                    ____style_tileY_69 = false
+                                end
+                                ____texture_SetVertTile_70(texture, ____style_tileY_69)
+                                local uv = style.texCoords or ({0, 1, 0, 1})
+                                texture:SetTexCoord(uv[1], uv[2], uv[3], uv[4])
+                                local vertical = props.orientation == "vertical"
+                                local ____props_reverse_71 = props.reverse
+                                if ____props_reverse_71 == nil then
+                                    ____props_reverse_71 = false
+                                end
+                                local reverse = ____props_reverse_71
+                                layer:SetOrientation(vertical and "VERTICAL" or "HORIZONTAL")
+                                local ____layer_SetReverseFill_73 = layer.SetReverseFill
+                                local ____heal_72
+                                if heal then
+                                    ____heal_72 = reverse
+                                else
+                                    ____heal_72 = not reverse
+                                end
+                                ____layer_SetReverseFill_73(layer, ____heal_72)
+                                if heal then
+                                    local point = vertical and (reverse and "TOPLEFT" or "BOTTOMLEFT") or (reverse and "TOPRIGHT" or "TOPLEFT")
+                                    local relative = vertical and (reverse and "BOTTOMLEFT" or "TOPLEFT") or (reverse and "TOPLEFT" or "TOPRIGHT")
+                                    layer:SetPoint(
+                                        point,
+                                        bar:GetStatusBarTexture(),
+                                        relative,
+                                        0,
+                                        0
+                                    )
+                                else
+                                    layer:SetAllPoints(bar)
+                                end
+                                return layer
+                            end
+                            local ____opt_74 = source.HealPrediction
+                            if (____opt_74 and ____opt_74.IsAvailable) == true and props.healPrediction ~= false then
+                                local ____props_healPrediction_78 = props.healPrediction
+                                local ____opt_76 = props.healPrediction
+                                healPredictionBar = overlay(
+                                    nil,
+                                    __TS__ObjectAssign({}, ____props_healPrediction_78, {color = ____opt_76 and ____opt_76.color or ({r = 0.4, g = 1, b = 0.5, a = 0.5})}),
+                                    true
+                                )
+                            end
+                            local ____opt_79 = source.AbsorbPrediction
+                            if (____opt_79 and ____opt_79.IsAvailable) == true and props.absorbPrediction ~= false then
+                                local ____props_absorbPrediction_83 = props.absorbPrediction
+                                local ____opt_81 = props.absorbPrediction
+                                absorbPredictionBar = overlay(
+                                    nil,
+                                    __TS__ObjectAssign({}, ____props_absorbPrediction_83, {color = ____opt_81 and ____opt_81.color or ({r = 0.8, g = 0.9, b = 1, a = 0.55})}),
+                                    false
+                                )
+                            end
+                        end
+                        local dispose = source:BindTo(bar, {
+                            min = props.min,
+                            max = props.max,
+                            current = props.current or props.value,
+                            onActiveChange = onActiveChange,
+                            healPredictionBar = healPredictionBar,
+                            absorbPredictionBar = absorbPredictionBar
+                        })
+                        if dispose ~= nil then
+                            local ____tree_bindings_84 = tree.bindings
+                            ____tree_bindings_84[#____tree_bindings_84 + 1] = dispose
+                        end
                     else
                         bar:SetValue(props.current or props.value or 0)
                     end
@@ -451,30 +1022,64 @@ function ____exports.mount(self, element, parent, rootAnchor)
                 local function attach(self, decoration)
                     if decoration ~= nil then
                         decoration:mount(item.frame, item.width, item.height)
-                        local ____tree_decorations_32 = tree.decorations
-                        ____tree_decorations_32[#____tree_decorations_32 + 1] = decoration
+                        local ____tree_decorations_85 = tree.decorations
+                        ____tree_decorations_85[#____tree_decorations_85 + 1] = decoration
                     end
                 end
                 local progress = item.cell.kind == "progress" and item.cell.props or nil
-                local ____attach_40 = attach
-                local ____temp_39
+                local ____attach_93 = attach
+                local ____temp_92
                 if (progress and progress.background) == false then
-                    ____temp_39 = nil
+                    ____temp_92 = nil
                 else
-                    ____temp_39 = (progress and progress.background) ~= nil and __TS__New(Background, progress.background) or decorations and decorations.background
+                    ____temp_92 = (progress and progress.background) ~= nil and __TS__New(Background, progress.background) or decorations and decorations.background
                 end
-                ____attach_40(nil, ____temp_39)
-                local ____attach_48 = attach
-                local ____temp_47
+                ____attach_93(nil, ____temp_92)
+                local ____attach_101 = attach
+                local ____temp_100
                 if (progress and progress.backdrop) == false then
-                    ____temp_47 = nil
+                    ____temp_100 = nil
                 else
-                    ____temp_47 = (progress and progress.backdrop) ~= nil and __TS__New(Border, progress.backdrop) or decorations and decorations.border
+                    ____temp_100 = (progress and progress.backdrop) ~= nil and __TS__New(Border, progress.backdrop) or decorations and decorations.border
                 end
-                ____attach_48(nil, ____temp_47)
+                ____attach_101(nil, ____temp_100)
                 attach(nil, decorations and decorations.glow)
                 mountedFrames:set(item.cell.props, item.frame)
-                item.frame:Show()
+                refreshVisibility(nil)
+                local ____this_105
+                ____this_105 = item.cell.props
+                local ____opt_104 = ____this_105.onMount
+                local cleanup = ____opt_104 and ____opt_104(____this_105, item.frame)
+                if cleanup ~= nil then
+                    local ____tree_bindings_106 = tree.bindings
+                    ____tree_bindings_106[#____tree_bindings_106 + 1] = cleanup
+                end
+                if visible ~= nil then
+                    updates[#updates + 1] = refreshVisibility
+                end
+            end
+            if #updates > 0 then
+                local driver = CreateFrame("Frame", nil, parent)
+                local ____tree_frames_107 = tree.frames
+                ____tree_frames_107[#____tree_frames_107 + 1] = driver
+                local elapsed = 0
+                driver:SetScript(
+                    "OnUpdate",
+                    function(_frame, delta)
+                        elapsed = elapsed + delta
+                        if elapsed < 0.05 then
+                            return
+                        end
+                        elapsed = 0
+                        for ____, update in ipairs(updates) do
+                            update(nil)
+                        end
+                    end
+                )
+                for ____, update in ipairs(updates) do
+                    update(nil)
+                end
+                driver:Show()
             end
         end)
         if not ____try then