
sub RelayoutToolbar(obj)
	
	dim pos
	pos = 10

	childCount = obj.ChildCount
	For i = 0 To childCount-1	
		
		obj.Child(i).Left = pos
		pos = pos + obj.Child(i).width

	Next	

	'obj.width = pos

end sub

sub ProcessLogin( childId, code )

	If(childId = "UserIconMenu") Then
		If(code = 0) then 
			x = UserIconMenu.ClientLeft + 5
			y = UserIconMenu.ClientTop + UserIconMenu.Height - 1
			a = x * 65536 + y
			Window.ExeCommand 123 , a
		end if
	elseif ( childId = "UserIconMenu_s" ) Then
		If(code = 0) then 
			x = UserIconMenu_s.ClientLeft + 5
			y = UserIconMenu_s.ClientTop + UserIconMenu_s.Height - 1
			a = x * 65536 + y
			Window.ExeCommand 123 , a
		end if	
	end if

end sub

sub RelayoutNavToolbar(obj)
	
	dim pos
	pos = 10

	obj.Child(0).Left = 10
	obj.Child(1).Left = 13
	'obj.Child(1).Top = 6
	pos = pos + obj.Child(1).width + 5

	childCount = obj.ChildCount
	For i = 2 To childCount-1	
		
		obj.Child(i).Left = pos
		pos = pos + obj.Child(i).width

	Next	
	'obj.width = pos
end sub

sub ChangeUserIcon(var)
	
	UserIcon.image = var
	UserIcon.hoverImage = var
	UserIcon.downImage = var

end sub

sub SetPluginButtonInfo(code ,var)

end sub

sub  WindowNotify( code , var)
	if(code = 30800)then
		BtnPluginCont.ExternalAttribute("MinWidth") = var
	end if
end sub

sub  WindowNotify_traditional( code , var)

end sub



