Tk Source Code

Check-in [921c37ff]
Login
☰Core Home Timeline Branches Tags Tickets Download Wiki

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Remove compiler errors
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | tka11y
Files: files | file ages | folders
SHA3-256: 921c37ff58d875ec5b3f9a3a0bcf1ac8af9b889f50829a19ddf46549fb91d59d
User & Date: kevin_walzer 2025-07-26 22:35:54.192
Context
2025-07-27
01:11
Remove unneeded notifications check-in: 2cb94468 user: kevin_walzer tags: tka11y
2025-07-26
22:35
Remove compiler errors check-in: 921c37ff user: kevin_walzer tags: tka11y
22:28
Add additional notifications check-in: 09ac3257 user: kevin_walzer tags: tka11y
Changes
Unified Diff Ignore Whitespace Patch
Changes to unix/tkUnixAccessibility.c.
︙︙
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75

static gboolean tk_action_do_action(AtkAction *action, gint i);
static gint tk_action_get_n_actions(AtkAction *action);
static const gchar *tk_action_get_name(AtkAction *action, gint i);
static void tk_atk_component_interface_init(AtkComponentIface *iface);
static void tk_atk_action_interface_init(AtkActionIface *iface);
static void tk_atk_value_interface_init(AtkValueIface *iface);
static gboolean tk_contains(AtkComponent *component, gint x, gint y, AtkCoordType coord_type);
static void tk_atk_text_interface_init(AtkTextIface *iface);

/* Lower-level functions providing integration between Atk objects and Tcl/Tk. */
static void tk_atk_accessible_class_init(TkAtkAccessibleClass *klass);
static void tk_atk_accessible_init(TkAtkAccessible *accessible);
static void tk_atk_accessible_finalize(GObject *gobject);
static void RegisterChildWidgets(Tcl_Interp *interp, Tk_Window tkwin, AtkObject *parent_obj);
static void RegisterToplevelWindow(Tcl_Interp *interp, Tk_Window tkwin, AtkObject *accessible);








<








61
62
63
64
65
66
67

68
69
70
71
72
73
74

static gboolean tk_action_do_action(AtkAction *action, gint i);
static gint tk_action_get_n_actions(AtkAction *action);
static const gchar *tk_action_get_name(AtkAction *action, gint i);
static void tk_atk_component_interface_init(AtkComponentIface *iface);
static void tk_atk_action_interface_init(AtkActionIface *iface);
static void tk_atk_value_interface_init(AtkValueIface *iface);
static gboolean tk_contains(AtkComponent *component, gint x, gint y, AtkCoordType coord_type);


/* Lower-level functions providing integration between Atk objects and Tcl/Tk. */
static void tk_atk_accessible_class_init(TkAtkAccessibleClass *klass);
static void tk_atk_accessible_init(TkAtkAccessible *accessible);
static void tk_atk_accessible_finalize(GObject *gobject);
static void RegisterChildWidgets(Tcl_Interp *interp, Tk_Window tkwin, AtkObject *parent_obj);
static void RegisterToplevelWindow(Tcl_Interp *interp, Tk_Window tkwin, AtkObject *accessible);
︙︙
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417

    if (obj == tk_root_accessible) {
	/* Free old cached name, store new one. */
        g_free(acc->cached_name);
        acc->cached_name = g_strdup(name); 
    }
    atk_object_set_name(acc, name);
    g_object_notify(G_OBJECT(acc), "accessible-name");
    g_signal_emit_by_name(, "name-changed");
}


static const gchar *tk_get_description(AtkObject *obj)
{
    TkAtkAccessible *acc = (TkAtkAccessible *)obj;









|








402
403
404
405
406
407
408
409
410
411
412
413
414
415
416

    if (obj == tk_root_accessible) {
	/* Free old cached name, store new one. */
        g_free(acc->cached_name);
        acc->cached_name = g_strdup(name); 
    }
    atk_object_set_name(acc, name);
    g_object_notify(G_OBJECT(acc), "accessible-name");
    g_signal_emit_by_name(acc, "name-changed");
}


