derma example, changing variables serverside

[Zephilinox]

I need a working example of a derma menu with someway (sliders, buttons, etc) of changing a serverside variable, thanks.

[-TB-]

OnClient

CreateClientConVar("ChangeMyNumber", 0, false, true)
local window = vgui.Create( "DFrame" )
	window:SetSize( 200,70 )
	window:Center()
	window:SetTitle( "DButton Test" )
	window:MakePopup()

local NumSlider = vgui.Create( "DNumSlider", window )
NumSlider:SetPos( 25,50 )
NumSlider:SetWide( 150 )
NumSlider:SetText( "Max Props" )
NumSlider:SetMin( 0 ) -- Minimum number of the slider
NumSlider:SetMax( 256 ) -- Maximum number of the slider
NumSlider:SetDecimals( 0 ) -- Sets a decimal. Zero means it's a whole number
NumSlider:SetConVar( "ChangeMyNumber" ) -- Set the convar

 
local button = vgui.Create( "DButton", window )
	button:SetSize( 100, 30 )
	button:SetPos( 50, 30 )
	button:SetText( "Test Button" )
	button.DoClick = function( button )
		RunConsoleCommand("ChangeStuff")
	end
 

On server

function ChangeStuff(ply, command, arguments)
 ply.MyNumber = tonumber(ply:GetInfo("ChangeMyNumber")) or 0
end
concommand.Add("ChangeStuff", ChangeStuff)