GUI.lua

--[[
AdiDebug - Adirelle's debug self.
Copyright 2010 Adirelle (adirelle@tagada-team.net)
All rights reserved.
--]]

local addonName = ...
local AdiDebugGUI = CreateFrame("Frame", "AdiDebugGUI", UIParent)
AdiDebugGUI:Hide()

local AdiDebug = AdiDebug

local ALPHA_DELAY = 0.25

-- ----------------------------------------------------------------------------
-- Scroll bar and message handling
-- ----------------------------------------------------------------------------

function AdiDebugGUI:UpdateScrollBar()
	if self.safetyLock then return end
	local numMessages, displayed = self.Messages:GetNumMessages(), self.Messages:GetNumVisibleLines()
	local newMax = max(0, numMessages - displayed)
	local scrollBar = self.ScrollBar
	if newMax > 0 then
		self.safetyLock = true
		if newMax ~= select(2, scrollBar:GetMinMaxValues()) then
			scrollBar:SetMinMaxValues(0, newMax)
		end
		local offset = max(0, newMax - self.Messages:GetScrollOffset())
		if offset ~=scrollBar:GetValue() then
			scrollBar:SetValue(offset)
		end
		self.safetyLock = false
		if not scrollBar:IsShown() then
			scrollBar:Show()
		end
	elseif scrollBar:IsShown() then
		scrollBar:Hide()
	end
end

local id = 0
local categoryIds = setmetatable({}, {__index = function(t,k)
	id = id + 1
	t[k] = id
	return id
end})

function AdiDebugGUI:GetCategoryId(streamId, category)
	return categoryIds[strjoin('/', streamId, category)]
end

function AdiDebugGUI:AddMessage(category, timestamp, text)
	if not self.db.profile.categories[self.currentStreamId][category] then
		return
	elseif self.searchText ~= nil and not strmatch(text, self.searchText) then
		return
	end
	if timestamp ~= self.currentTimestamp then
		self.Messages:AddMessage(strjoin("", "----- ", date("%X", timestamp), strsub(format("%.3f", timestamp % 1), 2)), 0.6, 0.6, 0.6)
		self.currentTimestamp = timestamp
	end
	local r, g, b = unpack(self.db.profile.categoryColors[self.currentStreamId][category])
	self.Messages:AddMessage(text, r, g, b, self:GetCategoryId(self.currentStreamId, category))
end

function AdiDebugGUI:RefreshMessages()
	self.Messages:Clear()
	self.currentTimestamp = nil
	if self.currentStreamId then
		for i, category, now, text in AdiDebug:IterateMessages(self.currentStreamId) do
			self:AddMessage(category, now, text)
		end
	end
	self:UpdateScrollBar()
end

function AdiDebugGUI:SelectStream(streamId)
	if not AdiDebug:HasStream(streamId) then return end
	self.db.profile.streamId = streamId
	self.Selector.Text:SetText(streamId or "")
	if streamId == self.currentStreamId then return end
	self.currentStreamId = streamId
	self:RefreshMessages()
	return true
end

-- ----------------------------------------------------------------------------
-- Selector menu handling
-- ----------------------------------------------------------------------------

local function CategoryEntry_IsChecked(button)
	return AdiDebugGUI.db.profile.categories[button.arg1][button.value]
end

local function CategoryEntry_OnClick(button, streamId, _, checked)
	AdiDebugGUI.db.profile.categories[streamId][button.value] = checked
	if streamId == AdiDebugGUI.currentStreamId then
		AdiDebugGUI:RefreshMessages()
	end
end

local function CategoryEntry_SetColor(streamId, category, r, g, b)
	if not AdiDebug:HasStream(streamId) then return end
	local c = AdiDebugGUI.db.profile.categoryColors[streamId][category]
	c[1], c[2], c[3] = r, g, b
	if streamId == AdiDebugGUI.currentStreamId then
		local categoryId = AdiDebugGUI:GetCategoryId(streamId, category)
		AdiDebugGUI.Messages:AdjustMessageColors(function (_, _, _, _, messageId)
			if messageId == categoryId then
				return true, r, g, b
			end
		end)
	end
