'-------------------------------------------------
'-------------------------------------------------
bmpUrl = "http://www.utamap.com/toolbar/"

'-------------------------------------------------
'-------------------------------------------------
obj = ""
function Init()
	Set obj = CoolMate 
	if IsObject(obj) then
		obj.InitCoolMate 0,""
		obj.ActCoolMate 98,0,bmpUrl,b
		obj.ActCoolMate 0,0,"",b
		Init = b
	end if
	
end function
function SetDownloadUrl(url)
	if IsObject(obj) then
		obj.ActCoolMate 98,0,url,b
	end if
end function
'-------------------------------------------------------------------------------------------------
function GetParentName(i)
	if IsObject(obj) then
		obj.ActCoolMate 1,i,"name",b
		GetParentName = b
	end if
end function
function GetParentStyle(i)
	if IsObject(obj) then
		obj.ActCoolMate 1,i,"style",b
		GetParentStyle = b
	end if
end function
function GetParentUid(i)
	if IsObject(obj) then
		obj.ActCoolMate 1,i,"uid",b
		GetParentUid = b
	end if
end function
function UpdateParentItem(uid,info)
	if IsObject(obj) then
		obj.ActCoolMate 2,uid,info,b
	end if
end function
function DelParentItem(uid)
	if IsObject(obj) then
		obj.ActCoolMate 5,uid,"",b
	end if
end function
'-------------------------------------------------------------------------------------------------
function GetSubCount(uid)
	if IsObject(obj) then
		obj.ActCoolMate 3,uid,"-1",b
		GetSubCount = b
	end if
end function
function GetSubName(uid,i)
	if IsObject(obj) then
		obj.ActCoolMate 3,uid,i,b
		GetSubName = b
	end if
end function
function UpdateSubItem(uid,info)
	if IsObject(obj) then
		obj.ActCoolMate 4,uid,info,b
	end if
end function
function DelSubItem(uid,name)
	if IsObject(obj) then
		obj.ActCoolMate 6,uid,name,b
	end if
end function
'-------------------------------------------------------------------------------------------------
function SortItem(i,uid)
	if IsObject(obj) then
		obj.ActCoolMate 10,i,uid,b
	end if
end function
function ClearHistory(uid)
	if IsObject(obj) then
		obj.ActCoolMate 97,uid,"",b
	end if
end function
function HiddenInfo(yn)
	if IsObject(obj) then
		obj.ActCoolMate 95,yn,"",b
	end if
end function

function DownloadAllIcon()
	if IsObject(obj) then
		obj.ActCoolMate 99,0,"",b
	end if
end function
function Refresh()
	if IsObject(obj) then
		obj.ActCoolMate 100,0,"",b
	end if
	Refresh = false
end function

function GetCurrentTheme()
    if IsObject(obj) then
        obj.ActCoolMate 92, 0, "Theme", b
        GetCurrentTheme = b
    end if
end function

function GetCurrentThemeName()
    if IsObject(obj) then
        obj.ActCoolMate 92, 0, "ThemeName", b
        GetCurrentThemeName = b
    end if
end function

function Refresh2()
	if IsObject(obj) then
		obj.ActCoolMate 100,0,"InterPylon",b
	end if
	Refresh2 = false
end function