>>>>
>>>>But the =messagebox() never sees the action. What do you suggest?
>>>>
>>>>Thank you.
>>>
>>>Try
>>>
>>>on escape plStop = messagebox("Cancel procedure",36,"Cancel?") = 7
>>>
>>>Also make this variable private. I use this code every time...
>>
>>Something is not working for me. I did change the variable to private and still to no avail. I will keep trying different things.
>>
>>Thank you for your help.
>
>From my old code:
>
>* support user Escapes for interrupting the main loop
>PrevOnEsc = on('escape')
>PrevEscape = set('escape')
>Set escape on
>plHalt = .f.
>On escape plHalt = .t.
>
>
>Scan
> If m.plHalt and messagebox('Do you want to stop Situs Zipping process?',36,'Stop Zipping')=6
> Exit
> Else
> plHalt = .f.
> Endif
>
Thank you for the sample code. Still something does not work. I wonder if I can activate debug On ESCAPE. This way, I could see if
ESCAPE works or not.
"The creative process is nothing but a series of crises." Isaac Bashevis Singer
"My experience is that as soon as people are old enough to know better, they don't know anything at all." Oscar Wilde
"If a nation values anything more than freedom, it will lose its freedom; and the irony of it is that if it is comfort or money that it values more, it will lose that too." W.Somerset Maugham