end

local function StreamEntry_IsChecked(button)
	return button.value == AdiDebugGUI.currentStreamId
end

local function StreamEntry_OnClick(button)
	return AdiDebugGUI:SelectStream(button.value)
end

local function StreamEntry_SetAllSelected(button, shown)
	local streamId = button.value
	local db = AdiDebugGUI.db.profile.categories[streamId]
	db[streamId] = shown
	for category in AdiDebug:IterateCategories(streamId) do
		db[category] = shown
	end
	if streamId == AdiDebugGUI.currentStreamId then
		AdiDebugGUI:RefreshMessages()
	end
end

local info
local entries = {}

local function BuildCategoryButtons(streamId)
	wipe(entries)
	for category in AdiDebug:IterateCategories(streamId) do
		tinsert(entries, category)
	end
	table.sort(entries)
	tinsert(entries, 1, streamId)

	return #entries
end

local function AddPartitionButtons(streamId, numParts, partitionSize, count)
	info.hasArrow = true
	info.notCheckable = true
	for i = 1, numParts do
		local firstIndex = 1 + (i - 1) * partitionSize
		local lastIndex = math.min(count, i * partitionSize)
		info.text = entries[firstIndex].." .. "..entries[lastIndex]
		info.value = { streamId, firstIndex, lastIndex }
		UIDropDownMenu_AddButton(info, 2)
	end
end

local function AddCategoryButtons(level, streamId, firstIndex, lastIndex)
	info.func = CategoryEntry_OnClick
	info.checked = CategoryEntry_IsChecked
	info.keepShownOnClick = true
	info.hasColorSwatch = true
	info.isNotRadio = true
	info.arg1 = streamId

	for i = firstIndex, lastIndex do
		local category = entries[i]
		info.text = category
		info.r, info.g, info.b = unpack(AdiDebugGUI.db.profile.categoryColors[streamId][category])
		info.swatchFunc = function()
			CategoryEntry_SetColor(streamId, category, ColorPickerFrame:GetColorRGB())
		end
		info.cancelFunc = function(values)
			CategoryEntry_SetColor(streamId, category, values.r, values.g, values.b)
		end
		UIDropDownMenu_AddButton(info, level)
	end
end

local function AddSelectAllEntries(streamId)
	wipe(info)
	info.text = "Select all"
	info.value = streamId
	info.notCheckable = true
	info.arg1 = true
	info.func = StreamEntry_SetAllSelected
	UIDropDownMenu_AddButton(info, 2)

	info.text = "Unselect all"
	info.arg1 = false
	UIDropDownMenu_AddButton(info, 2)
end

local function AddStreamButtons()
	wipe(entries)
	for streamId in AdiDebug:IterateStreams() do
		tinsert(entries, streamId)
	end
	table.sort(entries)

	info.checked = StreamEntry_IsChecked
	info.func = StreamEntry_OnClick
	info.hasArrow = true
	for i, streamId in ipairs(entries) do
		info.text = streamId
		UIDropDownMenu_AddButton(info, 1)
	end
end

local function AddFirstLevelCategories(streamId)
	local count = BuildCategoryButtons(streamId)
	local numParts = 1 + math.floor(count / 15)
	if numParts > 1 then
		local partitionSize = math.ceil(count / numParts)
		AddPartitionButtons(streamId, numParts, partitionSize, count)
	else
		AddCategoryButtons(2, streamId, 1, count)
	end
	if count > 1 then
		AddSelectAllEntries(streamId)
	end
end

