arg object
    if wordpos(object, "NEW_LINKS WORKAREA")=0 then return

    desktop = "?HWND1"
    app = VRGet( desktop, "FirstChild" )
        do while app<>""
        title=VRGet(app,"Caption")
        if substr(title,1,16 )="IBM WebExplorer " then
            do
            title=strip(substr(title,19),"B")
            kid= VRGet(app,"FirstChild")
            url=Searcher(kid)
            if url<>"" then queue url title
	 if object="WORKAREA" then return "LINK"
            return "ADD"
            end
        app = VRGet( app, "Sibling" )
        end
return ""

Searcher: procedure
    parse arg w
    do while w <> ""
        if VRGet( w, "Visible" ) = 1 then do          
            class = VRGet( w, "ClassName" )
            caption = VRGet( w, "Caption" )
            if class="WC_ENTRYFIELD" then return caption
            subkid = VRGet( w, "FirstChild" )
            url= searcher(subkid)
            if url<>"" then return url
            end
        w = VRGet( w, "Sibling" )
    end

return ""