static void NativeMenuItem_setText (GuiObject me) {
int acc = my motiff.pushButton.acceleratorChar, modifiers = my motiff.pushButton.acceleratorModifiers;
static MelderString title { 0 };
if (acc == 0) {
MelderString_copy (& title, _GuiWin_expandAmpersands (my name));
} else {
static const char32 *keyStrings [256] = {
0, U"<-", U"->", U"Up", U"Down", U"PAUSE", U"Del", U"Ins", U"Backspace", U"Tab", U"LineFeed", U"Home", U"End", U"Enter", U"PageUp", U"PageDown",
U"Esc", U"F1", U"F2", U"F3", U"F4", U"F5", U"F6", U"F7", U"F8", U"F9", U"F10", U"F11", U"F12", 0, 0, 0,
U"Space", U"!", U"\"", U"#", U"$", U"%", U"&", U"\'", U"(", U")", U"*", U"+", U",", U"-", U".", U"/",
U"0", U"1", U"2", U"3", U"4", U"5", U"6", U"7", U"8", U"9", U":", U";", U"<", U"=", U">", U"?",
U"@", U"A", U"B", U"C", U"D", U"E", U"F", U"G", U"H", U"I", U"J", U"K", U"L", U"M", U"N", U"O",
U"P", U"Q", U"R", U"S", U"T", U"U", U"V", U"W", U"X", U"Y", U"Z", U"[", U"\\", U"]", U"^", U"_",
U"`", U"a", U"b", U"c", U"d", U"e", U"f", U"g", U"h", U"i", U"j", U"k", U"l", U"m", U"n", U"o",
U"p", U"q", U"r", U"s", U"t", U"u", U"v", U"w", U"x", U"y", U"z", U"{", U"|", U"}", U"~", U"Del",
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, U"[", U"]", U",", U"?", U".", U"\\",
U";", 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, U"-", U"`", U"=", U"\'", 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 };
const char32 *keyString = keyStrings [acc] ? keyStrings [acc] : U"???";
MelderString_copy (& title, _GuiWin_expandAmpersands (my name), U"\t",
modifiers & _motif_COMMAND_MASK ? U"Ctrl-" : nullptr,
modifiers & _motif_OPTION_MASK ? U"Alt-" : nullptr,
modifiers & _motif_SHIFT_MASK ? U"Shift-" : nullptr, keyString);
}
ModifyMenu (my nat.entry.handle, my nat.entry.id, MF_BYCOMMAND | MF_STRING, my nat.entry.id, Melder_peek32toW (title.string));
}
static void NativeMenuItem_setText (GuiObject me) {
int acc = my motiff.pushButton.acceleratorChar, modifiers = my motiff.pushButton.acceleratorModifiers;
#if win
static MelderString title = { 0 };
if (acc == 0) {
MelderString_copy (& title, _GuiWin_expandAmpersands (my name));
} else {
static const wchar_t *keyStrings [256] = {
0, L"<-", L"->", L"Up", L"Down", L"PAUSE", L"Del", L"Ins", L"Backspace", L"Tab", L"LineFeed", L"Home", L"End", L"Enter", L"PageUp", L"PageDown",
L"Esc", L"F1", L"F2", L"F3", L"F4", L"F5", L"F6", L"F7", L"F8", L"F9", L"F10", L"F11", L"F12", 0, 0, 0,
L"Space", L"!", L"\"", L"#", L"$", L"%", L"&", L"\'", L"(", L")", L"*", L"+", L",", L"-", L".", L"/",
L"0", L"1", L"2", L"3", L"4", L"5", L"6", L"7", L"8", L"9", L":", L";", L"<", L"=", L">", L"?",
L"@", L"A", L"B", L"C", L"D", L"E", L"F", L"G", L"H", L"I", L"J", L"K", L"L", L"M", L"N", L"O",
L"P", L"Q", L"R", L"S", L"T", L"U", L"V", L"W", L"X", L"Y", L"Z", L"[", L"\\", L"]", L"^", L"_",
L"`", L"a", L"b", L"c", L"d", L"e", L"f", L"g", L"h", L"i", L"j", L"k", L"l", L"m", L"n", L"o",
L"p", L"q", L"r", L"s", L"t", L"u", L"v", L"w", L"x", L"y", L"z", L"{", L"|", L"}", L"~", L"Del",
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, L"[", L"]", L",", L"?", L".", L"\\",
L";", 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, L"-", L"`", L"=", L"\'", 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 };
const wchar_t *keyString = keyStrings [acc] ? keyStrings [acc] : L"???";
MelderString_empty (& title);
MelderString_append (& title, _GuiWin_expandAmpersands (my name), L"\t",
modifiers & _motif_COMMAND_MASK ? L"Ctrl-" : NULL,
modifiers & _motif_OPTION_MASK ? L"Alt-" : NULL,
modifiers & _motif_SHIFT_MASK ? L"Shift-" : NULL, keyString);
}
ModifyMenu (my nat.entry.handle, my nat.entry.id, MF_BYCOMMAND | MF_STRING, my nat.entry.id, title.string);
#elif mac
static int theGlyphs [1+31] = { 0,
kMenuLeftArrowDashedGlyph, kMenuRightArrowDashedGlyph, kMenuUpArrowDashedGlyph, kMenuDownwardArrowDashedGlyph, 0,
kMenuDeleteRightGlyph, 0, kMenuDeleteLeftGlyph, kMenuTabRightGlyph, 0,
0, 0, kMenuReturnGlyph, kMenuPageUpGlyph, kMenuPageDownGlyph,
kMenuEscapeGlyph, kMenuF1Glyph, kMenuF2Glyph, kMenuF3Glyph, kMenuF4Glyph,
kMenuF5Glyph, kMenuF6Glyph, kMenuF7Glyph, kMenuF8Glyph, kMenuF9Glyph,
kMenuF10Glyph, kMenuF11Glyph, kMenuF12Glyph, 0, 0,
0 };
SetMenuItemTextWithCFString (my nat.entry.handle, my nat.entry.item, (CFStringRef) Melder_peekWcsToCfstring (my name));
if (acc > 32) {
SetItemCmd (my nat.entry.handle, my nat.entry.item, acc);
} else {
Melder_assert (acc > 0 && acc < 32);
SetItemCmd (my nat.entry.handle, my nat.entry.item, ' '); /* Funny that this should be needed. */
SetMenuItemKeyGlyph (my nat.entry.handle, my nat.entry.item, theGlyphs [acc]);
}
SetMenuItemModifiers (my nat.entry.handle, my nat.entry.item,
( modifiers & _motif_OPTION_MASK ? kMenuOptionModifier : 0 ) +
( modifiers & _motif_SHIFT_MASK ? kMenuShiftModifier : 0 ) +
( modifiers & _motif_COMMAND_MASK ? 0 : kMenuNoCommandModifier ));
#endif
}
static void NativeMenuItem_setText (GuiObject me) {
int acc = my motiff.pushButton.acceleratorChar, modifiers = my motiff.pushButton.acceleratorModifiers;
#if win
static MelderString title { 0 };
if (acc == 0) {
MelderString_copy (& title, _GuiWin_expandAmpersands (my name));
} else {
static const char32 *keyStrings [256] = {
0, U"<-", U"->", U"Up", U"Down", U"PAUSE", U"Del", U"Ins", U"Backspace", U"Tab", U"LineFeed", U"Home", U"End", U"Enter", U"PageUp", U"PageDown",
U"Esc", U"F1", U"F2", U"F3", U"F4", U"F5", U"F6", U"F7", U"F8", U"F9", U"F10", U"F11", U"F12", 0, 0, 0,
U"Space", U"!", U"\"", U"#", U"$", U"%", U"&", U"\'", U"(", U")", U"*", U"+", U",", U"-", U".", U"/",
U"0", U"1", U"2", U"3", U"4", U"5", U"6", U"7", U"8", U"9", U":", U";", U"<", U"=", U">", U"?",
U"@", U"A", U"B", U"C", U"D", U"E", U"F", U"G", U"H", U"I", U"J", U"K", U"L", U"M", U"N", U"O",
U"P", U"Q", U"R", U"S", U"T", U"U", U"V", U"W", U"X", U"Y", U"Z", U"[", U"\\", U"]", U"^", U"_",
U"`", U"a", U"b", U"c", U"d", U"e", U"f", U"g", U"h", U"i", U"j", U"k", U"l", U"m", U"n", U"o",
U"p", U"q", U"r", U"s", U"t", U"u", U"v", U"w", U"x", U"y", U"z", U"{", U"|", U"}", U"~", U"Del",
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, U"[", U"]", U",", U"?", U".", U"\\",
U";", 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, U"-", U"`", U"=", U"\'", 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 };
const char32 *keyString = keyStrings [acc] ? keyStrings [acc] : U"???";
MelderString_copy (& title, _GuiWin_expandAmpersands (my name), U"\t",
modifiers & _motif_COMMAND_MASK ? U"Ctrl-" : nullptr,
modifiers & _motif_OPTION_MASK ? U"Alt-" : nullptr,
modifiers & _motif_SHIFT_MASK ? U"Shift-" : nullptr, keyString);
}
ModifyMenu (my nat.entry.handle, my nat.entry.id, MF_BYCOMMAND | MF_STRING, my nat.entry.id, Melder_peek32toW (title.string));
#elif mac
static int theGlyphs [1+31] = { 0,
kMenuLeftArrowDashedGlyph, kMenuRightArrowDashedGlyph, kMenuUpArrowDashedGlyph, kMenuDownwardArrowDashedGlyph, 0,
kMenuDeleteRightGlyph, 0, kMenuDeleteLeftGlyph, kMenuTabRightGlyph, 0,
0, 0, kMenuReturnGlyph, kMenuPageUpGlyph, kMenuPageDownGlyph,
kMenuEscapeGlyph, kMenuF1Glyph, kMenuF2Glyph, kMenuF3Glyph, kMenuF4Glyph,
kMenuF5Glyph, kMenuF6Glyph, kMenuF7Glyph, kMenuF8Glyph, kMenuF9Glyph,
kMenuF10Glyph, kMenuF11Glyph, kMenuF12Glyph, 0, 0,
0 };
SetMenuItemTextWithCFString (my nat.entry.handle, my nat.entry.item, (CFStringRef) Melder_peek32toCfstring (my name));
if (acc > 32) {
SetItemCmd (my nat.entry.handle, my nat.entry.item, acc);
} else {
Melder_assert (acc > 0 && acc < 32);
SetItemCmd (my nat.entry.handle, my nat.entry.item, ' '); /* Funny that this should be needed. */
SetMenuItemKeyGlyph (my nat.entry.handle, my nat.entry.item, theGlyphs [acc]);
}
SetMenuItemModifiers (my nat.entry.handle, my nat.entry.item,
( modifiers & _motif_OPTION_MASK ? kMenuOptionModifier : 0 ) +
( modifiers & _motif_SHIFT_MASK ? kMenuShiftModifier : 0 ) +
( modifiers & _motif_COMMAND_MASK ? 0 : kMenuNoCommandModifier ));
#endif
}
GuiCheckButton GuiCheckButton_create (GuiForm parent, int left, int right, int top, int bottom,
const wchar_t *buttonText, void (*valueChangedCallback) (void *boss, GuiCheckButtonEvent event), void *valueChangedBoss, unsigned long flags)
{
GuiCheckButton me = Thing_new (GuiCheckButton);
my d_shell = parent -> d_shell;
my d_parent = parent;
my d_valueChangedCallback = valueChangedCallback;
my d_valueChangedBoss = valueChangedBoss;
#if gtk
my d_widget = gtk_check_button_new_with_label (Melder_peekWcsToUtf8 (buttonText));
_GuiObject_setUserData (my d_widget, me);
my v_positionInForm (my d_widget, left, right, top, bottom, parent);
gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (my d_widget), (flags & GuiCheckButton_SET) != 0);
if (flags & GuiCheckButton_INSENSITIVE) {
my f_setSensitive (false);
}
g_signal_connect (G_OBJECT (my d_widget), "destroy", G_CALLBACK (_GuiGtkCheckButton_destroyCallback), me);
my d_valueChangedHandlerId = g_signal_connect (GTK_TOGGLE_BUTTON (my d_widget), "toggled", G_CALLBACK (_GuiGtkCheckButton_valueChangedCallback), me);
#elif cocoa
#elif win
my d_widget = _Gui_initializeWidget (xmToggleButtonWidgetClass, parent -> d_widget, buttonText);
_GuiObject_setUserData (my d_widget, me);
my d_widget -> isRadioButton = false;
my d_widget -> window = CreateWindow (L"button", _GuiWin_expandAmpersands (buttonText),
WS_CHILD | BS_AUTOCHECKBOX | WS_CLIPSIBLINGS,
my d_widget -> x, my d_widget -> y, my d_widget -> width, my d_widget -> height,
my d_widget -> parent -> window, (HMENU) 1, theGui.instance, NULL);
SetWindowLongPtr (my d_widget -> window, GWLP_USERDATA, (LONG_PTR) my d_widget);
SetWindowFont (my d_widget -> window, GetStockFont (ANSI_VAR_FONT), FALSE);
my v_positionInForm (my d_widget, left, right, top, bottom, parent);
if (flags & GuiCheckButton_SET) {
Button_SetCheck (my d_widget -> window, BST_CHECKED);
}
if (flags & GuiCheckButton_INSENSITIVE) {
my f_setSensitive (false);
}
#elif mac
my d_widget = _Gui_initializeWidget (xmToggleButtonWidgetClass, parent -> d_widget, buttonText);
_GuiObject_setUserData (my d_widget, me);
my d_widget -> isRadioButton = false;
CreateCheckBoxControl (my d_widget -> macWindow, & my d_widget -> rect, NULL,
(flags & GuiCheckButton_SET) != 0, true, & my d_widget -> nat.control.handle);
Melder_assert (my d_widget -> nat.control.handle != NULL);
SetControlReference (my d_widget -> nat.control.handle, (long) my d_widget);
my d_widget -> isControl = true;
_GuiNativeControl_setFont (my d_widget, 0, 13);
_GuiNativeControl_setTitle (my d_widget);
my v_positionInForm (my d_widget, left, right, top, bottom, parent);
if (flags & GuiCheckButton_INSENSITIVE) {
my f_setSensitive (false);
}
#endif
return me;
}
