OpenEuphoria

lost focus

• Posted by George Walters <gwalters at sc.rr.com> Dec 24, 2004
• 568 views

When program 1 runs program 2 which does it's stuff then terminates, the 
setFocus(idList) on program 1 does not work under certain circumstances. If
I look at program 2's screen for more that about 15 seconds, the setFocus in
program
1 does not work. If I return to immediately from program 2 to program 1 then
idList does have
the focus and works properly. Any idea's how to fix this?

--------------------------------- Drill Down api030b
--------------------------------
procedure processDrill(integer self, integer event, sequence args)
integer retCode, index

    index = getIndex(idList)
    if index > lnCount then
    	-- do nothing
    else
	    dbKey = drillTable[index]
retCode = system_exec("exw.exe "&"opi030b.exw " & str(selectType) & " " &
dbKey ,0)
	    if retCode != 0 then
	        tmp = message_box("Program error link not found","",0)
	    end if
	 end if

    setFocus(idList)

end procedure