Does the next work?
IF AcceptUser
This.DefineMenu()
ELSE
QUIT
ENDIF
.
.
.
PROCEDURE AppExit
CLEAR EVENTS
oMainObject = .NULL.
ON SHUTDOWN
QUIT
ENDPROC
*-----
AT
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement