diff -r ef4e2f560fa5 -r af5c2bfe0f21 ui/gtk/model.c
--- a/ui/gtk/model.c	Tue Jun 11 21:47:43 2024 +0200
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,549 +0,0 @@
-/*
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS HEADER.
- *
- * Copyright 2017 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 "model.h"
-#include "image.h"
-#include "toolkit.h"
-
-#define IS_UI_LIST_MODEL(obj) \
-        (G_TYPE_CHECK_INSTANCE_TYPE((obj), list_model_type))
-#define UI_LIST_MODEL(obj) \
-        (G_TYPE_CHECK_INSTANCE_CAST((obj), list_model_type, UiListModel))
-
-static void list_model_class_init(GObjectClass *cl, gpointer data);
-static void list_model_interface_init(GtkTreeModelIface *i, gpointer data);
-static void list_model_init(UiListModel *instance, GObjectClass *cl);
-
-static void list_model_dnd_dest_interface_init(GtkTreeDragDestIface *i, gpointer data);
-static void list_model_dnd_src_interface_init(GtkTreeDragSourceIface *i, gpointer data);
-
-static GObjectClass list_model_class;
-static const GTypeInfo list_model_info = {
-    sizeof(GObjectClass),
-    NULL,
-    NULL,
-    (GClassInitFunc)list_model_class_init,
-    NULL,
-    NULL,
-    sizeof(UiListModel),
-    0,
-    (GInstanceInitFunc)list_model_init
-};
-static const GInterfaceInfo list_model_interface_info = {
-    (GInterfaceInitFunc)list_model_interface_init,
-    NULL,
-    NULL
-};
-static GType list_model_type;
-
-static const GInterfaceInfo list_model_dnd_dest_interface_info = {
-    (GInterfaceInitFunc)list_model_dnd_dest_interface_init,
-    NULL,
-    NULL
-};
-static const GInterfaceInfo list_model_dnd_src_interface_info = {
-    (GInterfaceInitFunc)list_model_dnd_src_interface_init,
-    NULL,
-    NULL
-};
-
-void ui_list_init() {
-    list_model_type = g_type_register_static(
-            G_TYPE_OBJECT,
-            "UiListModel",
-            &list_model_info,
-            (GTypeFlags)0);
-    g_type_add_interface_static(
-            list_model_type,
-            GTK_TYPE_TREE_MODEL,
-            &list_model_interface_info);
-    g_type_add_interface_static(
-            list_model_type,
-            GTK_TYPE_TREE_DRAG_DEST,
-            &list_model_dnd_dest_interface_info);
-    g_type_add_interface_static(
-            list_model_type,
-            GTK_TYPE_TREE_DRAG_SOURCE,
-            &list_model_dnd_src_interface_info);
-}
-
-static void list_model_class_init(GObjectClass *cl, gpointer data) {
-    cl->dispose = ui_list_model_dispose;
-    cl->finalize = ui_list_model_finalize;
-    
-}
-
-static void list_model_interface_init(GtkTreeModelIface *i, gpointer data) {
-    i->get_flags       = ui_list_model_get_flags;
-    i->get_n_columns   = ui_list_model_get_n_columns;
-    i->get_column_type = ui_list_model_get_column_type;
-    i->get_iter        = ui_list_model_get_iter;
-    i->get_path        = ui_list_model_get_path;
-    i->get_value       = ui_list_model_get_value;
-    i->iter_next       = ui_list_model_iter_next;
-    i->iter_children   = ui_list_model_iter_children;
-    i->iter_has_child  = ui_list_model_iter_has_child;
-    i->iter_n_children = ui_list_model_iter_n_children;
-    i->iter_nth_child  = ui_list_model_iter_nth_child;
-    i->iter_parent     = ui_list_model_iter_parent;
-}
-
-static void list_model_dnd_dest_interface_init(GtkTreeDragDestIface *i, gpointer data) {
-    i->drag_data_received = ui_list_model_drag_data_received;
-    i->row_drop_possible = ui_list_model_row_drop_possible;
-}
-
-static void list_model_dnd_src_interface_init(GtkTreeDragSourceIface *i, gpointer data) {
-    i->drag_data_delete = ui_list_model_drag_data_delete;
-    i->drag_data_get = ui_list_model_drag_data_get;
-    i->row_draggable = ui_list_model_row_draggable;
-}
-
-static void list_model_init(UiListModel *instance, GObjectClass *cl) {
-    instance->columntypes = NULL;
-    instance->var = NULL;
-    instance->numcolumns = 0;
-    instance->stamp = g_random_int();
-}
-
-static GType ui_gtk_type(UiModelType type) {
-    switch(type) {
-        default: break;
-        case UI_STRING: return G_TYPE_STRING;
-        case UI_INTEGER: return G_TYPE_INT;
-    }
-    return G_TYPE_INVALID;
-}
-
-static void ui_model_set_value(GType type, void *data, GValue *value) {
-    switch(type) {
-        default: break;
-        case G_TYPE_OBJECT: {
-            value->g_type = G_TYPE_OBJECT;
-            g_value_set_object(value, data);
-            return;
-        }
-        case G_TYPE_STRING: {
-            value->g_type = G_TYPE_STRING;
-            g_value_set_string(value, data);
-            return;
-        }
-        case G_TYPE_INT: {
-            value->g_type = G_TYPE_INT;
-            int *i = data;
-            g_value_set_int(value, *i);
-            return;
-        }
-    }
-    value->g_type = G_TYPE_INVALID; 
-}
-
-UiListModel* ui_list_model_new(UiObject *obj, UiVar *var, UiModel *info) {
-    UiListModel *model = g_object_new(list_model_type, NULL);
-    model->obj = obj;
-    model->model = info;
-    model->var = var;
-    model->columntypes = calloc(sizeof(GType), 2 * info->columns);
-    int ncol = 0;
-    for(int i=0;i<info->columns;i++) {
-        UiModelType type = info->types[i];
-        if(type == UI_ICON_TEXT) {
-            model->columntypes[ncol] = G_TYPE_OBJECT;
-            ncol++;
-            model->columntypes[ncol] = G_TYPE_STRING;
-        } else {
-            model->columntypes[ncol] = ui_gtk_type(info->types[i]);
-        }
-        ncol++;
-    }
-    model->numcolumns = ncol;
-    return model;
-}
-
-void ui_list_model_dispose(GObject *obj) {
-    
-}
-
-void ui_list_model_finalize(GObject *obj) {
-    
-}
-
-
-GtkTreeModelFlags ui_list_model_get_flags(GtkTreeModel *tree_model) {
-    return (GTK_TREE_MODEL_LIST_ONLY | GTK_TREE_MODEL_ITERS_PERSIST);
-}
-
-gint ui_list_model_get_n_columns(GtkTreeModel *tree_model) {
-    g_return_val_if_fail(IS_UI_LIST_MODEL(tree_model), 0);
-    UiListModel *model = UI_LIST_MODEL(tree_model);
-    return model->numcolumns;
-}
-
-GType ui_list_model_get_column_type(GtkTreeModel *tree_model, gint index) {
-    g_return_val_if_fail(IS_UI_LIST_MODEL(tree_model), G_TYPE_INVALID);
-    UiListModel *model = UI_LIST_MODEL(tree_model);
-    g_return_val_if_fail(index < model->numcolumns, G_TYPE_INVALID);
-    return model->columntypes[index];
-}
-
-gboolean ui_list_model_get_iter(
-        GtkTreeModel *tree_model,
-        GtkTreeIter *iter,
-        GtkTreePath *path)
-{
-    g_assert(IS_UI_LIST_MODEL(tree_model));
-    UiListModel *model = UI_LIST_MODEL(tree_model);
-    UiList *list = model->var->value;
-    
-    // check the depth of the path
-    // a list must have a depth of 1
-    gint depth = gtk_tree_path_get_depth(path);
-    g_assert(depth == 1);
-    
-    // get row
-    gint *indices = gtk_tree_path_get_indices(path);
-    gint row = indices[0];
-    
-    // check row
-    if(row == 0) {
-        // we don't need to count if the first element is requested
-        if(list->first(list) == NULL) {
-            return FALSE;
-        }
-    } else if(row >= list->count(list)) {
-        return FALSE;
-    }
-    
-    // the UiList has an integrated iterator
-    // we only get a value to adjust it
-    void *val = NULL;
-    if(row == 0) {
-        val = list->first(list);
-    } else {
-        val = list->get(list, row);
-    }
-    
-    iter->stamp = model->stamp;
-    iter->user_data = list->iter;
-    iter->user_data2 = (gpointer)(intptr_t)row; // list->index
-    iter->user_data3 = val;
-    
-    return val ? TRUE : FALSE;
-}
-
-GtkTreePath* ui_list_model_get_path(
-        GtkTreeModel *tree_model,
-        GtkTreeIter *iter)
-{
-    g_return_val_if_fail(IS_UI_LIST_MODEL(tree_model), NULL);
-    g_return_val_if_fail(iter != NULL, NULL);
-    g_return_val_if_fail(iter->user_data != NULL, NULL);
-    
-    UiListModel *model = UI_LIST_MODEL(tree_model);
-    
-    GtkTreePath *path = gtk_tree_path_new();
-    gtk_tree_path_append_index(path, (int)(intptr_t)iter->user_data2); // list->index
-    
-    return path;
-}
-
-void ui_list_model_get_value(
-        GtkTreeModel *tree_model,
-        GtkTreeIter *iter,
-        gint column,
-        GValue *value)
-{
-    g_return_if_fail(IS_UI_LIST_MODEL(tree_model));
-    g_return_if_fail(iter != NULL);
-    g_return_if_fail(iter->user_data != NULL);
-    
-    UiListModel *model = UI_LIST_MODEL(tree_model);
-    UiList *list = model->var->value;
-    
-    g_return_if_fail(column < model->numcolumns);
-    
-    // TODO: return correct value from column
-    
-    //value->g_type = G_TYPE_STRING;
-    list->iter = iter->user_data;
-    //list->index = (int)(intptr_t)iter->user_data2;
-    //list->current = iter->user_data3;
-    if(model->model->getvalue) {
-        void *data = model->model->getvalue(iter->user_data3, column);
-        if(model->columntypes[column] == G_TYPE_OBJECT) {
-            UiImage *img = data;
-            ui_model_set_value(model->columntypes[column], img->pixbuf, value);
-        } else {
-            ui_model_set_value(model->columntypes[column], data, value);
-        }
-    } else {
-        value->g_type = G_TYPE_INVALID;
-    }
-}
-
-gboolean ui_list_model_iter_next(
-        GtkTreeModel *tree_model,
-        GtkTreeIter *iter)
-{
-    g_return_val_if_fail(IS_UI_LIST_MODEL(tree_model), FALSE);
-    g_return_val_if_fail(iter != NULL, FALSE);
-    //g_return_val_if_fail(iter->user_data != NULL, FALSE);
-    
-    if(!iter->user_data) {
-        return FALSE;
-    }
-    
-    UiListModel *model = UI_LIST_MODEL(tree_model);
-    UiList *list = model->var->value;
-    list->iter = iter->user_data;
-    //list->index = (int)(intptr_t)iter->user_data2;
-    void *val = list->next(list);
-    iter->user_data = list->iter;
-    intptr_t index = (intptr_t)iter->user_data2;
-    index++;
-    //iter->user_data2 = (gpointer)(intptr_t)list->index;
-    iter->user_data2 = (gpointer)index;
-    iter->user_data3 = val;
-    return val ? TRUE : FALSE;
-}
-
-gboolean ui_list_model_iter_children(
-        GtkTreeModel *tree_model,
-        GtkTreeIter *iter,
-        GtkTreeIter *parent)
-{
-    g_return_val_if_fail(IS_UI_LIST_MODEL(tree_model), FALSE);
-    
-    UiListModel *model = UI_LIST_MODEL(tree_model);
-    UiList *list = model->var->value;
-    
-    if(parent) {
-        return FALSE;
-    }
-    
-    /*
-     * a list element has no children
-     * we set the iter to the first element
-     */
-    void *val = list->first(list);
-    iter->stamp = model->stamp;
-    iter->user_data = list->iter;
-    iter->user_data2 = (gpointer)0;
-    iter->user_data3 = val;
-    
-    return val ? TRUE : FALSE;
-}
-
-gboolean ui_list_model_iter_has_child(
-        GtkTreeModel *tree_model,
-        GtkTreeIter *iter)
-{
-    return FALSE;
-}
-
-gint ui_list_model_iter_n_children(
-        GtkTreeModel *tree_model,
-        GtkTreeIter *iter)
-{
-    g_assert(IS_UI_LIST_MODEL(tree_model));
-    
-    if(!iter) {
-        // return number of rows
-        UiListModel *model = UI_LIST_MODEL(tree_model);
-        UiList *list = model->var->value;
-        return list->count(list);
-    }
-    
-    return 0;
-}
-
-gboolean ui_list_model_iter_nth_child(
-        GtkTreeModel *tree_model,
-        GtkTreeIter *iter,
-        GtkTreeIter *parent,
-        gint n)
-{
-    g_return_val_if_fail(IS_UI_LIST_MODEL(tree_model), FALSE);
-    
-    if(parent) {
-        return FALSE;
-    }
-    
-    UiListModel *model = UI_LIST_MODEL(tree_model);
-    UiList *list = model->var->value;
-    
-    // check n
-    if(n == 0) {
-        // we don't need to count if the first element is requested
-        if(list->first(list) == NULL) {
-            return FALSE;
-        }
-    } else if(n >= list->count(list)) {
-        return FALSE;
-    }
-    
-    void *val = list->get(list, n);
-    iter->stamp = model->stamp;
-    iter->user_data = list->iter;
-    iter->user_data2 = (gpointer)(intptr_t)n; // list->index
-    iter->user_data3 = val;
-    
-    return val ? TRUE : FALSE;
-}
-
-gboolean ui_list_model_iter_parent(
-        GtkTreeModel *tree_model,
-        GtkTreeIter *iter,
-        GtkTreeIter *child)
-{
-    return FALSE;
-}
-
-// ****** dnd ******
-
-gboolean ui_list_model_drag_data_received(
-        GtkTreeDragDest   *drag_dest,
-        GtkTreePath       *dest_path,
-        GtkSelectionData  *selection_data)
-{
-    //printf("drag received\n");
-    UiListModel *model = UI_LIST_MODEL(drag_dest);
-    /*
-    if(model->model->drop) {
-        gint *indices = gtk_tree_path_get_indices(dest_path);
-        gint row = indices[0];
-        UiEvent e;
-        e.obj = model->obj;
-        e.window = e.obj->window;
-        e.document = e.obj->ctx->document;
-        e.eventdata = NULL;
-        e.intval = 0;
-        UiSelection s;
-        s.data = selection_data;
-        model->model->drop(&e, &s, model->var->value, row);
-    }
-    */
-    return TRUE;
-}
-
-gboolean ui_list_model_row_drop_possible(
-        GtkTreeDragDest   *drag_dest,
-        GtkTreePath       *dest_path,
-	GtkSelectionData  *selection_data)
-{
-    //printf("row_drop_possible\n");
-    UiListModel *model = UI_LIST_MODEL(drag_dest);
-    /*
-    if(model->model->candrop) {
-        gint *indices = gtk_tree_path_get_indices(dest_path);
-        gint row = indices[0];
-        UiEvent e;
-        e.obj = model->obj;
-        e.window = e.obj->window;
-        e.document = e.obj->ctx->document;
-        e.eventdata = NULL;
-        e.intval = 0;
-        UiSelection s;
-        s.data = selection_data;
-        return model->model->candrop(&e, &s, model->var->value, row);
-    }
-    */
-    return TRUE;
-}
-
-gboolean ui_list_model_row_draggable(
-        GtkTreeDragSource   *drag_source,
-        GtkTreePath         *path)
-{
-    //printf("row_draggable\n");
-    UiListModel *model = UI_LIST_MODEL(drag_source);
-    /*
-    if(model->model->candrag) {
-        gint *indices = gtk_tree_path_get_indices(path);
-        gint row = indices[0];
-        UiEvent e;
-        e.obj = model->obj;
-        e.window = e.obj->window;
-        e.document = e.obj->ctx->document;
-        e.eventdata = NULL;
-        e.intval = 0;
-        return model->model->candrag(&e, model->var->value, row);
-    }
-    */
-    return TRUE;
-}
-
-gboolean ui_list_model_drag_data_get(
-        GtkTreeDragSource   *drag_source,
-        GtkTreePath         *path,
-        GtkSelectionData    *selection_data)
-{
-    //printf("drag_data_get\n");
-    UiListModel *model = UI_LIST_MODEL(drag_source);
-    /*
-    if(model->model->data_get) {
-        gint *indices = gtk_tree_path_get_indices(path);
-        gint row = indices[0];
-        UiEvent e;
-        e.obj = model->obj;
-        e.window = e.obj->window;
-        e.document = e.obj->ctx->document;
-        e.eventdata = NULL;
-        e.intval = 0;
-        UiSelection s;
-        s.data = selection_data;
-        model->model->data_get(&e, &s, model->var->value, row);
-    }
-    */
-    return TRUE;
-}
-
-gboolean ui_list_model_drag_data_delete(
-        GtkTreeDragSource *drag_source,
-        GtkTreePath       *path)
-{
-    //printf("drag_data_delete\n");
-    UiListModel *model = UI_LIST_MODEL(drag_source);
-    /*
-    if(model->model->data_get) {
-        gint *indices = gtk_tree_path_get_indices(path);
-        gint row = indices[0];
-        UiEvent e;
-        e.obj = model->obj;
-        e.window = e.obj->window;
-        e.document = e.obj->ctx->document;
-        e.eventdata = NULL;
-        e.intval = 0;
-        model->model->data_delete(&e, model->var->value, row);
-    }
-    */
-    return TRUE;
-}