From cb4b35b0592d84a1c25d1546b42688e0796318b0 Mon Sep 17 00:00:00 2001
From: mappu <mappu04@gmail.com>
Date: Sat, 8 Jun 2024 13:34:49 +1200
Subject: [PATCH] gui: add exit menu item

---
 main.go | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/main.go b/main.go
index 66c75d2..2b9c02a 100644
--- a/main.go
+++ b/main.go
@@ -47,6 +47,15 @@ func (f *TMainForm) OnFormCreate(sender vcl.IObject) {
 	mnuFileOpen.SetOnClick(f.OnMnuFileOpenClick)
 	mnuFile.Add(mnuFileOpen)
 
+	mnuSep := vcl.NewMenuItem(mnuFile)
+	mnuSep.SetCaption("-") // Creates separator
+	mnuFile.Add(mnuSep)
+
+	mnuFileExit := vcl.NewMenuItem(mnuFile)
+	mnuFileExit.SetCaption("Exit")
+	mnuFileExit.SetOnClick(f.OnMnuFileExitClick)
+	mnuFile.Add(mnuFileExit)
+
 	f.Menu = vcl.NewMainMenu(f)
 	f.Menu.Items().Add(mnuFile)
 
@@ -110,6 +119,10 @@ func (f *TMainForm) OnMnuFileOpenClick(sender vcl.IObject) {
 	}
 }
 
+func (f *TMainForm) OnMnuFileExitClick(sender vcl.IObject) {
+	os.Exit(0)
+}
+
 func (f *TMainForm) OnNavChange(sender vcl.IObject, node *vcl.TTreeNode) {
 
 	if node.Data() == nil {