local function InitializeStreamDropdown(frame, level)
	if not AdiDebugGUI.db then return end
	info = UIDropDownMenu_CreateInfo()

	if level == 1 then
		AddStreamButtons()
	elseif level == 2 then
		AddFirstLevelCategories(UIDROPDOWNMENU_MENU_VALUE)
	elseif level == 3 then
		AddCategoryButtons(level, unpack(UIDROPDOWNMENU_MENU_VALUE))
	end

	wipe(info)
	info.text = "Close Menu"
	info.notCheckable = true
	UIDropDownMenu_AddButton(info, level)
end

-- ----------------------------------------------------------------------------
-- AdiDebug callback handlers
-- ----------------------------------------------------------------------------

function AdiDebugGUI:AdiDebug_NewStream(event, streamId)
	if not self.currentStreamId and streamId == self.db.profile.streamId then
		self:SelectStream(streamId)
	end
end

function AdiDebugGUI:AdiDebug_NewMessage(event, streamId, category, now, text)
	if streamId == self.currentStreamId then
		self:AddMessage(category, now, text)
		self:UpdateScrollBar()
	end
end

-- ----------------------------------------------------------------------------
-- Script handlers
-- ----------------------------------------------------------------------------

function AdiDebugGUI:OnMoverMouseDown()
	if not self.movingOrSizing then
		local x, y = GetCursorPosition()
		local scale = self:GetEffectiveScale()
		local left, bottom, width, height = self:GetRect()
		x, y = (x / scale) - left, (y / scale) - bottom
		local horiz = (x < 24) and "LEFT" or (x > width - 24) and "RIGHT"
		local vert = (y < 24) and "BOTTOM" or (y > height - 24) and "TOP"
		if horiz or vert then
			self:StartSizing(strjoin("", vert or "", horiz or ""))
		else
			self:StartMoving()
		end
		self.movingOrSizing = true
	end
end

function AdiDebugGUI:OnMoverMouseUp()
	if self.movingOrSizing then
		self.movingOrSizing = nil
		self:StopMovingOrSizing()
		local profile = self.db.profile
		profile.width, profile.height = self:GetSize()
		local _
		_, _, profile.point, profile.xOffset, profile.yOffset = self:GetPoint()
	end
end

function AdiDebugGUI:OnShow()
	self:UpdateScrollBar()
end

-- ----------------------------------------------------------------------------
-- Frame/table tooltips
-- ----------------------------------------------------------------------------

local getters = {
	-- UIObject
	"GetObjectType",
	-- Region
	"GetParent", "IsProtected", "GetRect",
	-- VisibleRegion
	"GetAlpha", "IsShown", "IsVisible",
	-- Frame
	"GetFrameStrata",	"GetFrameLevel", "GetScale", "GetID", "GetNumChildren", "GetNumRegions",
 "GetPropagateKeyboardInput", "IsClampedToScreen", "IsJoystickEnabled", "IsKeyboardEnabled", "IsMouseEnabled",
	"IsMouseWheelEnabled", "IsMovable", "IsResizable", "IsToplevel", "IsUserPlaced",
	"GetBackdrop", "GetBackdropBorderColor", "GetBackdropColor",
	-- Button
	"GetButtonState",	"GetMotionScriptsWhileDisabled", "GetTextHeight", "GetTextWidth", "IsEnabled",
	"GetDisabledTexture", "GetDisabledFontObject", "GetFontString", "GetHighlightFontObject", "GetHighlightTexture",
	"GetNormalFontObject", "GetNormalTexture", "GetPushedTextOffset", "GetPushedTexture",
	-- CheckButton
	"GetChecked",
	-- ScrollFrame
	"GetHorizontalScroll", "GetHorizontalScrollRange","GetVerticalScroll", "GetVerticalScrollRange", "GetScrollChild",
	-- Slider
	"GetMinMaxValues", "GetOrientation", "GetThumbTexture", "GetValue", "GetValueStep",
	-- StatusBar
	"GetRotatesTexture", "GetStatusBarColor", "GetStatusBarTexture",
	-- FontInstance
	"GetFontObject", "GetJustifyH", "GetJustifyV", "GetShadowColor", "GetShadowOffset", "GetSpacing", "GetTextColor",
	-- FontString
	"GetFieldSize", "GetIndentedWordWrap", "GetText", "GetStringWidth", "GetStringHeight", "IsTruncated",
	"CanNonSpaceWrap", "CanWordWrap",
	-- Texture
	"GetBlendMode", "GetNonBlocking", "GetTexture", "GetHorizTile", "GetVertTile", "IsDesaturated",	"GetTexCoord", "GetVertexColor",
	-- GameTooltip
	"GetOwner", "GetUnit", "GetSpell", "GetItem", "IsEquippedItem",
}

