[gtk/a11y-debug: 1/2] testatcontext: Print out platform changes

[Matthias Clasen <matthiasc src gnome org>]

commit a04ce41799af8b6a7750b3e2f369d3708917a971
Author: Matthias Clasen <mclasen redhat com>
Date:   Fri Apr 16 22:18:52 2021 -0400

    testatcontext: Print out platform changes
    
    This helps debugging what changes orca sees.

 gtk/gtktestatcontext.c | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
---
diff --git a/gtk/gtktestatcontext.c b/gtk/gtktestatcontext.c
index 601be1144e..a093fe6222 100644
--- a/gtk/gtktestatcontext.c
+++ b/gtk/gtktestatcontext.c
@@ -78,12 +78,34 @@ gtk_test_at_context_state_change (GtkATContext                *self,
     }
 }
 
+static void
+gtk_test_at_context_platform_change (GtkATContext                *self,
+                                     GtkAccessiblePlatformChange  changed_platform)
+{
+  if (GTK_DEBUG_CHECK (A11Y))
+    {
+      GtkAccessible *accessible;
+
+      accessible = gtk_at_context_get_accessible (self);
+
+      g_print ("*** Accessible platform state changed for accessible “%s”:\n",
+               G_OBJECT_TYPE_NAME (accessible));
+      if (changed_platform & GTK_ACCESSIBLE_PLATFORM_CHANGE_FOCUSABLE)
+        g_print ("***  focusable = %d\n",
+                 gtk_accessible_get_platform_state (accessible, GTK_ACCESSIBLE_PLATFORM_STATE_FOCUSABLE));
+      if (changed_platform & GTK_ACCESSIBLE_PLATFORM_CHANGE_FOCUSED)
+        g_print ("***    focused = %d\n",
+                 gtk_accessible_get_platform_state (accessible, GTK_ACCESSIBLE_PLATFORM_STATE_FOCUSED));
+    }
+}
+
 static void
 gtk_test_at_context_class_init (GtkTestATContextClass *klass)
 {
   GtkATContextClass *context_class = GTK_AT_CONTEXT_CLASS (klass);
 
   context_class->state_change = gtk_test_at_context_state_change;
+  context_class->platform_change = gtk_test_at_context_platform_change;
 }
 
 static void