ui/motif/window.c

/*
 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS HEADER.
 *
 * Copyright 2024 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 <errno.h>
#include <limits.h>
#include <unistd.h>

#include "window.h"

#include "toolkit.h"
#include "menu.h"
#include "toolbar.h"
#include "container.h"
#include "pathbar.h"
#include "../common/context.h"
#include "../common/utils.h"

#include "Grid.h"
#include "Fsb.h"

#include <cx/mempool.h>

static int nwindows = 0;

static int window_default_width = 600;
static int window_default_height = 500;

void ui_window_widget_destroy(UiObject *obj) {
    XtDestroyWidget(obj->widget);
    uic_object_destroy(obj);
    nwindows--;
    if(nwindows == 0) {
        ui_app_quit();
    }
}

static void window_close_handler(Widget window, void *udata, void *cdata) {
    UiObject *obj = udata;
     
    uic_context_prepare_close(obj->ctx);
    obj->ref--;
    if(obj->ref > 0) {
        XtUnmapWidget(obj->widget);
    } else {
        ui_window_widget_destroy(obj);
    }
}


static UiObject* create_window(const char *title, void *window_data, Boolean simple) {
    CxMempool *mp = cxMempoolCreateSimple(256);
    const CxAllocator *a = mp->allocator;
    UiObject *obj = uic_object_new_toplevel();
    obj->window = window_data;
    obj->destroy = ui_window_widget_destroy;
    
    int window_width = window_default_width;
    int window_height = window_default_height;
    if(!simple) {
        ui_get_window_default_width(&window_width, &window_height);
    }
    
    UiMotifAppWindow *appwindow = cxZalloc(a, sizeof(UiMotifAppWindow));
    // Because we store appwindow as userdata in the widget, we use this
    // magic field to check, if the pointer is actually the correct type.
    // This is a dubious technique, but this is only the last defense
    // mechanism against someone using the API wrong.
    appwindow->magic = UI_MOTIF_APP_WINDOW;
    
    Arg args[16];
    int n = 0;
    XtSetArg(args[n], XmNtitle, title); n++;
    XtSetArg(args[n], XmNminWidth, 100); n++;
    XtSetArg(args[n], XmNminHeight, 50); n++;
    XtSetArg(args[n], XmNwidth, window_width); n++;
    XtSetArg(args[n], XmNheight, window_height); n++;
    XtSetArg(args[n], XmNuserData, appwindow); n++;
    
    Widget toplevel = XtAppCreateShell(
            ui_appname(),
            "mainwindow",
            //applicationShellWidgetClass,
            vendorShellWidgetClass,
            ui_motif_get_display(),
            args,
            n);
    
    Atom wm_delete_window;
    wm_delete_window = XmInternAtom(
            XtDisplay(toplevel),
            "WM_DELETE_WINDOW",
            0);
    XmAddWMProtocolCallback(
            toplevel,
            wm_delete_window,
            window_close_handler,
            obj);
    
    Widget window = XtVaCreateManagedWidget(
            title,
            xmMainWindowWidgetClass,
            toplevel,
            NULL);
    
    // menu
    if(!simple) {
        appwindow->menubar = ui_create_menubar(obj, window);
    }
    
    // content frame
    n = 0;
    Widget frame = XmCreateFrame(window, "window_frame", args, n);
    XtManageChild(frame);
    
    Widget form = XmCreateForm(frame, "window_form", args, 0);
    XtManageChild(form);
    
    n = 0;
    XtSetArg(args[n], XmNtopAttachment, XmATTACH_FORM); n++;
    XtSetArg(args[n], XmNbottomAttachment, XmATTACH_FORM); n++;
    XtSetArg(args[n], XmNleftAttachment, XmATTACH_FORM); n++;
    XtSetArg(args[n], XmNrightAttachment, XmATTACH_FORM); n++;
    Widget vbox = XtCreateManagedWidget("window_vbox", gridClass, form, args, n);
    UiContainerX *container = ui_box_container(obj, vbox, UI_BOX_VERTICAL);
    uic_object_push_container(obj, container);
    
    obj->widget = toplevel;
    nwindows++;
    return obj;
} 

UiObject* ui_window(const char *title, void *window_data) {
    return create_window(title, window_data, FALSE);
}

UiObject* ui_simple_window(const char *title, void *window_data) {
    return create_window(title, window_data, TRUE);
}

void ui_window_size(UiObject *obj, int width, int height) {
    XtVaSetValues(obj->widget, XmNwidth, width, XmNheight, height, NULL);
}

void ui_window_default_size(int width, int height) {
    window_default_width = width;
    window_default_height = height;
}

void ui_window_menubar_set_visible(UiObject *obj, UiBool visible) {
    UiMotifAppWindow *window = NULL;
    XtVaGetValues(obj->widget, XmNuserData, &window, NULL);
    if(window) {
        if(window->magic != UI_MOTIF_APP_WINDOW) {
            fprintf(stderr, "Error: obj is not an app window\n");
            return;
        }
        if(window->menubar) {
            ui_set_visible(window->menubar, visible);
        }
    }
}

static void filedialog_event(UiEventData *event, int result, UiFileList flist) {
    UiEvent evt;
    evt.obj = event->obj;
    evt.document = evt.obj->ctx->document;
    evt.window = evt.obj->window;
    evt.intval = result;
    
    evt.eventdata = &flist;
    evt.eventdatatype = UI_EVENT_DATA_FILE_LIST;
    
    if(event->callback) {
        event->callback(&evt, event->userdata);
    }
}

static void filedialog_select(
        Widget widget,
        UiEventData *data,
        XmFileSelectionBoxCallbackStruct *selection)
{
    UiFileList flist;
    
    char *value = NULL;
    XmStringGetLtoR(selection->value, XmSTRING_DEFAULT_CHARSET, &value);
    flist.files = &value;
    flist.nfiles = 1;
    
    filedialog_event(data, 1, flist);
    
    XtFree(value);
    
    XtUnmanageChild(widget);
    XtDestroyWidget(widget);
}

static void filedialog_cancel(
        Widget widget,
        UiEventData *data,
        XmFileSelectionBoxCallbackStruct *selection)
{
    UiFileList flist;
    flist.files = NULL;
    flist.nfiles = 0;
    filedialog_event(data, 0, flist);
    
    XtUnmanageChild(widget);
    XtDestroyWidget(widget);
}

void ui_openfiledialog(UiObject *obj, unsigned int mode, ui_callback file_selected_callback, void *cbdata) {
    Widget dialog = XnCreateFileSelectionDialog(obj->widget, "dialog", NULL, 0);
    
    UiEventData *data = malloc(sizeof(UiEventData));
    memset(data, 0, sizeof(UiEventData));
    data->obj = obj;
    data->callback = file_selected_callback;
    data->userdata = cbdata;
    
    XtAddCallback(dialog, XmNokCallback, (XtCallbackProc)filedialog_select, data);
    XtAddCallback(dialog, XmNcancelCallback, (XtCallbackProc)filedialog_cancel, data);
    //XtAddCallback(dialog, XmNhelpCallback, (XtCallbackProc)filedialog_help, wd);
    
    XtManageChild(dialog);
}

void ui_savefiledialog(UiObject *obj, const char *name, ui_callback file_selected_callback, void *cbdata) {
    Arg args[16];
    int n = 0;
    
    // Save File Dialog needs this parameter
    XtSetArg(args[n], XnNfsbType, FILEDIALOG_SAVE); n++;
    char *selectedpath = (char*)name;
    if(name) {
        if(name[0] != '/') {
            char cwd[PATH_MAX];
            if(getcwd(cwd, PATH_MAX)) {
                pathbar_concat_path(cwd, name);
            } else {
                fprintf(stderr, "Error: getcwd failed: %s\n", strerror(errno));
                selectedpath = NULL;
            }
        }
        if(selectedpath) {
            XtSetArg(args[n], XnNselectedPath, selectedpath); n++;
        }
    }
    Widget dialog = XnCreateFileSelectionDialog(obj->widget, "dialog", args, n);
    
    UiEventData *data = malloc(sizeof(UiEventData));
    memset(data, 0, sizeof(UiEventData));
    data->obj = obj;
    data->callback = file_selected_callback;
    data->userdata = cbdata;
    
    XtAddCallback(dialog, XmNokCallback, (XtCallbackProc)filedialog_select, data);
    XtAddCallback(dialog, XmNcancelCallback, (XtCallbackProc)filedialog_cancel, data);
    //XtAddCallback(dialog, XmNhelpCallback, (XtCallbackProc)filedialog_help, wd);
    
    XtManageChild(dialog);
    
    if(selectedpath != name) {
        free(selectedpath);
    }
}