bare-gtk 0.2.1 → 0.3.0

package/lib/widget.h

@@ -1,9 +1,13 @@
+#ifndef BARE_GTK_WIDGET_H
+#define BARE_GTK_WIDGET_H
+
 #include <assert.h>
-#include <bare.h>
 #include <js.h>
 
 #include <gtk/gtk.h>
 
+#include "bridging.h"
+
 static js_value_t *
 bare_gtk_widget_visible(js_env_t *env, js_callback_info_t *info) {
   int err;
@@ -11,16 +15,15 @@ bare_gtk_widget_visible(js_env_t *env, js_callback_info_t *info) {
   size_t argc = 2;
   js_value_t *argv[2];
 
-  err = js_get_callback_info(env, info, &argc, argv, NULL, NULL);
+  bare_gtk_state_t *state;
+  err = js_get_callback_info(env, info, &argc, argv, NULL, (void **) &state);
   assert(err == 0);
 
   assert(argc == 1 || argc == 2);
 
-  void *handle;
-  err = js_get_value_external(env, argv[0], &handle);
-  assert(err == 0);
-
-  GtkWidget *widget = handle;
+  GtkWidget *widget;
+  err = bare_gobject_read_tag(env, state->registry, argv[0], "widget", (gpointer *) &widget);
+  if (err < 0) return NULL;
 
   js_value_t *result = NULL;
 
@@ -29,8 +32,8 @@ bare_gtk_widget_visible(js_env_t *env, js_callback_info_t *info) {
     assert(err == 0);
   } else {
     bool visible;
-    err = js_get_value_bool(env, argv[1], &visible);
-    assert(err == 0);
+    err = bare_gtk__read_bool(env, argv[1], "visible", &visible);
+    if (err < 0) return NULL;
 
     gtk_widget_set_visible(widget, visible);
   }
@@ -38,6 +41,128 @@ bare_gtk_widget_visible(js_env_t *env, js_callback_info_t *info) {
   return result;
 }
 
+static js_value_t *
+bare_gtk_widget_sensitive(js_env_t *env, js_callback_info_t *info) {
+  int err;
+
+  size_t argc = 2;
+  js_value_t *argv[2];
+
+  bare_gtk_state_t *state;
+  err = js_get_callback_info(env, info, &argc, argv, NULL, (void **) &state);
+  assert(err == 0);
+
+  assert(argc == 1 || argc == 2);
+
+  GtkWidget *widget;
+  err = bare_gobject_read_tag(env, state->registry, argv[0], "widget", (gpointer *) &widget);
+  if (err < 0) return NULL;
+
+  js_value_t *result = NULL;
+
+  if (argc == 1) {
+    err = js_get_boolean(env, gtk_widget_get_sensitive(widget), &result);
+    assert(err == 0);
+  } else {
+    bool sensitive;
+    err = bare_gtk__read_bool(env, argv[1], "sensitive", &sensitive);
+    if (err < 0) return NULL;
+
+    gtk_widget_set_sensitive(widget, sensitive);
+  }
+
+  return result;
+}
+
+static js_value_t *
+bare_gtk_widget_can_target(js_env_t *env, js_callback_info_t *info) {
+  int err;
+
+  size_t argc = 2;
+  js_value_t *argv[2];
+
+  bare_gtk_state_t *state;
+  err = js_get_callback_info(env, info, &argc, argv, NULL, (void **) &state);
+  assert(err == 0);
+
+  assert(argc == 1 || argc == 2);
+
+  GtkWidget *widget;
+  err = bare_gobject_read_tag(env, state->registry, argv[0], "widget", (gpointer *) &widget);
+  if (err < 0) return NULL;
+
+  js_value_t *result = NULL;
+
+  if (argc == 1) {
+    err = js_get_boolean(env, gtk_widget_get_can_target(widget), &result);
+    assert(err == 0);
+  } else {
+    bool can_target;
+    err = bare_gtk__read_bool(env, argv[1], "can_target", &can_target);
+    if (err < 0) return NULL;
+
+    gtk_widget_set_can_target(widget, can_target);
+  }
+
+  return result;
+}
+
+static js_value_t *
+bare_gtk_widget_cursor(js_env_t *env, js_callback_info_t *info) {
+  int err;
+
+  size_t argc = 2;
+  js_value_t *argv[2];
+
+  bare_gtk_state_t *state;
+  err = js_get_callback_info(env, info, &argc, argv, NULL, (void **) &state);
+  assert(err == 0);
+
+  assert(argc == 1 || argc == 2);
+
+  GtkWidget *widget;
+  err = bare_gobject_read_tag(env, state->registry, argv[0], "widget", (gpointer *) &widget);
+  if (err < 0) return NULL;
+
+  if (argc == 1) return bare_gtk__create_tag(env, state, gtk_widget_get_cursor(widget));
+
+  GdkCursor *cursor;
+  err = bare_gtk__read_tag_or_null(env, state->registry, argv[1], "cursor", (gpointer *) &cursor);
+  if (err < 0) return NULL;
+
+  gtk_widget_set_cursor(widget, cursor);
+
+  return NULL;
+}
+
+static js_value_t *
+bare_gtk_widget_set_cursor_from_name(js_env_t *env, js_callback_info_t *info) {
+  int err;
+
+  size_t argc = 2;
+  js_value_t *argv[2];
+
+  bare_gtk_state_t *state;
+  err = js_get_callback_info(env, info, &argc, argv, NULL, (void **) &state);
+  assert(err == 0);
+
+  assert(argc == 2);
+
+  GtkWidget *widget;
+  err = bare_gobject_read_tag(env, state->registry, argv[0], "widget", (gpointer *) &widget);
+  if (err < 0) return NULL;
+
+  char *name;
+  err = bare_gtk__read_string_or_null(env, argv[1], "name", &name);
+  if (err < 0) return NULL;
+
+  gtk_widget_set_cursor_from_name(widget, name);
+
+  g_free(name);
+
+  return NULL;
+}
+
 static js_value_t *
 bare_gtk_widget_size_request(js_env_t *env, js_callback_info_t *info) {
   int err;
@@ -45,14 +170,15 @@ bare_gtk_widget_size_request(js_env_t *env, js_callback_info_t *info) {
   size_t argc = 3;
   js_value_t *argv[3];
 
-  err = js_get_callback_info(env, info, &argc, argv, NULL, NULL);
+  bare_gtk_state_t *state;
+  err = js_get_callback_info(env, info, &argc, argv, NULL, (void **) &state);
   assert(err == 0);
 
   assert(argc == 1 || argc == 3);
 
   GtkWidget *widget;
-  err = js_get_value_external(env, argv[0], (void **) &widget);
-  assert(err == 0);
+  err = bare_gobject_read_tag(env, state->registry, argv[0], "widget", (gpointer *) &widget);
+  if (err < 0) return NULL;
 
   js_value_t *result = NULL;
 
@@ -72,19 +198,571 @@ bare_gtk_widget_size_request(js_env_t *env, js_callback_info_t *info) {
     assert(err == 0); \
   }
     V(0, width)
-    V(1, width)
+    V(1, height)
 #undef V
   } else {
     int32_t width;
-    err = js_get_value_int32(env, argv[1], &width);
-    assert(err == 0);
+    err = bare_gtk__read_int32(env, argv[1], "width", &width);
+    if (err < 0) return NULL;
 
     int32_t height;
-    err = js_get_value_int32(env, argv[2], &height);
-    assert(err == 0);
+    err = bare_gtk__read_int32(env, argv[2], "height", &height);
+    if (err < 0) return NULL;
 
     gtk_widget_set_size_request(widget, width, height);
   }
 
   return result;
 }
+
+static js_value_t *
+bare_gtk_widget_opacity(js_env_t *env, js_callback_info_t *info) {
+  int err;
+
+  size_t argc = 2;
+  js_value_t *argv[2];
+
+  bare_gtk_state_t *state;
+  err = js_get_callback_info(env, info, &argc, argv, NULL, (void **) &state);
+  assert(err == 0);
+
+  assert(argc == 1 || argc == 2);
+
+  GtkWidget *widget;
+  err = bare_gobject_read_tag(env, state->registry, argv[0], "widget", (gpointer *) &widget);
+  if (err < 0) return NULL;
+
+  js_value_t *result = NULL;
+
+  if (argc == 1) {
+    err = js_create_double(env, gtk_widget_get_opacity(widget), &result);
+    assert(err == 0);
+  } else {
+    double opacity;
+    err = bare_gtk__read_double(env, argv[1], "opacity", &opacity);
+    if (err < 0) return NULL;
+
+    gtk_widget_set_opacity(widget, opacity);
+  }
+
+  return result;
+}
+
+static js_value_t *
+bare_gtk_widget_overflow(js_env_t *env, js_callback_info_t *info) {
+  int err;
+
+  size_t argc = 2;
+  js_value_t *argv[2];
+
+  bare_gtk_state_t *state;
+  err = js_get_callback_info(env, info, &argc, argv, NULL, (void **) &state);
+  assert(err == 0);
+
+  assert(argc == 1 || argc == 2);
+
+  GtkWidget *widget;
+  err = bare_gobject_read_tag(env, state->registry, argv[0], "widget", (gpointer *) &widget);
+  if (err < 0) return NULL;
+
+  js_value_t *result = NULL;
+
+  if (argc == 1) {
+    err = js_create_int32(env, gtk_widget_get_overflow(widget), &result);
+    assert(err == 0);
+  } else {
+    int32_t overflow;
+    err = bare_gtk__read_int32(env, argv[1], "overflow", &overflow);
+    if (err < 0) return NULL;
+
+    gtk_widget_set_overflow(widget, overflow);
+  }
+
+  return result;
+}
+
+static js_value_t *
+bare_gtk_widget_parent(js_env_t *env, js_callback_info_t *info) {
+  int err;
+
+  size_t argc = 1;
+  js_value_t *argv[1];
+
+  bare_gtk_state_t *state;
+  err = js_get_callback_info(env, info, &argc, argv, NULL, (void **) &state);
+  assert(err == 0);
+
+  assert(argc == 1);
+
+  GtkWidget *widget;
+  err = bare_gobject_read_tag(env, state->registry, argv[0], "widget", (gpointer *) &widget);
+  if (err < 0) return NULL;
+
+  return bare_gtk__create_tag(env, state, gtk_widget_get_parent(widget));
+}
+
+static js_value_t *
+bare_gtk_widget_layout_manager(js_env_t *env, js_callback_info_t *info) {
+  int err;
+
+  size_t argc = 2;
+  js_value_t *argv[2];
+
+  bare_gtk_state_t *state;
+  err = js_get_callback_info(env, info, &argc, argv, NULL, (void **) &state);
+  assert(err == 0);
+
+  assert(argc == 1 || argc == 2);
+
+  GtkWidget *widget;
+  err = bare_gobject_read_tag(env, state->registry, argv[0], "widget", (gpointer *) &widget);
+  if (err < 0) return NULL;
+
+  js_value_t *result = NULL;
+
+  if (argc == 1) {
+    result = bare_gtk__create_tag(env, state, gtk_widget_get_layout_manager(widget));
+  } else {
+    GtkLayoutManager *manager = NULL;
+    err = bare_gtk__read_tag_or_null(env, state->registry, argv[1], "layoutManager", (gpointer *) &manager);
+    if (err < 0) return NULL;
+
+    if (manager) g_object_ref(manager);
+
+    gtk_widget_set_layout_manager(widget, manager);
+  }
+
+  return result;
+}
+
+static js_value_t *
+bare_gtk_widget_insert_after(js_env_t *env, js_callback_info_t *info) {
+  int err;
+
+  size_t argc = 3;
+  js_value_t *argv[3];
+
+  bare_gtk_state_t *state;
+  err = js_get_callback_info(env, info, &argc, argv, NULL, (void **) &state);
+  assert(err == 0);
+
+  assert(argc == 3);
+
+  GtkWidget *widget;
+  err = bare_gobject_read_tag(env, state->registry, argv[0], "widget", (gpointer *) &widget);
+  if (err < 0) return NULL;
+
+  GtkWidget *parent;
+  err = bare_gobject_read_tag(env, state->registry, argv[1], "parent", (gpointer *) &parent);
+  if (err < 0) return NULL;
+
+  GtkWidget *sibling = NULL;
+  err = bare_gtk__read_tag_or_null(env, state->registry, argv[2], "previousSibling", (gpointer *) &sibling);
+  if (err < 0) return NULL;
+
+  gtk_widget_insert_after(widget, parent, sibling);
+
+  return NULL;
+}
+
+static js_value_t *
+bare_gtk_widget_insert_before(js_env_t *env, js_callback_info_t *info) {
+  int err;
+
+  size_t argc = 3;
+  js_value_t *argv[3];
+
+  bare_gtk_state_t *state;
+  err = js_get_callback_info(env, info, &argc, argv, NULL, (void **) &state);
+  assert(err == 0);
+
+  assert(argc == 3);
+
+  GtkWidget *widget;
+  err = bare_gobject_read_tag(env, state->registry, argv[0], "widget", (gpointer *) &widget);
+  if (err < 0) return NULL;
+
+  GtkWidget *parent;
+  err = bare_gobject_read_tag(env, state->registry, argv[1], "parent", (gpointer *) &parent);
+  if (err < 0) return NULL;
+
+  GtkWidget *sibling = NULL;
+  err = bare_gtk__read_tag_or_null(env, state->registry, argv[2], "nextSibling", (gpointer *) &sibling);
+  if (err < 0) return NULL;
+
+  gtk_widget_insert_before(widget, parent, sibling);
+
+  return NULL;
+}
+
+static js_value_t *
+bare_gtk_widget_unparent(js_env_t *env, js_callback_info_t *info) {
+  int err;
+
+  size_t argc = 1;
+  js_value_t *argv[1];
+
+  bare_gtk_state_t *state;
+  err = js_get_callback_info(env, info, &argc, argv, NULL, (void **) &state);
+  assert(err == 0);
+
+  assert(argc == 1);
+
+  GtkWidget *widget;
+  err = bare_gobject_read_tag(env, state->registry, argv[0], "widget", (gpointer *) &widget);
+  if (err < 0) return NULL;
+
+  gtk_widget_unparent(widget);
+
+  return NULL;
+}
+
+#define V(name, fn) \
+  static js_value_t * \
+  name(js_env_t *env, js_callback_info_t *info) { \
+    int err; \
+\
+    size_t argc = 1; \
+    js_value_t *argv[1]; \
+\
+    bare_gtk_state_t *state; \
+    err = js_get_callback_info(env, info, &argc, argv, NULL, (void **) &state); \
+    assert(err == 0); \
+\
+    assert(argc == 1); \
+\
+    GtkWidget *widget; \
+    err = bare_gobject_read_tag(env, state->registry, argv[0], "widget", (gpointer *) &widget); \
+    if (err < 0) return NULL; \
+\
+    return bare_gtk__create_tag(env, state, fn(widget)); \
+  }
+
+V(bare_gtk_widget_first_child, gtk_widget_get_first_child)
+V(bare_gtk_widget_last_child, gtk_widget_get_last_child)
+V(bare_gtk_widget_next_sibling, gtk_widget_get_next_sibling)
+V(bare_gtk_widget_prev_sibling, gtk_widget_get_prev_sibling)
+#undef V
+
+#define V(name, fn) \
+  static js_value_t * \
+  name(js_env_t *env, js_callback_info_t *info) { \
+    int err; \
+\
+    size_t argc = 1; \
+    js_value_t *argv[1]; \
+\
+    bare_gtk_state_t *state; \
+    err = js_get_callback_info(env, info, &argc, argv, NULL, (void **) &state); \
+    assert(err == 0); \
+\
+    assert(argc == 1); \
+\
+    GtkWidget *widget; \
+    err = bare_gobject_read_tag(env, state->registry, argv[0], "widget", (gpointer *) &widget); \
+    if (err < 0) return NULL; \
+\
+    js_value_t *result; \
+    err = js_create_int32(env, fn(widget), &result); \
+    assert(err == 0); \
+\
+    return result; \
+  }
+
+V(bare_gtk_widget_width, gtk_widget_get_width)
+V(bare_gtk_widget_height, gtk_widget_get_height)
+V(bare_gtk_widget_scale_factor, gtk_widget_get_scale_factor)
+#undef V
+
+static js_value_t *
+bare_gtk_widget_native(js_env_t *env, js_callback_info_t *info) {
+  int err;
+
+  size_t argc = 1;
+  js_value_t *argv[1];
+
+  bare_gtk_state_t *state;
+  err = js_get_callback_info(env, info, &argc, argv, NULL, (void **) &state);
+  assert(err == 0);
+
+  assert(argc == 1);
+
+  GtkWidget *widget;
+  err = bare_gobject_read_tag(env, state->registry, argv[0], "widget", (gpointer *) &widget);
+  if (err < 0) return NULL;
+
+  return bare_gtk__create_tag(env, state, gtk_widget_get_native(widget));
+}
+
+static js_value_t *
+bare_gtk_widget_compute_bounds(js_env_t *env, js_callback_info_t *info) {
+  int err;
+
+  size_t argc = 2;
+  js_value_t *argv[2];
+
+  bare_gtk_state_t *state;
+  err = js_get_callback_info(env, info, &argc, argv, NULL, (void **) &state);
+  assert(err == 0);
+
+  assert(argc == 2);
+
+  GtkWidget *widget;
+  err = bare_gobject_read_tag(env, state->registry, argv[0], "widget", (gpointer *) &widget);
+  if (err < 0) return NULL;
+
+  GtkWidget *target;
+  err = bare_gobject_read_tag(env, state->registry, argv[1], "target", (gpointer *) &target);
+  if (err < 0) return NULL;
+
+  graphene_rect_t bounds;
+
+  js_value_t *result;
+
+  if (!gtk_widget_compute_bounds(widget, target, &bounds)) {
+    err = js_get_null(env, &result);
+    assert(err == 0);
+
+    return result;
+  }
+
+  err = js_create_array_with_length(env, 4, &result);
+  assert(err == 0);
+
+#define V(i, d) \
+  { \
+    js_value_t *val; \
+    err = js_create_double(env, d, &val); \
+    assert(err == 0); \
+    err = js_set_element(env, result, i, val); \
+    assert(err == 0); \
+  }
+  V(0, bounds.origin.x)
+  V(1, bounds.origin.y)
+  V(2, bounds.size.width)
+  V(3, bounds.size.height)
+#undef V
+
+  return result;
+}
+
+static js_value_t *
+bare_gtk_widget_measure(js_env_t *env, js_callback_info_t *info) {
+  int err;
+
+  size_t argc = 3;
+  js_value_t *argv[3];
+
+  bare_gtk_state_t *state;
+  err = js_get_callback_info(env, info, &argc, argv, NULL, (void **) &state);
+  assert(err == 0);
+
+  assert(argc == 3);
+
+  GtkWidget *widget;
+  err = bare_gobject_read_tag(env, state->registry, argv[0], "widget", (gpointer *) &widget);
+  if (err < 0) return NULL;
+
+  int32_t orientation;
+  err = bare_gtk__read_int32(env, argv[1], "orientation", &orientation);
+  if (err < 0) return NULL;
+
+  int32_t for_size;
+  err = bare_gtk__read_int32(env, argv[2], "forSize", &for_size);
+  if (err < 0) return NULL;
+
+  int minimum, natural, minimum_baseline, natural_baseline;
+  gtk_widget_measure(widget, orientation, for_size, &minimum, &natural, &minimum_baseline, &natural_baseline);
+
+  js_value_t *result;
+  err = js_create_array_with_length(env, 4, &result);
+  assert(err == 0);
+
+#define V(i, d) \
+  { \
+    js_value_t *val; \
+    err = js_create_int32(env, d, &val); \
+    assert(err == 0); \
+    err = js_set_element(env, result, i, val); \
+    assert(err == 0); \
+  }
+  V(0, minimum)
+  V(1, natural)
+  V(2, minimum_baseline)
+  V(3, natural_baseline)
+#undef V
+
+  return result;
+}
+
+#define V(name, fn) \
+  static js_value_t * \
+  name(js_env_t *env, js_callback_info_t *info) { \
+    int err; \
+\
+    size_t argc = 2; \
+    js_value_t *argv[2]; \
+\
+    bare_gtk_state_t *state; \
+    err = js_get_callback_info(env, info, &argc, argv, NULL, (void **) &state); \
+    assert(err == 0); \
+\
+    assert(argc == 2); \
+\
+    GtkWidget *widget; \
+    err = bare_gobject_read_tag(env, state->registry, argv[0], "widget", (gpointer *) &widget); \
+    if (err < 0) return NULL; \
+\
+    char *name_; \
+    err = bare_gtk__read_string(env, argv[1], "cssClass", &name_); \
+    if (err < 0) return NULL; \
+\
+    fn(widget, name_); \
+\
+    g_free(name_); \
+\
+    return NULL; \
+  }
+
+V(bare_gtk_widget_add_css_class, gtk_widget_add_css_class)
+V(bare_gtk_widget_remove_css_class, gtk_widget_remove_css_class)
+#undef V
+
+static js_value_t *
+bare_gtk_widget_has_css_class(js_env_t *env, js_callback_info_t *info) {
+  int err;
+
+  size_t argc = 2;
+  js_value_t *argv[2];
+
+  bare_gtk_state_t *state;
+  err = js_get_callback_info(env, info, &argc, argv, NULL, (void **) &state);
+  assert(err == 0);
+
+  assert(argc == 2);
+
+  GtkWidget *widget;
+  err = bare_gobject_read_tag(env, state->registry, argv[0], "widget", (gpointer *) &widget);
+  if (err < 0) return NULL;
+
+  char *name;
+  err = bare_gtk__read_string(env, argv[1], "cssClass", &name);
+  if (err < 0) return NULL;
+
+  js_value_t *result;
+  err = js_get_boolean(env, gtk_widget_has_css_class(widget, name), &result);
+  assert(err == 0);
+
+  g_free(name);
+
+  return result;
+}
+
+static js_value_t *
+bare_gtk_widget_add_controller(js_env_t *env, js_callback_info_t *info) {
+  int err;
+
+  size_t argc = 2;
+  js_value_t *argv[2];
+
+  bare_gtk_state_t *state;
+  err = js_get_callback_info(env, info, &argc, argv, NULL, (void **) &state);
+  assert(err == 0);
+
+  assert(argc == 2);
+
+  GtkWidget *widget;
+  err = bare_gobject_read_tag(env, state->registry, argv[0], "widget", (gpointer *) &widget);
+  if (err < 0) return NULL;
+
+  GtkEventController *controller;
+  err = bare_gobject_read_tag(env, state->registry, argv[1], "controller", (gpointer *) &controller);
+  if (err < 0) return NULL;
+
+  gtk_widget_add_controller(widget, g_object_ref(controller));
+
+  return NULL;
+}
+
+static js_value_t *
+bare_gtk_widget_remove_controller(js_env_t *env, js_callback_info_t *info) {
+  int err;
+
+  size_t argc = 2;
+  js_value_t *argv[2];
+
+  bare_gtk_state_t *state;
+  err = js_get_callback_info(env, info, &argc, argv, NULL, (void **) &state);
+  assert(err == 0);
+
+  assert(argc == 2);
+
+  GtkWidget *widget;
+  err = bare_gobject_read_tag(env, state->registry, argv[0], "widget", (gpointer *) &widget);
+  if (err < 0) return NULL;
+
+  GtkEventController *controller;
+  err = bare_gobject_read_tag(env, state->registry, argv[1], "controller", (gpointer *) &controller);
+  if (err < 0) return NULL;
+
+  gtk_widget_remove_controller(widget, controller);
+
+  return NULL;
+}
+
+
+static js_value_t *
+bare_gtk_widget_grab_focus(js_env_t *env, js_callback_info_t *info) {
+  int err;
+
+  size_t argc = 1;
+  js_value_t *argv[1];
+
+  bare_gtk_state_t *state;
+  err = js_get_callback_info(env, info, &argc, argv, NULL, (void **) &state);
+  assert(err == 0);
+
+  assert(argc == 1);
+
+  GtkWidget *widget;
+  err = bare_gobject_read_tag(env, state->registry, argv[0], "widget", (gpointer *) &widget);
+  if (err < 0) return NULL;
+
+  js_value_t *result;
+  err = js_get_boolean(env, gtk_widget_grab_focus(widget), &result);
+  assert(err == 0);
+
+  return result;
+}
+
+// GTK moves focus through the root that holds the widget, so giving up focus is
+// a different call from taking it.
+static js_value_t *
+bare_gtk_widget_set_root_focus(js_env_t *env, js_callback_info_t *info) {
+  int err;
+
+  size_t argc = 2;
+  js_value_t *argv[2];
+
+  bare_gtk_state_t *state;
+  err = js_get_callback_info(env, info, &argc, argv, NULL, (void **) &state);
+  assert(err == 0);
+
+  assert(argc == 2);
+
+  GtkWidget *widget;
+  err = bare_gobject_read_tag(env, state->registry, argv[0], "widget", (gpointer *) &widget);
+  if (err < 0) return NULL;
+
+  GtkWidget *focus;
+  err = bare_gtk__read_tag_or_null(env, state->registry, argv[1], "focus", (gpointer *) &focus);
+  if (err < 0) return NULL;
+
+  GtkRoot *root = gtk_widget_get_root(widget);
+
+  if (root != NULL) gtk_root_set_focus(root, focus);
+
+  return NULL;
+}
+
+#endif // BARE_GTK_WIDGET_H