Implement FOX plot window - gsl-shell.git - gsl-shell

diff --git a/lua-gsl/gs-types.c b/lua-gsl/gs-types.c
index 4d56cabe..3f6b68a6 100644
--- a/lua-gsl/gs-types.c
+++ b/lua-gsl/gs-types.c

@@ -9,6 +9,7 @@

#include <math.h>

#define GS_WINDOW_NAME_DEF "GSL.window"

+#define GS_FOX_WINDOW_NAME_DEF "GSL.FOXwindow"

#define GS_DRAW_SCALABLE_NAME_DEF NULL

#define GS_DRAW_PATH_NAME_DEF "GSL.path"

#define GS_DRAW_ELLIPSE_NAME_DEF "GSL.ellipse"

@@ -27,6 +28,7 @@

#define MY_EXPAND_DER(NM,DESCR,BASE) {MYCAT2(GS,NM), MYCAT3(GS,NM,NAME_DEF), DESCR, MYCAT2(GS,BASE)}

const struct gs_type gs_type_table[] = {

+ MY_EXPAND(FOX_WINDOW, "FOX graphical window"),

MY_EXPAND(WINDOW, "graphical window"),

MY_EXPAND(DRAW_SCALABLE, "graphical object"),

MY_EXPAND_DER(DRAW_PATH, "geometric line", DRAW_SCALABLE),

diff --git a/lua-gsl/gs-types.h b/lua-gsl/gs-types.h
index ed90f8c0..5437696f 100644
--- a/lua-gsl/gs-types.h
+++ b/lua-gsl/gs-types.h

@@ -11,6 +11,7 @@ __BEGIN_DECLS

enum gs_type_e {

GS_NO_TYPE = -1,

GS_WINDOW = 0,

+ GS_FOX_WINDOW,

GS_DRAW_SCALABLE, /* derived types are declared only after their base class */

GS_DRAW_PATH,

GS_DRAW_ELLIPSE,