--- In [email protected], "brucexs" <[EMAIL PROTECTED]> wrote:
>
> --- In [email protected], "Sheri" <sherip99@> wrote:
> >
> Due to some design limitations inside PowerPro, I would guess
> this would be most likely to happen if two independents scripts
> say A and B with for loops are running at the same time and
> script A happens to be inside a for loop when it is somehow
> interrupted by script B, which also contains a for loop, runs.
> This would be most likely if script A had a wait inside a for
> loop, but there are likely other circumstances I have not thought
> of.
I don't think thats the case here. Actually, the times I've seen the
error, the script appeared to have finished and it seemed mysterious
to be getting an error. The script is below (watch out for broken
lines). The error dialog (for line 21 which is the first "endfor") has
appeared after the menu has displayed and while clicking through the
menu folders. Maybe its some weird interaction or timing for menu
folder or menu explorer. I rarely see the error.
Regards,
Sheri
;Allmounted3.powerpro
;by Sheri Pierce 10/3/2008
;last updated 10/30/2008
;tested with PProversion 4815
local cmd hitem
local TempMenu = cl.create("TempMenuCL",1)
local menufont="Sans Serif"
local menufontsize=9
local pproappfolder=file.folder(win.exepath("c=powerpromain"))++?"\"
local ppropluginsfolder=pproappfolder++?"plugins"
local pproscriptsfolder=pprofolder++?"scripts"
TempMenu.AddProperties(?"fontname = " ++ menufont ++ "\nfontinfo =
Bold Size: " ++ menufontsize++"\nformat = text: 0 0 255 iconsize: 16")
for each line drive in file.alldrives
if (mounted(drive)) do
hitem=TempMenu.insert(TempMenu.length)
hitem.setlabel("&"++drive++" "++file.volume(regex.m1(drive,
?".+(?=\\)", "\\0")))
hitem.addleft(drive)
hitem.addright(drive)
endif
endfor
hitem=TempMenu.insert(TempMenu.length)
hitem.setlabel("&*colsepline")
hitem=TempMenu.insert(TempMenu.length)
hitem.setlabel("&Desktop")
hitem.addleft(env("userprofile")++?"\Desktop")
hitem.addright(env("userprofile")++?"\Desktop")
hitem=TempMenu.insert(TempMenu.length)
hitem.setlabel("&Program Files")
hitem.addleft(env("ProgramFiles"))
hitem.addright(env("ProgramFiles"))
hitem=TempMenu.insert(TempMenu.length)
hitem.setlabel("&Quick Launch")
hitem.addleft(env("appdata")++?"\Microsoft\Internet Explorer\Quick
Launch")
hitem.addright(env("appdata")++?"\Microsoft\Internet Explorer\Quick
Launch")
hitem=TempMenu.insert(TempMenu.length)
hitem.setlabel("&Recent/My Docs")
hitem.addleft("Recent")
hitem.addright("::{450D8FBA-AD25-11D0-98A8-0800361B1103}")
hitem=TempMenu.insert(TempMenu.length)
hitem.setlabel("&Favorites/Downloads")
hitem.addleft("Personal")
hitem.addright(env("userprofile")++?"\My Documents\Downloads")
hitem=TempMenu.insert(TempMenu.length)
hitem.setlabel("&*colsepline")
hitem=TempMenu.insert(TempMenu.length)
hitem.setlabel("P&owerPro")
hitem.addleft(pproappfolder)
hitem.addright(pproappfolder)
hitem=TempMenu.insert(TempMenu.length)
hitem.setlabel("PowerPro Plu&gins")
hitem.addleft(ppropluginsfolder)
hitem.addright(ppropluginsfolder)
if (pproappfolder ne pprofolder) do
hitem=TempMenu.insert(TempMenu.length)
hitem.setlabel("Po&werPro Data")
hitem.addleft(pprofolder)
hitem.addright(pprofolder)
endif
hitem=TempMenu.insert(TempMenu.length)
hitem.setlabel("PowerPro Scrip&ts")
hitem.addleft(pproscriptsfolder)
hitem.addright(pproscriptsfolder)
hitem=TempMenu.insert(TempMenu.length)
hitem.setlabel("AppData")
hitem.addleft(env("appdata"))
hitem.addright(env("appdata"))
for each hItem in cl.get("TempMenuCl")
cmd=hitem.getrightcmd(0)
hitem.clearright
hitem.addright("explorer.exe", " /n, /e, \x22"++cmd++"\x22", "",
"normal")
if (hitem.getlabel[4]==" ") do
hitem.seticon((env("windir"))++?"\system32\shell32.dll", 7)
else
hitem.seticon((env("windir"))++?"\system32\shell32.dll", 3)
endif
cmd=hitem.getleftcmd(0)
hitem.clearleft
if (hitem.getlabel=="&Recent/My Docs") do
hitem.addleft(?zdo("menu", "explorer name")z)
elseif (hitem.getlabel=="&*colsepline")
hitem.addleft("format", "newcolumn")
else
hitem.addleft("menu", "folder "++cmd, "nosubdir folderstart
folderback Autocolall 45 Maxtext 32", "", "normal")
endif
endfor
cl.showmenu("tempmenucl")
;end
