User-Close

(defmethod user-close ((window paint-pane))

(if (not (buffer-ischanged window))

(progn (call-next-method)

(user-close (parent window)))

(case (pop-up-message-dialog window "Close"

"The file has changed. Save the changes?"

warning-icon "Yes" "No" "Cancel")

(1 ;; Save

(call-next-method)

(when (buffer-ischanged window)

(user-save-file window))

(user-close (parent window)))

(2 ;; Discard

(call-next-method)

(user-close (parent window)))

(3 ;; Cancel

nil))))

Previous slide

Next slide

Back to first slide

View graphic version