ui/motif/menu.c

/*
 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS HEADER.
 *
 * Copyright 2014 Olaf Wintermann. All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions are met:
 *
 *   1. Redistributions of source code must retain the above copyright
 *      notice, this list of conditions and the following disclaimer.
 *
 *   2. Redistributions in binary form must reproduce the above copyright
 *      notice, this list of conditions and the following disclaimer in the
 *      documentation and/or other materials provided with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 * POSSIBILITY OF SUCH DAMAGE.
 */

#include <stdio.h>
#include <stdlib.h>

#include "menu.h"
#include "button.h"
#include "toolkit.h"
#include "../common/context.h"
#include "../ui/window.h"

UcxList *menus;
UcxList *current;

void ui_menu(char *label) {
    // free current menu hierarchy
    ucx_list_free(current);
    
    // create menu
    UiMenu *menu = malloc(sizeof(UiMenu));
    menu->item.add_to = (ui_menu_add_f)add_menu_widget;
    
    menu->label  = label;
    menu->items  = NULL;
    menu->parent = NULL;    
    
    current = ucx_list_prepend(NULL, menu);
    menus = ucx_list_append(menus, menu);
    
}

void ui_submenu(char *label) {
    UiMenu *menu = malloc(sizeof(UiMenu));
    menu->item.add_to = (ui_menu_add_f)add_menu_widget;
    
    menu->label  = label;
    menu->items  = NULL;
    menu->parent = NULL;
    
    // add submenu to current menu
    UiMenu *cm = current->data;
    cm->items = ucx_list_append(cm->items, menu);
    
    // set the submenu to current menu
    current = ucx_list_prepend(current, menu);
}

void ui_submenu_end() {
    if(ucx_list_size(current) < 2) {
        return;
    }
    current = ucx_list_remove(current, current);
}

void ui_menuitem(char *label, ui_callback f, void *userdata) {
    if(!current) {
        return;
    }
    
    UiMenuItem *item = malloc(sizeof(UiMenuItem));
    item->item.add_to = (ui_menu_add_f)add_menuitem_widget;
    
    item->label = label;
    item->userdata = userdata;
    item->callback = f;
    
    UiMenu *cm = current->data;
    cm->items = ucx_list_append(cm->items, item);
}

void ui_menuseparator() {
    if(!current) {
        return;
    }
    
    UiMenuItemI *item = malloc(sizeof(UiMenuItemI));
    item->add_to = (ui_menu_add_f)add_menuseparator_widget;
    
    UiMenu *cm = current->data;
    cm->items = ucx_list_append(cm->items, item);
}


void ui_checkitem(char *label, ui_callback f, void *userdata) {
    if(!current) {
        return;
    }
    
    UiCheckItem *item = malloc(sizeof(UiCheckItem));
    item->item.add_to = (ui_menu_add_f)add_checkitem_widget;
    item->label = label;
    item->callback = f;
    item->userdata = userdata;
    
    UiMenu *cm = current->data;
    cm->items = ucx_list_append(cm->items, item);
}

void ui_checkitem_nv(char *label, char *vname) {
    if(!current) {
        return;
    }
    
    UiCheckItemNV *item = malloc(sizeof(UiCheckItemNV));
    item->item.add_to = (ui_menu_add_f)add_checkitemnv_widget;
    item->varname = vname;
    item->label = label;
    
    UiMenu *cm = current->data;
    cm->items = ucx_list_append(cm->items, item);
}


// private menu functions
void ui_create_menubar(UiObject *obj) {
    if(!menus) {
        return;
    }
    
    Widget menubar = XmCreateMenuBar(obj->widget, "main_list", NULL, 0);
    XtManageChild(menubar);
    
    UcxList *ls = menus;
    int menu_index = 0;
    while(ls) {
        UiMenu *menu = ls->data;
        menu_index += menu->item.add_to(menubar, menu_index, &menu->item, obj);
        
        ls = ls->next;
    }
}

