In my startup program I have ON KEY LABEL ESC DO EscKey IN MyProcFile.
The procedure is as follows, where 'Nothing' is a procedure that just has a 'RETURN.'
PROCEDURE EscKey
if type("_screen.activeform")="O"
if pemstatus(_screen.activeform,"OnEscape",5)
_screen.activeform.OnEscape()
else
_screen.activeform.release()
endif
else
do Nothing
endif
My goal is to let each form decide how to handle the escape key. Mostly this works, but sometimes, particularly while calling up one form from another (the cursor is an hourglass), the user gets the FoxPro message "Program Error: ***Interrupted***". Why is that? How do I avoid it?
Thanks
Elyse
Elyse Pomerantz