GuiScale GuiScale_create (GuiForm parent, int left, int right, int top, int bottom,
int minimum, int maximum, int value, unsigned long flags)
{
GuiScale me = Thing_new (GuiScale);
my d_shell = parent -> d_shell;
my d_parent = parent;
#if gtk
my d_widget = gtk_hscrollbar_new (NULL);
gtk_range_set_range (GTK_RANGE (my d_widget), 0, 1000);
GtkAdjustment *adj = gtk_range_get_adjustment (GTK_RANGE (my d_widget));
adj -> page_size = 150;
gtk_adjustment_changed (adj);
_GuiObject_setUserData (my d_widget, me);
my v_positionInForm (my d_widget, left, right, top, bottom, parent);
g_signal_connect (G_OBJECT (my d_widget), "destroy", G_CALLBACK (_GuiGtkScale_destroyCallback), me);
#elif cocoa
#elif motif
my d_widget = XmCreateScale (parent -> d_widget, "scale", NULL, 0);
_GuiObject_setUserData (my d_widget, me);
my v_positionInForm (my d_widget, left, right, top, bottom, parent);
XtVaSetValues (my d_widget, XmNorientation, XmHORIZONTAL,
XmNminimum, minimum, XmNmaximum, maximum, XmNvalue, value, //XmNy, 300,
#ifdef macintosh
//XmNscaleWidth, 340,
#endif
NULL);
#endif
return me;
}
GuiDrawingArea GuiDrawingArea_create (GuiForm parent, int left, int right, int top, int bottom,
void (*exposeCallback) (void *boss, GuiDrawingAreaExposeEvent event),
void (*clickCallback) (void *boss, GuiDrawingAreaClickEvent event),
void (*keyCallback) (void *boss, GuiDrawingAreaKeyEvent event),
void (*resizeCallback) (void *boss, GuiDrawingAreaResizeEvent event), void *boss,
unsigned long flags)
{
GuiDrawingArea me = Thing_new (GuiDrawingArea);
my d_shell = parent -> d_shell;
my d_parent = parent;
my d_exposeCallback = exposeCallback;
my d_exposeBoss = boss;
my d_clickCallback = clickCallback;
my d_clickBoss = boss;
my d_keyCallback = keyCallback;
my d_keyBoss = boss;
my d_resizeCallback = resizeCallback;
my d_resizeBoss = boss;
#if gtk
my d_widget = gtk_drawing_area_new ();
GdkEventMask mask = (GdkEventMask) (GDK_EXPOSURE_MASK // receive exposure events
| GDK_BUTTON_PRESS_MASK | GDK_BUTTON_RELEASE_MASK // receive click events
| GDK_BUTTON_MOTION_MASK // receive motion notifies when a button is pressed
| GDK_KEY_PRESS_MASK | GDK_KEY_RELEASE_MASK
| GDK_POINTER_MOTION_HINT_MASK); // receive fewer motion notify events (the cb might take time)
gtk_widget_set_events (GTK_WIDGET (my d_widget), mask);
g_signal_connect (G_OBJECT (my d_widget), "expose-event", G_CALLBACK (_GuiGtkDrawingArea_exposeCallback), me);
g_signal_connect (G_OBJECT (my d_widget), "destroy", G_CALLBACK (_GuiGtkDrawingArea_destroyCallback), me);
g_signal_connect (G_OBJECT (my d_widget), "button-press-event", G_CALLBACK (_GuiGtkDrawingArea_clickCallback), me);
g_signal_connect (G_OBJECT (my d_widget), "button-release-event", G_CALLBACK (_GuiGtkDrawingArea_clickCallback), me);
g_signal_connect (G_OBJECT (my d_widget), "motion-notify-event", G_CALLBACK (_GuiGtkDrawingArea_clickCallback), me);
if (parent != NULL) {
Melder_assert (parent -> d_widget);
g_signal_connect (G_OBJECT (gtk_widget_get_toplevel (GTK_WIDGET (parent -> d_widget))), "key-press-event",
G_CALLBACK (_GuiGtkDrawingArea_keyCallback), me);
}
g_signal_connect (G_OBJECT (my d_widget), "size-allocate", G_CALLBACK (_GuiGtkDrawingArea_resizeCallback), me);
// g_signal_connect (GTK_WIDGET (my d_widget), "activate", G_CALLBACK (_GuiGtkDrawingArea_activateCallback), me);
_GuiObject_setUserData (my d_widget, me);
my v_positionInForm (my d_widget, left, right, top, bottom, parent);
gtk_widget_set_double_buffered (GTK_WIDGET (my d_widget), FALSE);
#elif cocoa
#elif win
my d_widget = _Gui_initializeWidget (xmDrawingAreaWidgetClass, parent -> d_widget, L"drawingArea");
_GuiObject_setUserData (my d_widget, me);
my d_widget -> window = CreateWindowEx (0, _GuiWin_getDrawingAreaClassName (), L"drawingArea",
WS_CHILD | WS_BORDER | WS_CLIPSIBLINGS,
my d_widget -> x, my d_widget -> y, my d_widget -> width, my d_widget -> height, my d_widget -> parent -> window, NULL, theGui.instance, NULL);
SetWindowLongPtr (my d_widget -> window, GWLP_USERDATA, (LONG_PTR) my d_widget);
my v_positionInForm (my d_widget, left, right, top, bottom, parent);
#elif mac
my d_widget = _Gui_initializeWidget (xmDrawingAreaWidgetClass, parent -> d_widget, L"drawingArea");
_GuiObject_setUserData (my d_widget, me);
my v_positionInForm (my d_widget, left, right, top, bottom, parent);
#endif
return me;
}
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;
}
void structGuiOptionMenu :: f_init (GuiForm parent, int left, int right, int top, int bottom, unsigned long flags)
{
d_shell = parent -> d_shell;
d_parent = parent;
d_options = Ordered_create ();
#if gtk
d_widget = gtk_combo_box_new_text ();
gtk_widget_set_size_request (GTK_WIDGET (d_widget), right - left, bottom - top + 8);
gtk_fixed_put (GTK_FIXED (parent -> d_widget), GTK_WIDGET (d_widget), left, top - 6);
gtk_combo_box_set_focus_on_click (GTK_COMBO_BOX (d_widget), false);
GTK_WIDGET_UNSET_FLAGS (d_widget, GTK_CAN_DEFAULT);
#elif cocoa
d_widget = (GuiObject) [GuiCocoaOptionMenu alloc];
v_positionInForm (d_widget, left, right, top, bottom, parent);
[(GuiCocoaOptionMenu *) d_widget setUserData: this];
[(NSTextField *) d_widget setBezelStyle: NSRoundedBezelStyle];
[(NSTextField *) d_widget setBordered: NO];
[(NSTextField *) d_widget setSelectable: NO];
#elif motif
d_xmMenuBar = XmCreateMenuBar (parent -> d_widget, "UiOptionMenu", NULL, 0);
XtVaSetValues (d_xmMenuBar, XmNx, left - 4, XmNy, top - 4
#if mac
- 1
#endif
, XmNwidth, right - left + 8, XmNheight, bottom - top + 8, NULL);
d_xmCascadeButton = XmCreateCascadeButton (d_xmMenuBar, "choice", NULL, 0);
d_widget = XmCreatePulldownMenu (d_xmMenuBar, "choice", NULL, 0);
if (flags & GuiMenu_INSENSITIVE)
XtSetSensitive (d_widget, False);
XtVaSetValues (d_xmCascadeButton, XmNsubMenuId, d_widget, NULL);
XtManageChild (d_xmCascadeButton);
XtVaSetValues (d_xmMenuBar, XmNwidth, right - left + 8, NULL); // BUG: twice?
XtVaSetValues (d_xmCascadeButton, XmNx, 4, XmNy, 4, XmNwidth, right - left, XmNheight, bottom - top, NULL);
#endif
#if gtk
g_signal_connect (G_OBJECT (d_widget), "destroy", G_CALLBACK (_guiGtkOptionMenu_destroyCallback), this);
#elif cocoa
#elif motif
XtAddCallback (d_widget, XmNdestroyCallback, _guiMotifOptionMenu_destroyCallback, this);
#endif
}
