X-Git-Url: https://git.distorted.org.uk/u/mdw/putty/blobdiff_plain/919baedb34e9f6e351d70820529398181d8d0ea6..0980c4f28e5909a05be74af88732fddd7086f2f6:/mac/macterm.c

diff --git a/mac/macterm.c b/mac/macterm.c
index 78efa65f..d5a6014d 100644
--- a/mac/macterm.c
+++ b/mac/macterm.c
@@ -1012,14 +1012,26 @@ static pascal void mac_growtermdraghook(void)
 
 void mac_closeterm(WindowPtr window)
 {
+    int alertret;
     Session *s = mac_windowsession(window);
 
-    /* XXX warn on close */
+    if (s->cfg.warn_on_close && !s->session_closed) {
+	ParamText("\pAre you sure you want to close this session?",
+		  NULL, NULL, NULL);
+	alertret=CautionAlert(wQuestion, NULL);
+	if (alertret == 2) {
+	    /* Cancel */
+	    return;
+	}
+    }
+
     HideWindow(s->window);
     *s->prev = s->next;
     s->next->prev = s->prev;
-    ldisc_free(s->ldisc);
-    s->back->free(s->backhandle);
+    if (s->ldisc)
+	ldisc_free(s->ldisc);
+    if (s->back)
+	s->back->free(s->backhandle);
     log_free(s->logctx);
     if (s->uni_to_font != NULL)
 	DisposeUnicodeToTextInfo(&s->uni_to_font);