local function CreateTitle(PANEL,Text)
		local TITLE = vgui.Create("DPanel") PANEL:AddItem(TITLE)
		TITLE:SetTall(40)
		TITLE.Paint = function(slf)
			draw.SimpleText(Text, "RXF4_30", 11,6, Color(0,0,0,200))
			draw.SimpleText(Text, "RXF4_30", 10,5, Color(255,255,255,255))
		end
	end

	local function CreateButton(PANEL,Text,ClickFunc)
		local BTN = vgui.Create("F4_CommandButton") PANEL:AddItem(BTN)
		BTN:SetTall(40)
		BTN:SetTexts(Text)
		BTN.DoClick = ClickFunc
	end

	local function CreateSpace(PANEL,tall)
		local Spacing = vgui.Create("DPanel") PANEL:AddItem(Spacing)
		Spacing:SetTall(tall or 20)
		Spacing.Paint = function(slf) end
	end

local function MakeDefaultOptions(Lister)
	CreateTitle(Lister,"Currency")

	CreateButton(Lister,DarkRP.getPhrase("give_money"),function()
		RXF4_Request_String("Amount of money", "How much money do you want to give?", "", function(a) LocalPlayer():ConCommand("darkrp give " .. tostring(a)) end)
	end)

local ELEMENT = F4Element_CreateStruct("Shit")
ELEMENT:SetPrintName("Shit")



function ELEMENT:OnCanvasCreated(Panel,SX,SY)
	local ListBG = vgui.Create("DPanel",Panel)
	ListBG:SetPos(50,50)
	ListBG:SetSize(350,SY-100)
	ListBG.Paint = function(slf)

	local Lister = vgui.Create("DPanelList",ListBG) Panel.Lister = Lister
	Lister:SetPos(1,1)
	Lister:SetSize(ListBG:GetWide()-2,ListBG:GetTall()-2)
	Lister:EnableHorizontal( false )
	Lister:EnableVerticalScrollbar( true )
	Lister:SetSpacing(5)
	Lister:RXF4_PaintListBarC()

	MakeDefaultOptions(Lister)


	local ListBG = vgui.Create("DPanel",Panel)
	ListBG:SetPos(450,50)
	ListBG:SetSize(SX-500,SY-100)
	ListBG.Paint = function(slf)
	end

	local Lister = vgui.Create("DPanelList",ListBG) Panel.Lister = Lister
	Lister:SetPos(1,1)
	Lister:SetSize(ListBG:GetWide()-2,ListBG:GetTall()-2)
	Lister:EnableHorizontal( false )
	Lister:EnableVerticalScrollbar( true )
	Lister:SetSpacing(5)
	Lister:RXF4_PaintListBarC()

F4Element_Register(ELEMENT)