From 22c309e3a8ba451e568db05e31a7e6284cca8f80 Mon Sep 17 00:00:00 2001
From: David Walter Seikel
Date: Sun, 18 May 2014 09:52:30 +1000
Subject: Implement hiding and showing window Lua functions.

---
 src/GuiLua/GuiLua.c | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

(limited to 'src/GuiLua')

diff --git a/src/GuiLua/GuiLua.c b/src/GuiLua/GuiLua.c
index 5a30ff9..2fa9bcb 100644
--- a/src/GuiLua/GuiLua.c
+++ b/src/GuiLua/GuiLua.c
@@ -234,6 +234,24 @@ static int widShow(lua_State *L)
   return 0;
 }
 
+static int winHide(lua_State *L)
+{
+  winFang *win = lua_touserdata(L, 1);
+
+  if (win)
+    winFangHide(win);
+  return 0;
+}
+
+static int winShow(lua_State *L)
+{
+  winFang *win = lua_touserdata(L, 1);
+
+  if (win)
+    winFangShow(win);
+  return 0;
+}
+
 static int text(lua_State *L)
 {
   Widget *wid = lua_touserdata(L, 1);
@@ -395,6 +413,9 @@ PD("GuiLua 3");
   push_lua(L, "@ ( = $ $ & )",			skang, THINGASM, skang, "show",		"Show a widget.",				widShow, 0);
   push_lua(L, "@ ( = $ $ & $ )",		skang, THINGASM, skang, "text",		"Set the text for a widget.",			text, "string", 0);
 
+  push_lua(L, "@ ( = $ $ & )",			skang, THINGASM, skang, "vanish",	"Hide a window.",				winHide, 0);
+  push_lua(L, "@ ( = $ $ & )",			skang, THINGASM, skang, "appear",	"Show a window.",				winShow, 0);
+
   push_lua(L, "@ ( = $ $ & )",			skang, THINGASM, skang, "loopWindow",	"Run our windows main loop.",			loopWindow, 0);
   push_lua(L, "@ ( = $ $ & )",			skang, THINGASM, skang, "quit",		"Quit, exit, remove thyself.",			quit, 0);
   push_lua(L, "@ ( = $ $ & $ )",		skang, THINGASM, skang, "closeWindow",	"Closes a window.",				closeWindow, "userdata", 0); // TODO - closeWindow, "userdata");
-- 
cgit v1.1