ShowPopUpMenu problem

[screwed over]

Im using the following script to populate a table of which to create a menu with. the problem is, after you have used the menu once it wont work again, which is a rather big bug for what i am doing. heres the script:
tabs = 1;
pObjects = Page.EnumerateObjects();
tblMenu = {}
tblMenu[1] ={};
tblMenu[1].Text = "New Tab";
tblMenu[1].ID = 99864;
tblMenu[1].Checked = false;
tblMenu[1].Enabled = true;
tblMenu[2] ={};
tblMenu[2].Text = "---";
tblMenu[2].ID = 0;
tblMenu[2].Checked = false;
tblMenu[2].Enabled = true;
for index, oName in pObjects do
if String.Left(oName, 3) == "Web" then
tblMenu[Tabs+2] ={};
tblMenu[Tabs+2].Text = Web.GetURL(oName);
tblMenu[Tabs+2].ID = String.ToNumber(String.Replace(oName, "Web", "", false));
tblMenu[Tabs+2].Checked = false;
tblMenu[Tabs+2].Enabled = true;
tblMenu[Tabs+2].SubMenu = {};
tblMenu[Tabs+2].SubMenu[1] = {};
tblMenu[Tabs+2].SubMenu[1].Text = "Open Tab";
tblMenu[Tabs+2].SubMenu[1].ID = String.ToNumber(String.Replace(oName, "Web", "", false));
tblMenu[Tabs+2].SubMenu[1].Checked = false;
tblMenu[Tabs+2].SubMenu[1].Enabled = true;
tblMenu[Tabs+2].SubMenu[2] = {};
tblMenu[Tabs+2].SubMenu[2].Text = "Close Tab";
tblMenu[Tabs+2].SubMenu[2].ID = 1001 .. String.ToNumber(String.Replace(oName, "Web", "", false));
tblMenu[Tabs+2].SubMenu[2].Checked = false;
tblMenu[Tabs+2].SubMenu[2].Enabled = true;
Tabs = Tabs+1;
end
end
bPos = Button.GetPos("Button11");
tSelect = Application.ShowPopupMenu(bPos.X, bPos.Y, tblMenu, TPM_LEFTALIGN, TPM_TOPALIGN, true, true);
if tSelect == 99864 then
-- Web object properties table.
tblWebProps = {};
tblWebProps.URL = "http://www.google.com";
tblWebProps.Width = 621;
tblWebProps.Height = 362;
tblWebProps.Y = 45;
tblWebProps.X = 4;
tblWebProps.ResizeLeft = true;
tblWebProps.ResizeRight = false;
tblWebProps.ResizeTop = false;
tblWebProps.ResizeBottom = true;
tblWebProps.Visible = true;
tblWebProps.Enabled = true;
Page.CreateObject(OBJECT_WEB, "Web"..Tabs, tblWebProps);
elseif String.Left(tSelect, 4) == "1001" then
cID = String.Replace(tSelect, "1001", "", false);
Page.DeleteObject("Web"..cID);
elseif tSelect ~= nil then
for index, oName in pObjects do
if String.Left(oName, 3) == "Web" then
Web.SetVisible(oName, false);
end
end
Web.SetVisible("Web"..tSelect, true);
end
any help would be appreciated.


Note: you may have to test it out in a project with a web object to see whats going wrong.

[screwed over]

Don't worry. sovled it, i was using the wrong variable

[homes]

It is submitted that this error because there is a need to initialize objects before loading any judgement..