local Hand = win.handle("c=TLister")
local Text = childwin.gettext(Hand)
local From = index(Text, "[")
local To = index(Text, "]")
local Name = select(Text, From + 1, To - 1)
local i, State

if(not validpath(Name))
	quit

if(x9 == "del") do
	file.delete(Name)
elseif(x9 == "ins") do
	for(i = 0; i < Counter; i++)
		if(index(Name, v[i])) do
			State = win.sendmessage(TMLB, 0x0185, 0, i)
			if(State == -1) do
				messagebox("ok error", "Sending message failed", "XLister Script")
				quit
			else
				break
			endif
		endif
	endfor
elseif(x9 == "Green" || x9 == "Yellow" || x9 == "Red") do
	Text = scriptfolder ++ "\FileLists\" ++ x9 ++ ".tfl"
	State = file.open(Text, "a")
	if(State <= 0) do
		messagebox("ok error", "File not opened", "FILE plugin error")
		quit
	endif

	file.writeline(State, Name)
	file.close(State)
elseif(x9 == "copy") do
	clip.set(Name)
elseif(x9 == "name") do
	messagebox("ok", file.nametype(Name), "XLister script")
elseif(x9 == "open") do
	file.doverb(Name, "open")
elseif(x9 == "comment") do
	local Path = file.folder(Name) ++ "\"
	State = file.nametype(Name)
	From = runfile.Subs\Sub_Descript_ion(Path, State, "", "g")
	if(From == "ERROR: no comment file") do
		Text = input("Input comment for file " ++ Name)
	else
		Text = inputdefault(From, "Current comment: " ++ From)
		if(not Text)
			Text = From
					
	endif
	runfile.Subs\Sub_Descript_ion(Path, State, Text, "s")
endif