Hi all
I have an application that uses Foundation read but the limitation to it is that the menu was to be activated by the user. So I put in a KEYBOARD to open the menu and alls well.
Now my users have a repetitive request to keep the menu as-is when last selected after I exit the module. Thus enter ACTIVATE POPUP and I have got the results they wanted.
Then after opening aroung 5 modules the error Nesting Too Deep crops up. This is because as soon as I ACTIVATE POPUP that particular call is not terminated. This ends up with 3 nesting each for each module I run. Please note I allow multiple modules to be run.
My general programming goes something like this:
gcDoLine = ""
gcPopup = ""
gnBar = 0
READ VALID IdleLoop()
FUNCTION idleloop
...
IF !EMPTY(gcDoLine)
&gcDoLine.
RETURN .F.
ENDIF
IF !EMPTY(gcPopup) AND gnBar > 0
ACTIVATE POPUP ....
ENDIF
RETURN .F.
FUNCTION ExecModule
PARAMETER lcDoIt
gcPopup = POPUP()
gnBar = BAR()
gcDoLine = lcDoIt
CLEAR READ
Please Help.