local t = {}
local function Format(...)
	local n = max(1, select('#', ...))
	for i = 1, n do
		t[i] = AdiDebug:PrettyFormat(select(i, ...), true, 30)
	end
	return table.concat(t, ", ", 1, n)
end

local bools = {}
local function ShowUIObjectTooltip(obj)
	-- We're doing duck typing there
	local haveBools = false
	for i, getter in ipairs(getters) do
		if type(obj[getter]) == "function" then
			local label = strmatch(getter, "^Is(%w+)$") or strmatch(getter, "^(Can%w+)$")
			if label then
				haveBools = true
				if obj[getter](obj) then
					tinsert(bools, label)
				end
			else
				GameTooltip:AddDoubleLine(strmatch(getter, "^Get(%w+)$") or getter, Format(obj[getter](obj)), nil, nil, nil, 1, 1, 1)
			end
		end
	end
	if haveBools then
		if #bools > 0 then
			GameTooltip:AddDoubleLine("Flags", table.concat(bools, ", "), nil, nil, nil, 1, 1, 1)
			wipe(bools)
		else
			GameTooltip:AddDoubleLine("Flags", "-", nil, nil, nil, 1, 1, 1)
		end
	end
end

local function ShowTableTooltip(value)
	local mt = getmetatable(value)
	setmetatable(value, nil)
	GameTooltip:AddDoubleLine("Metatable", AdiDebug:PrettyFormat(mt, true), nil, nil, nil, 1, 1, 1)
	local n = 0
	for k, v in pairs(value) do
		if n == 0 then
			GameTooltip:AddLine("Content:")
		end
		if n < 10 then
			GameTooltip:AddDoubleLine(AdiDebug:PrettyFormat(k, true, 30), AdiDebug:PrettyFormat(v, true, 30), 1, 1, 1, 1, 1, 1)
		end
		n = n + 1
	end
	if n > 10 then
		GameTooltip:AddLine(format("|cffaaaaaa%d more entries...|r", n-10))
	end
	setmetatable(value, mt)
end

-- ----------------------------------------------------------------------------
-- Widget script handlers
-- ----------------------------------------------------------------------------

local function Messages_OnHyperlinkClick(self, data, link)
	GameTooltip:SetOwner(self, "ANCHOR_CURSOR")
	GameTooltip:ClearLines()
	local t, tableType = AdiDebug:GetTableHyperlinkTable(link)
	if t then
		GameTooltip:AddDoubleLine(link, tableType)
		if tableType == "table" then
			ShowTableTooltip(t)
		else
			ShowUIObjectTooltip(t)
		end
	else
		GameTooltip:SetHyperlink(link)
	end
	GameTooltip:Show()
end

local function Messages_OnHyperlinkEnter(self, data, link)
	GameTooltip:SetOwner(self, "ANCHOR_CURSOR")
	GameTooltip:ClearLines()
	GameTooltip:AddLine(link)
	local _, tableType = AdiDebug:GetTableHyperlinkTable(link)
	local linkType, linkData = strsplit(':', data, 2)
	GameTooltip:AddDoubleLine("Link type", tableType or linkType)
	GameTooltip:AddDoubleLine("Link data", linkData)
	GameTooltip:AddLine("|cffaaaaaaClick for more details.|r")
	GameTooltip:Show()
