SeaMonkey browser

[lionking]

After some modification I've got it to show all tabs
Macro Close SeaMonkey All Tabs

Code:

Copy      Help

ARRAY(str) names urls
int selectedTab=SeaMonkeyGetTabs(0 names urls)
int w=win(" - SeaMonkey" "MozillaWindowClass" "" 0x100)
for int'i 0 names.len
,out "names[%d] = %s" i names[i]
,if(i=selectedTab) continue
,;Acc a.Find(w "PAGETAB" names[i] "class=MozillaWindowClass" 0x1004 0 0 "first")
,Acc a.Find(w "PAGETAB" names[i] "class=MozillaWindowClass" 0x1005 0 0 "next")
,err ret ;;probably 0x800401FD, Object is not connected to server.
,a.DoDefaultAction

But the problem is a.DoDefaultAction does not close its tab. You know how to make it work?