The following code in METHOD Activate() CLASS TPreview is responsible for your pboblem.
- Code: Select all Expand view
IF ::oDevice:lPrvModal
StopUntil( { || ::lExit } )
ENDIF
Please check wether ::lExit is assigned .T. or not.
Regards,
- Ramesh Babu P