gsl-shell.git - gsl-shell

diff --git a/agg-plot/window.cpp b/agg-plot/window.cpp
index 4a412b7b..f48a725c 100644
--- a/agg-plot/window.cpp
+++ b/agg-plot/window.cpp

@@ -423,7 +423,14 @@ void window::start (lua_State *L, gslshell::ret_status& st)

int

window_new (lua_State *L)

{

- window *win = push_new_object<window>(L, GS_WINDOW, colors::white);

+ lua_getfield(L, LUA_REGISTRYINDEX, "__gsl_shell");

+ gsl_shell_state* gs = (gsl_shell_state*) lua_touserdata(L, -1);

+ lua_pop(L, 1);

+

+ if (unlikely(gs == NULL))

+ return luaL_error(L, "cannot create window: not a GSL Shell state");

+

+ window *win = push_new_object<window>(L, GS_WINDOW, gs);

const char *spec = lua_tostring (L, 1);

gslshell::ret_status st;