static const gchar *tk_get_description(AtkObject *obj)
{
    TkAtkAccessible *acc = (TkAtkAccessible *)obj;
︙︙
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681

    }

    /* Explicitly set and notify accessible name */
    const gchar *name = tk_get_name(accessible); 
    if (name) {
        tk_set_name(accessible, name);
        g_object_notify(G_OBJECT(accessible), "accessible-name");
        g_signal_emit_by_name(, "name-changed");
        g_free((gpointer)name); /* Free the string returned by tk_get_name. */
    }

    /* Register child widgets recursively. */
    RegisterChildWidgets(interp, tkwin, accessible);
}









|








666
667
668
669
670
671
672
673
674
675
676
677
678
679
680

    }

    /* Explicitly set and notify accessible name */
    const gchar *name = tk_get_name(accessible); 
    if (name) {
        tk_set_name(accessible, name);
        g_object_notify(G_OBJECT(accessible), "accessible-name");
        g_signal_emit_by_name(accessible, "name-changed");
        g_free((gpointer)name); /* Free the string returned by tk_get_name. */
    }

    /* Register child widgets recursively. */
    RegisterChildWidgets(interp, tkwin, accessible);
}
︙︙
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767

        /* Set proper application name. */
	atk_object_set_role(tk_root_accessible, ATK_ROLE_APPLICATION);
        g_object_notify(G_OBJECT(tk_root_accessible), "accessible-role");

        /* Set an initial name for the root, can be updated later. */
        tk_set_name(tk_root_accessible, "Tk Application");
        g_object_notify(G_OBJECT(tk_root_accessible), "accessible-name");
        g_signal_emit_by_name(, "name-changed");
    }

    return tk_root_accessible;
}

/* Core function linking Tk objects to the Atk root object and at-spi. */
AtkObject *atk_get_root(void) {








|








752
753
754
755
756
757
758
759
760
761
762
763
764
765
766

        /* Set proper application name. */
	atk_object_set_role(tk_root_accessible, ATK_ROLE_APPLICATION);
        g_object_notify(G_OBJECT(tk_root_accessible), "accessible-role");

        /* Set an initial name for the root, can be updated later. */
        tk_set_name(tk_root_accessible, "Tk Application");
        g_object_notify(G_OBJECT(tk_root_accessible), "accessible-name");
        g_signal_emit_by_name(tk_root_accessible, "name-changed");
    }

    return tk_root_accessible;
}

/* Core function linking Tk objects to the Atk root object and at-spi. */
AtkObject *atk_get_root(void) {
︙︙
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151

    AtkObject *atk_obj = (AtkObject*) tkAccessible;
    if (atk_obj) {
	/* Get the current name and then set it to trigger notification. */
	const gchar *name = tk_get_name(atk_obj);
	if (name) {
	    tk_set_name(atk_obj, name);
	    g_object_notify(G_OBJECT(atk_obj), "accessible-name");
	    g_signal_emit_by_name(_obj, "name-changed");
	    g_free((gpointer)name); /* Free the string returned by tk_get_name. */
	}
    }
}


/*








|








1136
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150

    AtkObject *atk_obj = (AtkObject*) tkAccessible;
    if (atk_obj) {
	/* Get the current name and then set it to trigger notification. */
	const gchar *name = tk_get_name(atk_obj);
	if (name) {
	    tk_set_name(atk_obj, name);
	    g_object_notify(G_OBJECT(atk_obj), "accessible-name");
	    g_signal_emit_by_name(atk_obj, "name-changed");
	    g_free((gpointer)name); /* Free the string returned by tk_get_name. */
	}
    }
}


/*
︙︙
This page was generated in about 0.011s by Fossil 2.27 [a6d506ecc4] 2025-07-09 13:52:53