local List = arg(1) local CR = esc(?+\n+, ?+\+) local Check, Temp, Cap, Mess if(cl.Exists(List) != 1) do messagebox("ok", "Command List '" ++ List ++ "' does not exist", "CL error") quit all endif local Number = cl.Length(List) Cap = "Command List '" ++ List ++ "' has " ++ Number ++ " entries" Mess = "Command List info:" ++ CR Temp = cl.GetBackColor(List) if(Temp != "") Mess = Mess ++ CR ++ "Background color: " ++ Temp Temp = cl.GetBackground(List) if(Temp != "") Mess = Mess ++ CR ++ "Background file: " ++ Temp Temp = cl.GetTextColor(List) if(Temp != "") Mess = Mess ++ CR ++ "Text color: " ++ Temp Mess = Mess ++ CR ++ "Hide interval: " ++ cl.GetHideAfter(List) Mess = Mess ++ CR ++ "Maximum text length: " ++ cl.GetMaxtext(List) Temp = cl.GetLastBar() if(Temp != "") do Mess = Mess ++ CR ++ "Name of bar with last button pressed: '" ++ Temp ++ "'" Mess = Mess ++ CR ++ "Last pressed button on bar '" ++ Temp ++ "': " Mess = Mess ++ cl.GetLastPressed(Temp) ++ CR ++ "Last mouse button on bar '" Mess = Mess ++ Temp ++ "': " ++ cl.GetLastMouse (Temp) endif if(messagebox("okcancel information", Mess, Cap) == 0) quit all Mess = "" for(i = 0; i < Number; i = i + 1) for(j = 1; 1; j = j + 1) Check = Mess Cap = "Entry #" ++ i ++ " of " ++ Number - 1 Temp = cl.GetLeftCmd(List, i, j) if(Temp != "") Mess = Mess ++ CR ++ "Left Command #" ++ j ++ ": '" ++ Temp ++ "'" Temp = cl.GetRightCmd(List, i, j) if(Temp != "") Mess = Mess ++ CR ++ "Right Command #" ++ j ++ ": '" ++ Temp ++ "'" Temp = cl.GetMiddleCmd(List, i, j) if(Temp != "") Mess = Mess ++ CR ++ "Middle Command #" ++ j ++ ": '" ++ Temp ++ "'" Temp = cl.GetLeftParam(List, i, j) if(Temp != "") Mess = Mess ++ CR ++ "Left Parameter #" ++ j ++ ": '" ++ Temp ++ "'" Temp = cl.GetRightParam(List, i, j) if(Temp != "") Mess = Mess ++ CR ++ "Right Parameter #" ++ j ++ ": '" ++ Temp ++ "'" Temp = cl.GetMiddleParam(List, i, j) if(Temp != "") Mess = Mess ++ CR ++ "Middle Parameter #" ++ j ++ ": '" ++ Temp ++ "'" Temp = cl.GetLeftWork(List, i, j) if(Temp != "") Mess = Mess ++ CR ++ "Left work dir #" ++ j ++ ": '" ++ Temp ++ "'" Temp = cl.GetRightWork(List, i, j) if(Temp != "") Mess = Mess ++ CR ++ "Right work dir #" ++ j ++ ": '" ++ Temp ++ "'" Temp = cl.GetMiddleWork(List, i, j) if(Temp != "") Mess = Mess ++ CR ++ "Middle work dir #" ++ j ++ ": '" ++ Temp ++ "'" Temp = cl.GetLeftHow(List, i, j) if(Temp != "normal") Mess = Mess ++ CR ++ "Left how start #" ++ j ++ ": '" ++ Temp ++ "'" Temp = cl.GetRightHow(List, i, j) if(Temp != "normal") Mess = Mess ++ CR ++ "Right how start #" ++ j ++ ": '" ++ Temp ++ "'" Temp = cl.GetMiddleHow(List, i, j) if(Temp != "normal") Mess = Mess ++ CR ++ "Middle how start #" ++ j ++ ": '" ++ Temp ++ "'" if(Check == Mess) break endfor Mess = Mess ++ CR ++ CR ++ "Left ontop checkbox is " Mess = Mess ++ ifelse(cl.GetLeftOnTop(List, i), "ON", "OFF") Mess = Mess ++ CR ++ "Right ontop checkbox is " Mess = Mess ++ ifelse(cl.GetRightOnTop(List, i), "ON", "OFF") Mess = Mess ++ CR ++ "Middle ontop checkbox is " Mess = Mess ++ ifelse(cl.GetMiddleOnTop(List, i), "ON", "OFF") Mess = Mess ++ CR ++ "Left switch to if active checkbox is " Mess = Mess ++ ifelse(cl.GetLeftSwitchTo(List, i), "ON", "OFF") Mess = Mess ++ CR ++ "Right switch to if active checkbox is " Mess = Mess ++ ifelse(cl.GetRightSwitchTo(List, i), "ON", "OFF") Mess = Mess ++ CR ++ "Middle switch to if active checkbox is " Mess = Mess ++ ifelse(cl.GetMiddleSwitchTo(List, i), "ON", "OFF") Temp = cl.GetId(List, i) Mess = Mess ++ ifelse(Temp, CR ++ "ID: '" ++ Temp ++ "'", "") Temp = cl.GetLabel(List, i) Mess = Mess ++ ifelse(Temp, CR ++ "Label: '" ++ Temp ++ "'", "") Temp = cl.GetLabelValue(List, i) Mess = Mess ++ ifelse(Temp, CR ++ "Label value: '" ++ Temp ++ "'", "") Temp = cl.GetTooltip(List, i) Mess = Mess ++ ifelse(Temp, CR ++ "Tooltip: '" ++ Temp ++ "'", "") Temp = cl.GetTooltipValue(List, i) Mess = Mess ++ ifelse(Temp, CR ++ "Tooltip value: '" ++ Temp ++ "'", "") Temp = cl.GetIconFile(List, i) if(Temp) do Mess = Mess ++ CR ++ "Icon file: '" ++ Temp ++ "'" Mess = Mess ++ CR ++ "Icon number: " ++ cl.GetIconNumber(List, i) endif Mess = Mess ++ CR ++ "Item is " Mess = Mess ++ ifelse(cl.IsVisible(List, i), "visible", "NOT visible") Mess = Mess ++ CR ++ "Item is " Mess = Mess ++ ifelse(cl.IsEnabled(List, i), "enabled", "NOT enabled") Mess = Mess ++ CR ++ "Icon is " Mess = Mess ++ ifelse(cl.IsIconVisible(List, i), "visible", "NOT visible") Mess = Mess ++ CR ++ "Item Width: " ++ cl.GetWidth(List, i) Mess = Mess ++ CR ++ "Item Height: " ++ cl.GetHeight(List, i) Temp = cl.GetBackColor(List, i) Mess = Mess ++ ifelse(Temp, CR ++ "Item Background: '" ++ Temp ++ "'", "") Temp = cl.GetTextColor(List, i) Mess = Mess ++ ifelse(Temp, CR ++ "Item Text Color: '" ++ Temp ++ "'", "") if(messagebox("okcancel information", Mess, Cap) == 0) quit all Mess = "" endfor