RunnerMFC RunnerMFC_create (const wchar_t *title, Ordered experiments) {
try {
autoRunnerMFC me = Thing_new (RunnerMFC);
Editor_init (me.peek(), 0, 0, 2000, 2000, title, NULL);
my experiments = experiments;
my graphics = Graphics_create_xmdrawingarea (my d_drawingArea);
struct structGuiDrawingAreaResizeEvent event = { my d_drawingArea, 0 };
event. width = my d_drawingArea -> f_getWidth ();
event. height = my d_drawingArea -> f_getHeight ();
gui_drawingarea_cb_resize (me.peek(), & event);
my iexperiment = 1;
RunnerMFC_startExperiment (me.peek());
return me.transfer();
} catch (MelderError) {
Melder_throw ("Experiment window not created.");
}
}
void HyperPage_init (HyperPage me, const wchar_t *title, Data data) {
resolution = Gui_getResolution (NULL);
Editor_init (me, 0, 0, 6 * resolution + 30, 800, title, data);
#if motif
Melder_assert (XtWindow (my drawingArea -> d_widget));
#endif
my g = Graphics_create_xmdrawingarea (my drawingArea);
Graphics_setAtSignIsLink (my g, TRUE);
Graphics_setDollarSignIsCode (my g, TRUE);
Graphics_setFont (my g, kGraphics_font_TIMES);
if (prefs_font != kGraphics_font_TIMES && prefs_font != kGraphics_font_HELVETICA)
prefs_font = kGraphics_font_TIMES; // ensure Unicode compatibility
my font = prefs_font;
setFontSize (me, prefs_fontSize);
struct structGuiDrawingAreaResizeEvent event = { my drawingArea, 0 };
event. width = my drawingArea -> f_getWidth ();
event. height = my drawingArea -> f_getHeight ();
gui_drawingarea_cb_resize (me, & event);
updateVerticalScrollBar (me); // scroll to the top (my top == 0)
}
