static void menu_cb_font (EDITOR_ARGS) {
EDITOR_IAM (HyperPage);
EDITOR_FORM (L"Font", 0)
RADIO (L"Font", 1)
RADIOBUTTON (L"Times")
RADIOBUTTON (L"Helvetica")
EDITOR_OK
SET_INTEGER (L"Font", my font == kGraphics_font_TIMES ? 1 :
my font == kGraphics_font_HELVETICA ? 2 : my font == kGraphics_font_PALATINO ? 3 : 1);
EDITOR_DO
int font = GET_INTEGER (L"Font");
prefs_font = my font = font == 1 ? kGraphics_font_TIMES : kGraphics_font_HELVETICA;
if (my g) Graphics_updateWs (my g);
EDITOR_END
}
static void menu_cb_addToFixedMenu (ScriptEditor me, EDITOR_ARGS_FORM) {
EDITOR_FORM (U"Add to fixed menu", U"Add to fixed menu...");
RADIO (U"Window", 1)
RADIOBUTTON (U"Objects")
RADIOBUTTON (U"Picture")
SENTENCE (U"Menu", U"New")
SENTENCE (U"Command", U"Do it...")
SENTENCE (U"After command", U"")
INTEGER (U"Depth", U"0")
LABEL (U"", U"Script file:")
TEXTFIELD (U"Script", U"")
EDITOR_OK
if (my name [0])
SET_STRING (U"Script", my name)
else
SET_STRING (U"Script", U"(please save your script first)")
EDITOR_DO
praat_addMenuCommandScript (GET_STRING (U"Window"),
GET_STRING (U"Menu"), GET_STRING (U"Command"), GET_STRING (U"After command"),
GET_INTEGER (U"Depth"), GET_STRING (U"Script"));
praat_show ();
EDITOR_END
}
