Drag GUI

-- Nova GUI API + lightweight edition + detailed errors. By alakazard12.
-- Don't use this, it's for private use >_>.

local LGW, LGH = term.getSize()

local VColors = {}
local VClasses = {
    ["TextButton"] = true;
    ["TextLabel"] = true;
    ["TextBox"] = true;
    ["ImageButton"] = true;
    ["ImageLabel"] = true;
}

for _,Color in pairs(colors) do
    if type(Color) == "number" then
        VColors[Color] = true
    end
end

local function Round(Number)
    local Hag = Number - math.floor(Number)
    if Hag > 0.5 then
        return math.ceil(Number)
    else
        return math.floor(Number)
    end
end

local Check
function Check(Object, BG, PX, PY)
    if Object.Visible == true then
        if Object.Class == "TextButton" or Object.Class == "TextBox" or Object.Class == "TextLabel" then
            PX = PX + Object.Position[1] - 1
            PY = PY + Object.Position[2] - 1
            if Object.ShowBackground == true then
                BG = Object.BackgroundColor
            end
            if Object.Class == "TextBox" and Object.Focused == true then
                BG = Object.ActiveTextColor
            end
            term.setBackgroundColor(BG)
            for Y = 1, Object.Size[2] do
                term.setCursorPos(PX, PY + Y - 1)
                term.write(string.rep(" ", Object.Size[1]))
            end

            if Object.ShowText == true then
                term.setTextColor(Object.TextColor)

                local Text = Object.Text
                if Object.TextChar then
                    Text = string.rep(Object.TextChar, #Text)
                end

                if Object.Focused == true then
                    Text = Text .. " "
                end

                if Object.MultiLine == true then
                    local LastP = 1
                    local LastS
                    local Lines = {}
                    local DidBreak = false
                    local RPassed = false
                    local ROnLine = false
                    local ROnNum
                    local RLine
                    for On = 1, #Text do
                        if Text:sub(On, On) == " " then
                            LastS = On
                        end

                        if On - LastP + 2 > Object.Size[1] then
                            if #Lines == Object.Size[2] then
                                break
                            end

                            if LastS then
                                table.insert(Lines, Text:sub(LastP, LastS))
                                LastP = LastS + 1
                            else
                                table.insert(Lines, Text:sub(LastP, On))
                                LastP = On + 1
                            end

                            LastS = nil

                            if #Lines == Object.Size[2] then
                                if Object.Focused == false then
                                    DidBreak = true
                                    break
                                else
                                    table.remove(Lines, 1)
                                end
                            end
                        end
                    end

                    if DidBreak == false then
                        table.insert(Lines, Text:sub(LastP))
                    elseif Object.Focused == true then
                        table.remove(Lines, 1)
                        table.insert(Lines, Text:sub(LastP))
                    end

                    local TextCount = 0

                    for _,Line in pairs(Lines) do
                        local XA = 0
                        local YA = 0

                        if Object.TextXAlignment == 0 then
                            XA = PX
                        elseif Object.TextXAlignment == 1 then
                            XA = PX + Round((Object.Size[1] - #Line) / 2)
                        else
                            XA = PX + Round(Object.Size[1] - #Line)
                        end

                        if Object.TextYAlignment == 0 then
                            YA = PY + _ - 1
                        elseif Object.TextYAlignment == 1 then
                            YA = PY + Round((Object.Size[2] - #Lines) / 2) + _ - 1
                        else
                            YA = PY + Round(Object.Size[2] - #Lines) + _ - 1
                        end

                        term.setCursorPos(XA, YA)
                        term.write(Line)
                    end
                else
                    if #Text > Object.Size[1] then
                        if Object.Focused == false then
                            Text = string.sub(Text, 1, Object.Size[1])
                        -- elseif Object.RTextPos then
                        -- Text = string.sub(Text, Object.RTextPos, Object.RTextPos + Object.Size[1] - 1)
                        else
                            Text = string.sub(Text, #Text - Object.Size[1] + 1, #Text)
                        end
                    end

                    local XA = 0
                    local YA = 0

                    if Object.TextXAlignment == 0 then
                        XA = PX
                    elseif Object.TextXAlignment == 1 then
                        XA = PX + Round((Object.Size[1] - #Text) / 2)
                    else
                        XA = PX + Round(Object.Size[1] - #Text)
                    end

                    if Object.TextYAlignment == 0 then
                        YA = PY
                    elseif Object.TextYAlignment == 1 then
                        YA = PY + Round((Object.Size[2] - 1) / 2)
                    else
                        YA = PY + Round(Object.Size[2] - 1)
                    end

                    term.setCursorPos(XA, YA)
                    term.write(Text)
                end
                -- if Object.RTextPos == nil then
                    Object.TextPos = {term.getCursorPos()}
                    Object.TextPos[1] = Object.TextPos[1] - 1
                -- end
            end

            for _,Obj in pairs(Object.Children) do
                Check(Obj, BG, PX, PY)
            end
        end
    end
end

local function SortListen(Tbl)
    local Clone = {}
    for _,Item in pairs(Tbl) do
        Clone[_] = Item
    end
    table.sort(Clone, function(A, B)
        return A.ZIndex > B.ZIndex
    end)
    return Clone
end

local function NewClass(Par, Class, Main)
    if type(Class) ~= "string" then
        error("bad argument #1: string expected, got " .. type(Class), 2)
    end
    if not VClasses[Class] then
        error("Invalid class name.", 2)
    end

    local PublicTable = {}
    local LocalTable = {}

    function PublicTable:Destroy()
        for _,Item in pairs(PublicTable) do
            PublicTable[_] = nil
        end
        for _,Item in pairs(LocalTable) do
            LocalTable[_] = nil
        end

        for _,Object in pairs(Par.Children) do
            if PublicTable == Object then
                table.remove(Par.Children, _)
                break
            end
        end
        LocalTable = nil
        PublicTable = nil
    end

    LocalTable.Parent = Par
    LocalTable.Class = Class

    if Class == "TextButton" or Class == "TextLabel" or Class == "TextBox" then
        LocalTable.Size = {2, 2}
        LocalTable.Position = {1, 1}
        LocalTable.RawText = ""
        LocalTable.Text = ""
        LocalTable.BackgroundColor = colors.cyan
        LocalTable.TextColor = colors.white
        LocalTable.Visible = true
        LocalTable.Active = true
        LocalTable.Children = {}
        LocalTable.ZIndex = 0
        LocalTable.ShowBackground = true
        LocalTable.ShowText = true
        LocalTable.TextXAlignment = 1
        LocalTable.TextYAlignment = 1
        LocalTable.MultiLine = false

        if Class == "TextBox" then
            LocalTable.ActiveTextColor = colors.blue
            LocalTable.Overlap = false
            LocalTable.Focused = false
            LocalTable.ClearTextOnFocus = false
            LocalTable.RTextPos = 8
        end

        function PublicTable:TextXAlignment(Num)
            if type(Num) == "string" then
                if Num:lower() == "left" then
                    Num = 0
                elseif Num:lower() == "center" then
                    Num = 1
                elseif Num:lower() == "right" then
                    Num = 2
                else
                    error("bad argument #1: '" .. Num .. "' is not a valid string", 2)
                end
            end

            if type(Num) ~= "number" then
                error("bad argument #1: number expected, got " .. type(X), 2)
            end
            LocalTable.TextXAlignment = Num
        end

        function PublicTable:GetTextXAlignment()
            return LocalTable.TextXAlignment
        end

        function PublicTable:TextYAlignment(Num)
            if type(Num) == "string" then
                if Num:lower() == "top" then
                    Num = 0
                elseif Num:lower() == "center" then
                    Num = 1
                elseif Num:lower() == "bottom" then
                    Num = 2
                else
                    error("bad argument #1: '" .. Num .. "' is not a valid string", 2)
                end
            end

            if type(Num) ~= "number" then
                error("bad argument #1: number expected, got " .. type(X), 2)
            end
            LocalTable.TextYAlignment = Num
        end

        function PublicTable:GetTextYAlignment()
            return LocalTable.TextYAlignment
        end

        function PublicTable:Size(X, Y)
            if type(X) ~= "number" then
                error("bad argument #1: number expected, got " .. type(X), 2)
            end
            if type(Y) ~= "number" then
                error("bad argument #2: number expected, got " .. type(Y), 2)
            end

            LocalTable.Size = {X, Y}
        end

        function PublicTable:GetSize()
            return unpack(LocalTable.Size)
        end

        function PublicTable:ShowBackground(Bool)
            if type(Bool) ~= "boolean" then
                error("bad argument #1: boolean expected, got " .. type(Bool), 2)
            end
            LocalTable.ShowBackground = Bool
        end

        function PublicTable:GetShowBackground()
            return LocalTable.ShowBackground
        end

        function PublicTable:ShowText(Bool)
            if type(Bool) ~= "boolean" then
                error("bad argument #1: boolean expected, got " .. type(Bool), 2)
            end
            LocalTable.ShowText = Bool
        end

        function PublicTable:GetShowText()
            return LocalTable.ShowText
        end

        function PublicTable:MultiLine(Bool)
            if type(Bool) ~= "boolean" then
                error("bad argument #1: boolean expected, got " .. type(Bool), 2)
            end
            LocalTable.MultiLine = Bool
        end

        function PublicTable:GetMultiLine()
            return LocalTable.MultiLine
        end

        function PublicTable:ZIndex(Number)
            if type(Number) ~= "number" then
                error("bad argument #1: number expected, got " .. type(Number), 2)
            end
            LocalTable.ZIndex = Number
            table.sort(Par.Children, function(A, B)
                return A.ZIndex < B.ZIndex
            end)
        end

        function PublicTable:GetZIndex()
            return LocalTable.ZIndex
        end

        function PublicTable:Position(X, Y)
            if type(X) ~= "number" then
                error("bad argument #1: number expected, got " .. type(X), 2)
            end
            if type(Y) ~= "number" then
                error("bad argument #2: number expected, got " .. type(Y), 2)
            end
            LocalTable.Position = {X, Y}
        end

        function PublicTable:GetPosition()
            return unpack(LocalTable.Position)
        end

        function PublicTable:Visible(Bool)
            if type(Bool) ~= "boolean" then
                error("bad argument #1: boolean expected, got " .. type(Bool), 2)
            end
            LocalTable.Visible = Bool
        end

        function PublicTable:GetVisible()
            return LocalTable.Visible
        end

        function PublicTable:Active(Bool)
            if type(Bool) ~= "boolean" then
                error("bad argument #1: boolean expected, got " .. type(Bool), 2)
            end
            LocalTable.Active = Bool
        end

        function PublicTable:GetActive()
            return LocalTable.Active
        end

        function PublicTable:Text(Text)
            if Text == nil then
                Text = ""
            end
            if type(Text) ~= "string" then
                error("bad argument #1: string expected, got " .. type(Text), 2)
            end
            LocalTable.Text = Text
        end

        function PublicTable:GetText()
            return LocalTable.Text
        end

        function PublicTable:BackgroundColor(Color)
            if type(Color) ~= "number" then
                error("bad argument #1: number expected, got " .. type(Color), 2)
            end
            if VColors[Color] ~= true then
                error("Invalid color.", 2)
            end
            LocalTable.BackgroundColor = Color
        end

        function PublicTable:GetBackgroundColor()
            return LocalTable.BackgroundColor
        end

        function PublicTable:TextColor(Color)
            if type(Color) ~= "number" then
                error("bad argument #1: number expected, got " .. type(Color), 2)
            end
            if VColors[Color] ~= true then
                error("Invalid color.", 2)
            end
            LocalTable.TextColor = Color
        end

        function PublicTable:GetTextColor()
            return LocalTable.TextColor
        end

        if Class == "TextButton" then
            function PublicTable:Button1Click(Function)
                if Function == nil then
                    LocalTable.Button1Click = nil
                else
                    if type(Function) ~= "function" then
                        error("bad argument #1: function expected, got " .. type(Function), 2)
                    end
                    LocalTable.Button1Click = Function
                end
            end

            function PublicTable:GetButton1Click()
                return LocalTable.Button1Click
            end

            function PublicTable:MouseScroll(Function)
                if Function == nil then
                    LocalTable.MouseScroll = nil
                else
                    if type(Function) ~= "function" then
                        error("bad argument #1: function expected, got " .. type(Function), 2)
                    end
                    LocalTable.MouseScroll = Function
                end
            end

            function PublicTable:GetMouseScroll()
                return LocalTable.MouseScroll
            end

            function PublicTable:MouseDrag1(Function)
                if Function == nil then
                    LocalTable.MouseDrag1 = nil
                else
                    if type(Function) ~= "function" then
                        error("bad argument #1: function expected, got " .. type(Function), 2)
                    end
                    LocalTable.MouseDrag1 = Function
                end
            end

            function PublicTable:GetMouseDrag1()
                return LocalTable.MouseDrag1
            end

            function PublicTable:MouseDrag2(Function)
                if Function == nil then
                    LocalTable.MouseDrag2 = nil
                else
                    if type(Function) ~= "function" then
                        error("bad argument #1: function expected, got " .. type(Function), 2)
                    end
                    LocalTable.MouseDrag2 = Function
                end
            end

            function PublicTable:GetMouseDrag2()
                return LocalTable.MouseDrag2
            end

            function PublicTable:MouseDrag3(Function)
                if Function == nil then
                    LocalTable.MouseDrag3 = nil
                else
                    if type(Function) ~= "function" then
                        error("bad argument #1: function expected, got " .. type(Function), 2)
                    end
                    LocalTable.MouseDrag3 = Function
                end
            end

            function PublicTable:GetMouseDrag3()
                return LocalTable.MouseDrag3
            end

            function PublicTable:Button2Click(Function)
                if Function == nil then
                    LocalTable.Button2Click = nil
                else
                    if type(Function) ~= "function" then
                        error("bad argument #1: function expected, got " .. type(Function), 2)
                    end
                    LocalTable.Button2Click = Function
                end
            end

            function PublicTable:GetButton2Click()
                return LocalTable.Button2Click
            end

            function PublicTable:Button3Click(Function)
                if Function == nil then
                    LocalTable.Button3Click = nil
                else
                    if type(Function) ~= "function" then
                        error("bad argument #1: function expected, got " .. type(Function), 2)
                    end
                    LocalTable.Button3Click = Function
                end
            end

            function PublicTable:GetButton3Click()
                return LocalTable.Button3Click
            end
        elseif Class == "TextBox" then
            function PublicTable:EnterPress(Function)
                if Function == nil then
                    LocalTable.EnterPress = nil
                else
                    if type(Function) ~= "function" then
                        error("bad argument #1: function expected, got " .. type(Function), 2)
                    end
                    LocalTable.EnterPress = Function
                end
            end

            function PublicTable:GetEnterPress()
                return LocalTable.EnterPress
            end

            function PublicTable:Overlap(Bool)
                if type(Bool) ~= "boolean" then
                    error("bad argument #1: boolean expected, got " .. type(Bool), 2)
                end
                LocalTable.Overlap = Bool
            end

            function PublicTable:GetOverlap()
                return LocalTable.Overlap
            end

            function PublicTable:ClearTextOnFocus(Bool)
                if type(Bool) ~= "boolean" then
                    error("bad argument #1: boolean expected, got " .. type(Bool), 2)
                end
                LocalTable.ClearTextOnFocus = Bool
            end

            function PublicTable:GetClearTextOnFocus()
                return LocalTable.ClearTextOnFocus
            end

            function PublicTable:Focus()
                Main.MakeFocus = LocalTable
                os.queueEvent("")
            end

            function PublicTable:StopFocus()
                Main.StopFocus = true
                os.queueEvent("")
            end

            function PublicTable:TextChar(Char)
                if Char == nil then
                    LocalTable.TextChar = nil
                else
                    if type(Char) ~= "string" then
                        error("bad argument #1: string expected, got " .. type(Char), 2)
                    end
                    LocalTable.TextChar = Char
                end
            end

            function PublicTable:GetTextChar()
                return LocalTable.TextChar
            end
        end

        function PublicTable:New(Class)
            return NewClass(LocalTable, Class, Main)
        end

        function PublicTable:Draw()
            local BG = Main.BackgroundColor
            local PX, PY = 1, 1

            local On = LocalTable.Parent
            while On ~= Main do
                PX = PX + On.Position[1]
                PY = PY + On.Position[2]

                if On.ShowBackground then
                    BG = On.BackgroundColor
                    break
                end
                On = On.Parent
            end

            Check(LocalTable, BG, PX, PY)
        end
    end

    LocalTable.Pub = PublicTable

    table.insert(Par.Children, LocalTable)
    return PublicTable
end

local function NewUI()
    local LocalTable = {}
    local PublicTable = {}

    LocalTable.BackgroundColor = colors.red
    LocalTable.Visible = true
    LocalTable.Active = true
    LocalTable.Children = {}
    LocalTable.Listening = false

    function PublicTable:BackgroundColor(Color)
        if type(Color) ~= "number" then
            error("bad argument #1: number expected, got " .. type(Color), 2)
        end
        if not VColors[Color] then
            error("Invalid color.", 2)
        end
        LocalTable.BackgroundColor = Color
    end

    function PublicTable:New(Class)
        return NewClass(LocalTable, Class, LocalTable)
    end

    function PublicTable:Output(Function)
        if type(Function) ~= "function" then
            error("bad argument #1: function expected, got " .. type(Function), 2)
        end

        LocalTable.Output = Function
    end

    function PublicTable:Listen()
        LocalTable.Listening = true
        local ActiveBox
        local LastClick1
        local LastClick2
        local LastClick3

        while LocalTable.Listening == true do
            local Event, P1, P2, P3, P4, P5 = os.pullEvent()
            if LocalTable.Listening == false then
                break
            end

            if LocalTable.MakeFocus then
                if ActiveBox then
                    ActiveBox.Focused = false
                    ActiveBox.StopFocus = nil
                    term.setCursorBlink(false)
                    if ActiveBox.Overlap == true then
                        ActiveBox.Pub:Draw()
                    else
                        PublicTable:Draw()
                    end
                end
                ActiveBox = LocalTable.MakeFocus
                LocalTable.MakeFocus = nil
                ActiveBox.Focused = true
                if ActiveBox.Overlap == true then
                    ActiveBox.Pub:Draw()
                else
                    PublicTable:Draw()
                end

                term.setCursorBlink(true)
                term.setCursorPos(unpack(ActiveBox.TextPos))
            end

            if ActiveBox and ActiveBox.StopFocus then
                ActiveBox.Focused = false
                ActiveBox.StopFocus = nil
                term.setCursorBlink(false)
                if ActiveBox.Overlap == true then
                    ActiveBox.Pub:Draw()
                else
                    PublicTable:Draw()
                end
                if ActiveBox.EnterPress then
                    ActiveBox.EnterPress()
                end
            end

            if LocalTable.Output then
                LocalTable.Output(Event, P1, P2, P3, P4, P5)
            end

            if Event == "char" then
                if ActiveBox then
                    ActiveBox.Text = ActiveBox.Text .. P1
                    if ActiveBox.Overlap == true then
                        ActiveBox.Pub:Draw()
                    else
                        PublicTable:Draw()
                    end

                    term.setCursorPos(unpack(ActiveBox.TextPos))
                end
            elseif Event == "key" then
                if ActiveBox then
                    if P1 == 14 then
                        if #ActiveBox.Text > 0 then
                            ActiveBox.Text = string.sub(ActiveBox.Text, 1, #ActiveBox.Text - 1)
                            if ActiveBox.Overlap == true then
                                ActiveBox.Pub:Draw()
                            else
                                PublicTable:Draw()
                            end

                            term.setCursorPos(unpack(ActiveBox.TextPos))
                        end
                    elseif P1 == 28 then
                        ActiveBox.Focused = false
                        term.setCursorBlink(false)

                        if ActiveBox.Overlap == true then
                            ActiveBox.Pub:Draw()
                        else
                            PublicTable:Draw()
                        end

                        if ActiveBox.EnterPress then
                            ActiveBox.EnterPress()
                        end
                    end
                end
            elseif Event == "mouse_scroll" then
                local PStop = false
                local Check
                function Check(Object, Par, PX, PY)
                    if Object.Active == true then
                        if PStop == true then return end
                        if Object.Class == "TextButton" then
                            if P2 >= Object.Position[1] + PX - 1 and P2 <= Object.Position[1] + Object.Size[1] + PX - 2 and P3 >= Object.Position[2] + PY - 1 and P3 <= Object.Position[2] + Object.Size[2] + PY - 2 then
                                if Object.MouseScroll then
                                    Object.MouseScroll(P1)
                                end

                                PStop = true
                            end
                        end

                        for _,Object in pairs(SortListen(Object.Children)) do
                            Check(Object, Object, PX + Object.Position[1] - 1, PY + Object.Position[2] - 1)
                        end
                    end
                end

                for _,Object in pairs(SortListen(LocalTable.Children))  do
                    Check(Object, LocalTable, 1, 1)
                end
            elseif Event == "mouse_drag" then
                if P1 == 1 and LastClick1 then
                    if LastClick1.MouseDrag1 then
                        LastClick1.MouseDrag1(P2, P3)
                    end
                elseif P1 == 2 and LastClick2 then
                    if LastClick2.MouseDrag2 then
                        LastClick2.MouseDrag2(P2, P3)
                    end
                elseif P1 == 3 and LastClick3 then
                    if LastClick3.MouseDrag3 then
                        LastClick3.MouseDrag3(P2, P3)
                    end
                end
            elseif Event == "mouse_click" then
                LastClick1 = nil
                LastClick2 = nil
                LastClick3 = nil
                local PStop = false
                local StopFocus = true
                local Check
                function Check(Object, Par, PX, PY)
                    if Object.Active == true then
                        if PStop == true then return end
                        if Object.Class == "TextButton" or Object.Class == "TextBox" then
                            if P2 >= Object.Position[1] + PX - 1 and P2 <= Object.Position[1] + Object.Size[1] + PX - 2 and P3 >= Object.Position[2] + PY - 1 and P3 <= Object.Position[2] + Object.Size[2] + PY - 2 then
                                if ActiveBox and Object ~= ActiveBox then
                                    ActiveBox.Focused = false
                                    ActiveBox.StopFocus = nil
                                    term.setCursorBlink(false)
                                    if ActiveBox.Overlap == true then
                                        ActiveBox.Pub:Draw()
                                    else
                                        PublicTable:Draw()
                                    end

                                    if ActiveBox.EnterPress then
                                        ActiveBox.EnterPress()
                                    end
                                end
                                if P1 == 1 then
                                    LastClick1 = Object
                                    if Object.Class == "TextButton" and Object.Button1Click then
                                        Object.Button1Click(P2, P3)
                                    elseif Object.Class == "TextBox" then
                                        ActiveBox = Object
                                        Object.Focused = true

                                        if Object.ClearTextOnFocus == true then
                                            Object.Text = ""
                                        end

                                        Object.RawText = ""
                                        Object.RTextPos = 6

                                        if Object.Overlap == true then
                                            Object.Pub:Draw()
                                        else
                                            PublicTable:Draw()
                                        end
                                        term.setCursorBlink(true)
                                        term.setCursorPos(unpack(Object.TextPos))
                                    end
                                elseif P1 == 2 then
                                    LastClick2 = Object
                                    if Object.Class == "TextButton" and Object.Button2Click then
                                        Object.Button2Click(P2, P3)
                                    end
                                elseif P1 == 3 then
                                    LastClick3 = Object
                                    if Object.Class == "TextButton" and Object.Button3Click then
                                        Object.Button3Click(P2, P3)
                                    end
                                end

                                PStop = true
                            end
                        end

                        for _,Object2 in pairs(SortListen(Object.Children)) do
                            Check(Object2, Object, PX + Object.Position[1] - 1, PY + Object.Position[2] - 1)
                        end
                    end
                end

                for _,Object in pairs(SortListen(LocalTable.Children))  do
                    Check(Object, LocalTable, 1, 1)
                end
            end
        end
    end

    function PublicTable:StopListen()
        LocalTable.Listening = false
    end

    function PublicTable:Draw()
        term.setBackgroundColor(LocalTable.BackgroundColor)
        term.clear()

        for _,Item in ipairs(LocalTable.Children) do
            Check(Item, LocalTable.BackgroundColor, 1, 1)
        end
    end
    return PublicTable
end

-- End of Nova GUI API

local TestUI = NewUI()

local Win = TestUI:New("TextLabel")
Win:Text("")
Win:Size(10, 7)
Win:BackgroundColor(colors.blue)

local Drag = Win:New("TextButton")
Drag:Text("Drag")
Drag:Size(10, 1)
Drag:BackgroundColor(colors.purple)

local Re = Win:New("TextButton")
Re:Text("%")
Re:Size(1, 1)
Re:Position(10, 7)
Re:ShowBackground(false)

local Close = Win:New("TextButton")
Close:Text("Close")
Close:BackgroundColor(colors.blue)
Close:Position(1, 2)
Close:Size(10, 1)

local TB1 = Win:New("TextBox")
TB1:Text("TB1")
TB1:BackgroundColor(colors.black)
TB1:Position(1, 3)
TB1:Size(10, 1)

local TB2 = Win:New("TextBox")
TB2:Text("TB2")
TB2:BackgroundColor(colors.lime)
TB2:Position(1, 4)
TB2:Size(10, 1)

local PX, PY = 0, 0

Drag:Button1Click(function(X, Y)
    local WX, WY = Win:GetPosition()
    PX, PY = X - WX, Y - WY
end)

Close:Button1Click(function(X, Y)
    TestUI:StopListen()
end)

Drag:MouseDrag1(function(X, Y)
    Win:Position(X - PX, Y - PY)
    TestUI:Draw()
end)

Re:MouseDrag1(function(X, Y)
    local WinPosition = {Win:GetPosition()}
    local WinSize = {Win:GetSize()}
    if X < WinPosition[1] + 4 then
        X = WinPosition[1] + 4
    end
    if Y < WinPosition[2] + 4 then
        Y = WinPosition[2] + 4
    end

    Win:Size(X - WinPosition[1] + 1, Y - WinPosition[2] + 1)
    Re:Position(Win:GetSize())
    Drag:Size(X - WinPosition[1] + 1, 1)
    Close:Size(X - WinPosition[1] + 1, 1)
    TB1:Size(X - WinPosition[1] + 1, 1)
    TB2:Size(X - WinPosition[1] + 1, 1)
    TestUI:Draw()
end)

-- But:Draw()
TestUI:Draw()
TestUI:Listen()