version 1.1, 2018/09/19 05:45:08 |
version 1.2, 2019/07/16 01:29:22 |
|
|
/* $OpenXM$ */ |
/* $OpenXM: OpenXM_contrib2/asir2018/lib/glib,v 1.1 2018/09/19 05:45:08 noro Exp $ */ |
|
|
/* BUG: this library has not yet been adapted to the new automatic launcher |
/* BUG: this library has not yet been adapted to the new automatic launcher |
of ox_plot. 2002, Aug, 4. Do not load glib more than twice. |
of ox_plot. 2002, Aug, 4. Do not load glib more than twice. |
Line 36 def glib_ox_get_errors(P) { |
|
Line 36 def glib_ox_get_errors(P) { |
|
} |
} |
|
|
def reset_plot() { |
def reset_plot() { |
|
/* It is no longer used. See, oxrfc103.rr */ |
extern Glib_process; |
extern Glib_process; |
if (!Cfep_loaded) { |
if (!Cfep_loaded) { |
print(" Sending signal to ox_plot",0); |
print(" Sending signal to ox_plot",0); |
Line 109 def glib_openx11() { |
|
Line 110 def glib_openx11() { |
|
#ifndef DO_NOT_START_SERVER_EXPLICITLY |
#ifndef DO_NOT_START_SERVER_EXPLICITLY |
if (type(Glib_server_started) == 0) { |
if (type(Glib_server_started) == 0) { |
Glib_process = ox_launch_nox(0,"ox_plot")$ |
Glib_process = ox_launch_nox(0,"ox_plot")$ |
register_handler(reset_plot); |
/* register_handler(reset_plot); */ |
Glib_server_started = 1$ |
Glib_server_started = 1$ |
}$ |
}$ |
Glib_canvas = open_Canvas(Glib_process,[Glib_canvas_x,Glib_canvas_y])$ |
Glib_canvas = open_Canvas(Glib_process,[Glib_canvas_x,Glib_canvas_y])$ |
#else |
#else |
Glib_canvas = open_Canvas(-1,[Glib_canvas_x,Glib_canvas_y])$ |
Glib_canvas = open_Canvas(-1,[Glib_canvas_x,Glib_canvas_y])$ |
register_handler(reset_plot); |
/* register_handler(reset_plot); */ |
Glib_server_started = 1$ |
Glib_server_started = 1$ |
#endif |
#endif |
glib_check_strict(); |
glib_check_strict(); |