int add_menu_widget(Widget parent, int i, UiMenuItemI *item, UiObject *obj) {
    UiMenu *menu = (UiMenu*)item;
    
    Widget menuItem = XtVaCreateManagedWidget(
            menu->label,
            xmCascadeButtonWidgetClass,
            parent,
            NULL);
    Widget m = XmVaCreateSimplePulldownMenu(parent, menu->label, i, NULL, NULL);
    
    UcxList *ls = menu->items;
    int menu_index = 0;
    while(ls) {
        UiMenuItemI *mi = ls->data;
        menu_index += mi->add_to(m, menu_index, mi, obj);
        ls = ls->next;
    }
    
    return 1;
}

int add_menuitem_widget(
        Widget parent,
        int i,
        UiMenuItemI *item,
        UiObject *obj)
{
    UiMenuItem *mi = (UiMenuItem*)item;
    
    Arg args[1];
    XmString label = XmStringCreateLocalized(mi->label);
    XtSetArg(args[0], XmNlabelString, label);
    
    Widget mitem = XtCreateManagedWidget(
            "menubutton",
            xmPushButtonWidgetClass,
            parent,
            args,
            1);
    XmStringFree(label);
    
    if(mi->callback != NULL) {
        UiEventData *event = ucx_mempool_malloc(
                obj->ctx->mempool,
                sizeof(UiEventData));
        event->obj = obj;
        event->user_data = mi->userdata;
        event->callback = mi->callback;
        XtAddCallback(mitem, XmNactivateCallback, ui_menu_event_wrapper, event);
    }
    
    return 1;
}

int add_menuseparator_widget(
        Widget parent,
        int i,
        UiMenuItemI *item,
        UiObject *obj)
{
    Widget s = XmCreateSeparatorGadget (parent, "menu_separator", NULL, 0);
    XtManageChild(s);
    return 1;
}

int add_checkitem_widget(
        Widget parent,
        int i,
        UiMenuItemI *item,
        UiObject *obj)
{
    UiCheckItem *ci = (UiCheckItem*)item;
    
    Arg args[3];
    XmString label = XmStringCreateLocalized(ci->label);
    XtSetArg(args[0], XmNlabelString, label);
    XtSetArg(args[1], XmNvisibleWhenOff, 1);
    Widget checkbox = XtCreateManagedWidget(
            "menutogglebutton",
            xmToggleButtonWidgetClass,
            parent,
            args,
            2);
    XmStringFree(label);
    
    if(ci->callback) {
        UiEventData *event = ucx_mempool_malloc(
                obj->ctx->mempool,
                sizeof(UiEventData));
        event->obj = obj;
        event->user_data = ci->userdata;
        event->callback = ci->callback;
        XtAddCallback(
            checkbox,
            XmNvalueChangedCallback,
            (XtCallbackProc)ui_toggle_button_callback,
            event);
    }
    
    return 1;
}

int add_checkitemnv_widget(
        Widget parent,
        int i,
        UiMenuItemI *item,
        UiObject *obj)
{
    UiCheckItemNV *ci = (UiCheckItemNV*)item;
    
    Arg args[3];
    XmString label = XmStringCreateLocalized(ci->label);
    XtSetArg(args[0], XmNlabelString, label);
    XtSetArg(args[1], XmNvisibleWhenOff, 1);
    Widget checkbox = XtCreateManagedWidget(
            "menutogglebutton",
            xmToggleButtonWidgetClass,
            parent,
            args,
            2);
    XmStringFree(label);
    
    UiVar *var = uic_getvar(obj, ci->varname);
    if(!var) {
        ui_window_addint(obj, ci->varname);
        var = uic_getvar(obj, ci->varname);
    }
    if(var->type == 1) {
        UiInteger *value = var->value;
        value->obj = checkbox;
        value->get = ui_toggle_button_get;
        value->set = ui_toggle_button_set;
        value = 0;
    } else {
        // TODO: error message
    }
}


void ui_menu_event_wrapper(Widget widget, XtPointer udata, XtPointer cdata) {
    UiEventData *event = udata;
    UiEvent e;
    e.obj = event->obj;
    e.window = event->obj->window;
    // TODO: e.document
    e.intval = 0;
    event->callback(&e, event->user_data);    
}