Tweak GetChildObjects routine

[Gintaras]

Change flags to 0x1010. Slower but works.
With flag 0x2000, finds root object of current web page. It is fast, because goes directly to the object. However fails if root object of current page is not DOCUMENT, if DOCUMENT is specified.
Without the flag, searches all object three until finds a DOCUMENT, therefore is slow.

This also works, and is fast. Will not work if current page is completely empty, but i never saw such web pages in Firefox.
Macro Macro1862

Code:

Copy      Help

Acc a.Find(w "" "" "" 0x3010 0 0 "parent4") ;;find first object in current web page and get its parent GROUPING