From 33106e9428174330cb94a47f4826cd5c22e97144 Mon Sep 17 00:00:00 2001
From: mitchell <70453897+667e-11@users.noreply.github.com>
Date: Sun, 21 Dec 2008 18:33:29 -0500
Subject: Finally added ability to quit Textadept from Lua.

---
 src/lua_interface.c | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'src/lua_interface.c')

diff --git a/src/lua_interface.c b/src/lua_interface.c
index 30dcc98f..3baef912 100644
--- a/src/lua_interface.c
+++ b/src/lua_interface.c
@@ -50,6 +50,7 @@ LF l_cf_ta_buffer_new(LS *lua),
    l_cf_ta_gtkmenu(LS *lua),
    l_cf_ta_popupmenu(LS *lua),
    l_cf_ta_reset(LS *lua),
+   l_cf_ta_quit(LS *lua),
    l_cf_pm_focus(LS *lua), l_cf_pm_clear(LS *lua), l_cf_pm_activate(LS *lua),
    l_cf_find_focus(LS *lua),
    l_cf_call_find_next(LS *lua), l_cf_call_find_prev(LS *lua),
@@ -116,6 +117,7 @@ bool l_init(int argc, char **argv, bool reinit) {
   l_cfunc(lua, l_cf_ta_gtkmenu, "gtkmenu");
   l_cfunc(lua, l_cf_ta_popupmenu, "popupmenu");
   l_cfunc(lua, l_cf_ta_reset, "reset");
+  l_cfunc(lua, l_cf_ta_quit, "quit");
   l_mt(lua, "_textadept_mt", l_ta_mt_index, l_ta_mt_newindex);
   lua_setglobal(lua, "textadept");
 
@@ -1403,6 +1405,15 @@ LF l_cf_ta_reset(LS *lua) {
   return 0;
 }
 
+LF l_cf_ta_quit(LS *) {
+  GdkEventAny event;
+  event.type = GDK_DELETE;
+  event.window = window->window;
+  event.send_event = TRUE;
+  gdk_event_put(reinterpret_cast<GdkEvent*>(&event));
+  return 0;
+}
+
 LF l_cf_pm_focus(LS *) {
   pm_toggle_focus();
   return 0;
-- 
cgit v1.2.3