void praat_showLogo (bool autoPopDown) {
#if gtk
static const gchar *authors [3] = { "Paul Boersma", "David Weenink", nullptr };
GuiObject dialog = gtk_about_dialog_new ();
#define xstr(s) str(s)
#define str(s) #s
gtk_about_dialog_set_version (GTK_ABOUT_DIALOG (dialog), xstr (PRAAT_VERSION_STR));
gtk_about_dialog_set_copyright (GTK_ABOUT_DIALOG (dialog), "Copyright © 1992–" xstr(PRAAT_YEAR) " by Paul Boersma and David Weenink");
gtk_about_dialog_set_license (GTK_ABOUT_DIALOG (dialog), "GPL");
gtk_about_dialog_set_website (GTK_ABOUT_DIALOG (dialog), "http://www.praat.org");
//gtk_about_dialog_set_authors (GTK_ABOUT_DIALOG (dialog), authors);
g_signal_connect (GTK_DIALOG (dialog), "response", G_CALLBACK (gtk_widget_destroy), nullptr);
gtk_dialog_run (GTK_DIALOG (dialog));
#else
if (theCurrentPraatApplication -> batch || ! theLogo.draw) return;
if (! theLogo.dia) {
int width = theLogo.width_mm / 25.4 * Gui_getResolution (nullptr);
int height = theLogo.height_mm / 25.4 * Gui_getResolution (nullptr);
theLogo.dia = GuiDialog_create (theCurrentPraatApplication -> topShell, 100, 100, width, height,
U"About", gui_cb_goAway, nullptr, 0);
theLogo.form = theLogo.dia;
theLogo.drawingArea = GuiDrawingArea_createShown (theLogo.form, 0, width, 0, height,
gui_drawingarea_cb_expose, gui_drawingarea_cb_click, nullptr, nullptr, nullptr, 0);
}
GuiThing_show (theLogo.form);
GuiThing_show (theLogo.dia);
#if motif
if (autoPopDown)
GuiAddTimeOut (2000, logo_timeOut, (XtPointer) nullptr);
#endif
#endif
}
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)
}
