asktosave Method
Class: tsbaseform
Expand/Collapse source code of procedure asktosave Source Code
LOCAL lnAnswer
*-- Prompt user to save changes, and save or restore
*-- based on answer
lnAnswer = MESSAGEBOX(SAVECHANGES_LOC, ;
                      MB_ICONQUESTION + MB_YESNOCANCEL, ;
                      TASTRADE_LOC)
DO CASE
  CASE lnAnswer = IDYES
    IF !thisform.Save()
      lnAnswer = IDCANCEL
    ENDIF
  CASE lnAnswer = IDNO
    thisform.Restore()
ENDCASE

RETURN lnAnswer