end

local function Messages_OnMouseWheel(self, delta)
	local num, displayed = self:GetNumMessages(), self:GetNumVisibleLines()
	local step = IsShiftKeyDown() and num or IsControlKeyDown() and displayed or 1
	local current = self:GetScrollOffset()
	local newOffset = min(max(0, current + step * delta), num - displayed)
	if newOffset ~= current then
		self:SetScrollOffset(newOffset)
		AdiDebugGUI:UpdateScrollBar()
	end
end

local function Background_GetSettings()
	local settings = AdiDebugGUI.db.profile
	if settings.autoFadeOut then
		return AdiDebugGUI.movingOrSizing or AdiDebugGUI:IsMouseOver(), settings.opacity, 0.95
	else
		return true, 0.1, settings.opacity
	end
end

local function Background_OnUpdate(self, elapsed)
	local alpha, newAlpha = self:GetAlpha()
	local goMax, minAlpha, maxAlpha = Background_GetSettings()
	if goMax then
		newAlpha = min(maxAlpha, alpha + (maxAlpha - minAlpha) * elapsed / ALPHA_DELAY)
	else
		newAlpha = max(minAlpha, alpha - (maxAlpha - minAlpha) * elapsed / ALPHA_DELAY)
	end
	if newAlpha ~= alpha then
		self:SetAlpha(newAlpha)
	end
end

local function Background_OnShow(self)
	local goMax, minAlpha, maxAlpha = Background_GetSettings()
	self:SetAlpha(goMax and maxAlpha or minAlpha)
end

local function ShowTooltipText(self)
	GameTooltip:ClearLines()
	GameTooltip:SetOwner(self, "ANCHOR_RIGHT")
	GameTooltip:SetText(self.tooltipText)
	GameTooltip:Show()
end

-- ----------------------------------------------------------------------------
-- GUI initialization
-- ----------------------------------------------------------------------------

AdiDebugGUI:SetScript('OnShow', function(self)

	self:SetSize(self.db.profile.width, self.db.profile.height)
	self:SetPoint(self.db.profile.point, self.db.profile.xOffset, self.db.profile.yOffset)
	self:SetClampedToScreen(true)
	self:SetClampRectInsets(4,-4,-4,4)
	self:SetMovable(true)
	self:SetResizable(true)
	self:SetFrameStrata("FULLSCREEN_DIALOG")
	self:SetToplevel(true)
	self:SetResizeBounds(300, 120)
	self:EnableMouse(true)
	self:SetScript('OnShow', self.OnShow)

	----- Background -----

	local background = CreateFrame("Frame", nil, self, 'BackdropTemplate')
	background:SetAllPoints(self)
	background:SetBackdrop({
		bgFile = [[Interface\Addons\AdiDebug\media\white16x16]], tile = true, tileSize = 16,
		edgeFile = [[Interface\Tooltips\UI-Tooltip-Border]], edgeSize = 16,
		insets = { left = 4, right = 4, top = 4, bottom = 4 },
	})
	background:SetBackdropColor(0,0,0,0.9)
	background:SetBackdropBorderColor(1,1,1,1)
	background:SetScript('OnUpdate', Background_OnUpdate)
	background:SetScript('OnShow', Background_OnShow)
	Background_OnShow(background)

	local function AttachTooltip(target, text)
		target.tooltipText = text
		target:SetScript('OnEnter', ShowTooltipText)
		target:SetScript('OnLeave', GameTooltip_Hide)
	end

	----- Moving helper -----

	local mover = CreateFrame("Frame", nil, self)
	mover:SetFrameLevel(200)
	mover:SetAllPoints(self)
	mover.Update = function()
		local enable = IsModifierKeyDown()
		mover:EnableMouse(enable)
		mover:SetShown(enable)
	end
	mover:RegisterEvent('MODIFIER_STATE_CHANGED')
	mover:SetScript('OnEvent', mover.Update)
	mover:SetScript('OnShow', mover.Update)
	mover:SetScript('OnMouseDown', function(_, ...) return self:OnMoverMouseDown(...) end)
	mover:SetScript('OnMouseUp', function(_, ...) return self:OnMoverMouseUp(...) end)
	AttachTooltip(mover, "Drag the borders and corners to resize the frame.\nDrag the center to move the frame.")
	mover.Update()

	----- Close button -----

	local closeButton = CreateFrame("Button", nil, background, "UIPanelCloseButton")
	closeButton:SetPoint("TOPRIGHT")
	closeButton:SetScript('OnClick', function() self:Hide() end)
	AttachTooltip(closeButton, "Hide")

	----- Stream selector -----

	local selector = CreateFrame("Button", "AdiDebugDropdown", background, "UIDropDownMenuTemplate")
	selector:SetPoint("TOPLEFT", -12, -4)
	selector:SetWidth(145)
	selector.Text = _G["AdiDebugDropdownText"]
	AttachTooltip(selector, "Debugging stream\nSelect the debugging stream to watch.")
	self.Selector = selector

	local menuFrame = CreateFrame("Frame", "AdiDebugDropdownMenu", nil, "UIDropDownMenuTemplate")
	UIDropDownMenu_Initialize(menuFrame, InitializeStreamDropdown, "MENU")
	_G["AdiDebugDropdownButton"]:SetScript('OnClick', function()
		return ToggleDropDownMenu(1, nil, menuFrame, "AdiDebugDropdown", 16, 8)
	end)

	----- Message area -----

	local messages = CreateFrame("ScrollingMessageFrame", nil, self)
	messages:SetPoint("TOPLEFT", self, "TOPLEFT", 8, -28)
	messages:SetPoint("BOTTOMRIGHT", self, "BOTTOMRIGHT", -24, 8)
	messages:SetFading(false)
	messages:SetJustifyH("LEFT")
	messages:SetMaxLines(550)
	messages:SetFontObject(ChatFontNormal)
	messages:SetShadowOffset(1, -1)
	messages:SetShadowColor(0, 0, 0, 1)
	messages:Raise()
	messages:SetIndentedWordWrap(true)
	messages:SetHyperlinksEnabled(true)
	messages:EnableMouseWheel(true)
	messages:SetScript('OnSizeChanged', UpdateScrollBar)
	messages:SetScript('OnHyperlinkClick', Messages_OnHyperlinkClick)
	messages:SetScript('OnHyperlinkEnter', Messages_OnHyperlinkEnter)
	messages:SetScript('OnHyperlinkLeave', GameTooltip_Hide)
	messages:SetScript('OnLeave', GameTooltip_Hide)
	messages:SetScript('OnMouseWheel', Messages_OnMouseWheel)
	self.Messages = messages

	----- Scroll bar -----

	local scrollBar = CreateFrame("Slider", nil, background, "UIPanelScrollBarTemplate")
	scrollBar:Hide()
	scrollBar:SetPoint("TOPRIGHT", self, "TOPRIGHT", -8, -44)
	scrollBar:SetPoint("BOTTOMRIGHT", self, "BOTTOMRIGHT", -8, 24)
	scrollBar:SetValueStep(1)
	scrollBar:SetObeyStepOnDrag(true)
	scrollBar.scrollStep = 3

	scrollBar:SetScript('OnValueChanged', function (_, value)
		local _, maxValue = scrollBar:GetMinMaxValues()
		messages:SetScrollOffset(maxValue - value)
	end)

	self.ScrollBar = scrollBar

	----- Auto fade button -----

	local autoFadeButton = CreateFrame("CheckButton", nil, background, "UICheckButtonTemplate")
	autoFadeButton:RegisterForClicks("anyup")
	autoFadeButton:SetSize(24, 24)
	autoFadeButton:SetPoint("TOPRIGHT", -32, -4)
	autoFadeButton:SetScript('OnClick', function(button) self.db.profile.autoFadeOut = not not button:GetChecked() end)
	autoFadeButton:SetChecked(self.db.profile.autoFadeOut)
	AttachTooltip(autoFadeButton, "Auto fade out\nAutomatically fade out the self when the mouse cursor is not hovering it.")

	----- Opacity slider -----

	local opacitySlider = CreateFrame("Slider", nil, self, 'UISliderTemplate')
	opacitySlider:SetSize(80, 16)
	opacitySlider:SetPoint("TOPRIGHT", -64, -8)
	opacitySlider:SetValueStep(0.05)
	opacitySlider:SetMinMaxValues(0.1, 0.95)
	opacitySlider:SetValue(self.db.profile.opacity)
	opacitySlider:SetScript('OnValueChanged', function(_, value) self.db.profile.opacity = value end)
	AttachTooltip(opacitySlider, "Frame opacity\nAdjust the self opacity.\nThis is the lowest opacity if auto fading is enabled else it is the self opacity.")

	----- Text search -----

	local searchBox = CreateFrame("EditBox", nil, self, "SearchBoxTemplate")
	searchBox:SetSize(130, 20)
	searchBox:SetPoint("TOPRIGHT", opacitySlider, "TOPLEFT", -10, 4)
	searchBox:SetScript('OnTextChanged', function()
		SearchBoxTemplate_OnTextChanged(searchBox)

		local text = strtrim(searchBox:GetText())
		if text == "" or text == SEARCH then
			text = nil
		end
		if text ~= self.searchText then
			self.searchText = text
			self:RefreshMessages()
		end
	end)

	AttachTooltip(searchBox, "Enter text to search in the logs.")

	-- Register callbacks
	AdiDebug.RegisterCallback(self, "AdiDebug_NewStream")
	AdiDebug.RegisterCallback(self, "AdiDebug_NewMessage")
end)

