GuiLuaLoad() now returns the GuiLua it loaded, and adds the name. Use that for the purkle load in extantz.

2 files changed, 7 insertions, 3 deletions

diff --git a/src/GuiLua/GuiLua.c b/src/GuiLua/GuiLua.c
index c845ff1..d960da9 100644
--- a/src/GuiLua/GuiLua.c
+++ b/src/GuiLua/GuiLua.c
@@ -429,12 +429,15 @@ GuiLua *GuiLuaDo(int argc, char **argv, winFang *parent, EPhysics_World *world)
   return result;
 }
 
-void GuiLuaLoad(char *module, winFang *parent, EPhysics_World *world)
+GuiLua *GuiLuaLoad(char *module, winFang *parent, EPhysics_World *world)
 {
+  GuiLua *result;
   char *args[] = {"GuiLUa", "-l", ""};
 
   args[2] = module;
-  GuiLuaDo(3, args, parent, world);
+  result = GuiLuaDo(3, args, parent, world);
+  result->name = module;
+  return result;
 }
 
 void GuiLuaDel(GuiLua *gl)
diff --git a/src/GuiLua/GuiLua.h b/src/GuiLua/GuiLua.h
index 3bd2baf..9ee5a1f 100644
--- a/src/GuiLua/GuiLua.h
+++ b/src/GuiLua/GuiLua.h
@@ -18,6 +18,7 @@
 typedef struct _GuiLua
 {
   lua_State     *L;
+  char          *name;          // Name of the module.
   winFang       *us;            // Our window, if it exists.
   winFang       *parent;        // Our parent window, if it exists.
   EPhysics_World *world;        // Our world, if it exists.
@@ -31,7 +32,7 @@ typedef struct _GuiLua
 extern const char       *glName;
 
 GuiLua *GuiLuaDo(int argc, char **argv, winFang *parent, EPhysics_World *world);
-void GuiLuaLoad(char *module, winFang *parent, EPhysics_World *world);
+GuiLua *GuiLuaLoad(char *module, winFang *parent, EPhysics_World *world);
 void GuiLuaDel(GuiLua *gl);
 
 #endif