--[[
| This file was obtained through the combined efforts
| of Madbluntz & Plymouth Antiquarian Society.
|
| Credits: lifestorm, Gregory Wayne Rossel JR.,
| 	Maloy, DrPepper10 @ RIP, Atle!
|
| Visit for more: https://plymouth.thetwilightzone.ru/
--]]

-- Removed in GM13, still need it
local PANEL = {}
AccessorFunc( PANEL, "m_bBorder", "Border" )
AccessorFunc( PANEL, "m_Color", "Color" )

function PANEL:Init()
    self:SetBorder( true )
    self:SetColor( Color( 0, 255, 0, 255 ) )
end

function PANEL:Paint()
    surface.SetDrawColor( self.m_Color.r, self.m_Color.g, self.m_Color.b, 255 )
    self:DrawFilledRect()
end

function PANEL:PaintOver()
    if not self.m_bBorder then return end

    surface.SetDrawColor( 0, 0, 0, 255 )
    self:DrawOutlinedRect()
end
derma.DefineControl( "ColoredBox", "", PANEL, "DPanel" )