-- ----------------------------------------------------------------------------
-- Addon initialization
-- ----------------------------------------------------------------------------

AdiDebugGUI:SetScript('OnEvent', function(self, event, name)
	if event == 'ADDON_LOADED' and name == addonName then
		self:UnregisterEvent('ADDON_LOADED')
		self:SetScript('OnEvent', nil)

		self.db = AdiDebug.db:RegisterNamespace("GUI", {
			profile = {
				point = "TOPLEFT",
				xOffset = 16,
				yOffset = -200,
				width = 640,
				height = 400,
				categories = { ['*'] = { ['*'] = true } },
				categoryColors = { ['*'] = { ['*'] = { 1, 1, 1 } } },
				autoFadeOut = false,
				opacity = 0.95,
				shown = false,
			}
		}, true)

		self.db:RegisterCallback('OnDatabaseShutdown', function()
			self.db.profile.shown = self:IsShown()
		end)

		if self.db.profile.shown then
			self:Show()
		end
	end
end)
AdiDebugGUI:RegisterEvent('ADDON_LOADED')

-- ----------------------------------------------------------------------------
-- Chat Command
-- ----------------------------------------------------------------------------

SLASH_ADIDEBUG1 = "/ad"
SLASH_ADIDEBUG2 = "/adidebug"
function SlashCmdList.ADIDEBUG(arg)
	if strtrim(arg) == "" then
		arg = nil
	end
	if not arg and AdiDebugGUI:IsShown() then
		AdiDebugGUI:Hide()
		return
	end
	AdiDebugGUI:Show()
	if arg then
		arg = strlower(arg)
		for streamId in AdiDebug:IterateStreams() do
			if strlower(streamId) == arg then
				AdiDebugGUI:SelectStream(streamId)
			end
		end
	end
end