The results of a session with valgrind.

I'm surprised that this highly experimental code, built with chewing gum and chicken wire,
had so little problems, and most of those where leaks.  The majority of problems reported
are from external libraries.

1 files changed, 3 insertions, 2 deletions

diff --git a/src/GuiLua/GuiLua.c b/src/GuiLua/GuiLua.c
index 2fa9bcb..5815b45 100644
--- a/src/GuiLua/GuiLua.c
+++ b/src/GuiLua/GuiLua.c
@@ -204,6 +204,7 @@ static int action(lua_State *L)
   if (wid && strcmp(wid->magic, "Widget") == 0)
   {
 //PD("Setting action : %s\n", action);
+    free(wid->action);
     wid->action = strdup(action);
   }
   return 0;
@@ -302,7 +303,7 @@ static int window(lua_State *L)
   }
 
   win = winFangAdd(parent, 5, 26, w, h, title, name, world);
-  win->module = module;
+  win->module = strdup(module);
   if (gl)
   {
     // If there's no parent, we become the parent.
@@ -418,7 +419,7 @@ PD("GuiLua 3");
 
   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");
+  push_lua(L, "@ ( = $ $ & $ )",                skang, THINGASM, skang, "closeWindow",  "Closes a window.",                             closeWindow, "userdata", 0);
 
   // A test of the array building stuff.
   push_lua(L, "@ ( { = $ $ % $widget !required } )", skang, THINGASM, skang, "wibble", "It's wibbly!", 1, "'edit', 'The wibblinator:', 1, 1, 10, 50", 1, 0);