From ce486ef5f664a4d4f1f006518cadb4e864952c07 Mon Sep 17 00:00:00 2001
From: Jaidyn Ann <10477760+JadedCtrl@users.noreply.github.com>
Date: Sun, 4 Feb 2024 20:54:58 -0600
Subject: [PATCH] =?UTF-8?q?Make=20File=E2=86=92Exit=20button=20functional?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Lays groundwork for signal callbacks.
---
 contact.scm | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/contact.scm b/contact.scm
index ea10259..2e77c7c 100644
--- a/contact.scm
+++ b/contact.scm
@@ -41,7 +41,17 @@
 
 ;; Initialize the window.
 (define (init-window window)
+  (window-callbacks window)
   (qt:show window))
 
 
+;; Connect callback functions to widgets’ signals.
+(define (window-callbacks window)
+  (let ([file→exit (qt:find window "actionQuit")])
+    (if file→exit
+        (qt:connect
+         file→exit "triggered()"
+         (qt:receiver exit)))))
+
+
 (init)