[gtk/cursor-aspect-ratio] Add a cursor-aspect-ratio setting

[Matthias Clasen <matthiasc src gnome org>]

commit 8be61597784dc70984a709c80b0b5891d4cc18f5
Author: Matthias Clasen <mclasen redhat com>
Date:   Sun Feb 2 13:21:42 2020 +0100

    Add a cursor-aspect-ratio setting
    
    Add a setting that controls how thick the text caret is drawn.
    The default value is 0.04.

 gtk/gtksettings.c     | 10 ++++++++++
 gtk/gtkstylecontext.c | 19 ++++++++++++++-----
 2 files changed, 24 insertions(+), 5 deletions(-)
---
diff --git a/gtk/gtksettings.c b/gtk/gtksettings.c
index 4995fb6cf0..bac42fa85e 100644
--- a/gtk/gtksettings.c
+++ b/gtk/gtksettings.c
@@ -151,6 +151,7 @@ enum {
   PROP_CURSOR_BLINK_TIME,
   PROP_CURSOR_BLINK_TIMEOUT,
   PROP_SPLIT_CURSOR,
+  PROP_CURSOR_ASPECT_RATIO,
   PROP_THEME_NAME,
   PROP_ICON_THEME_NAME,
   PROP_DND_DRAG_THRESHOLD,
@@ -394,6 +395,15 @@ gtk_settings_class_init (GtkSettingsClass *class)
                                                                    TRUE,
                                                                    GTK_PARAM_READWRITE));
   g_assert (result == PROP_SPLIT_CURSOR);
+
+  result = settings_install_property_parser (class,
+                                             g_param_spec_float ("gtk-cursor-aspect-ratio",
+                                                                 P_("Cursor Aspect Ratio"),
+                                                                 P_("The aspect ratio of the text caret"),
+                                                                 0.0, 1.0, 0.04,
+                                                                 GTK_PARAM_READWRITE));
+  g_assert (result == PROP_CURSOR_ASPECT_RATIO);
+
   result = settings_install_property_parser (class,
                                              g_param_spec_string ("gtk-theme-name",
                                                                    P_("Theme Name"),
diff --git a/gtk/gtkstylecontext.c b/gtk/gtkstylecontext.c
index cd0d628942..a0d2661810 100644
--- a/gtk/gtkstylecontext.c
+++ b/gtk/gtkstylecontext.c
@@ -1288,6 +1288,7 @@ draw_insertion_cursor (GtkStyleContext *context,
                        gdouble          x,
                        gdouble          y,
                        gdouble          height,
+                       float            aspect_ratio,
                        gboolean         is_primary,
                        PangoDirection   direction,
                        gboolean         draw_arrow)
@@ -1303,7 +1304,7 @@ draw_insertion_cursor (GtkStyleContext *context,
   _gtk_style_context_get_cursor_color (context, &primary_color, &secondary_color);
   gdk_cairo_set_source_rgba (cr, is_primary ? &primary_color : &secondary_color);
 
-  stem_width = height * CURSOR_ASPECT_RATIO + 1;
+  stem_width = height * aspect_ratio + 1;
 
   /* put (stem_width % 2) on the proper side of the cursor */
   if (direction == PANGO_DIRECTION_LTR)
@@ -1350,6 +1351,7 @@ draw_insertion_cursor (GtkStyleContext *context,
 
 static void
 get_insertion_cursor_bounds (gdouble          height,
+                             float            aspect_ratio,
                              PangoDirection   direction,
                              gboolean         draw_arrow,
                              graphene_rect_t *bounds)
@@ -1357,7 +1359,7 @@ get_insertion_cursor_bounds (gdouble          height,
   gint stem_width;
   gint offset;
 
-  stem_width = height * CURSOR_ASPECT_RATIO + 1;
+  stem_width = height * aspect_ratio + 1;
   if (direction == PANGO_DIRECTION_LTR)
     offset = stem_width / 2;
   else
@@ -1390,6 +1392,7 @@ static void
 snapshot_insertion_cursor (GtkSnapshot     *snapshot,
                            GtkStyleContext *context,
                            gdouble          height,
+                           float            aspect_ratio,
                            gboolean         is_primary,
                            PangoDirection   direction,
                            gboolean         draw_arrow)
@@ -1399,10 +1402,10 @@ snapshot_insertion_cursor (GtkSnapshot     *snapshot,
       cairo_t *cr;
       graphene_rect_t bounds;
 
-      get_insertion_cursor_bounds (height, direction, draw_arrow, &bounds);
+      get_insertion_cursor_bounds (height, aspect_ratio, direction, draw_arrow, &bounds);
       cr = gtk_snapshot_append_cairo (snapshot, &bounds);
 
-      draw_insertion_cursor (context, cr, 0, 0, height, is_primary, direction, draw_arrow);
+      draw_insertion_cursor (context, cr, 0, 0, height, aspect_ratio, is_primary, direction, draw_arrow);
 
       cairo_destroy (cr);
     }
@@ -1415,7 +1418,7 @@ snapshot_insertion_cursor (GtkSnapshot     *snapshot,
 
       _gtk_style_context_get_cursor_color (context, &primary_color, &secondary_color);
 
-      stem_width = height * CURSOR_ASPECT_RATIO + 1;
+      stem_width = height * aspect_ratio + 1;
 
       /* put (stem_width % 2) on the proper side of the cursor */
       if (direction == PANGO_DIRECTION_LTR)
@@ -1495,6 +1498,7 @@ gtk_render_insertion_cursor (GtkStyleContext *context,
                          x + PANGO_PIXELS (cursor1->x),
                          y + PANGO_PIXELS (cursor1->y),
                          PANGO_PIXELS (cursor1->height),
+                         0.04,
                          TRUE,
                          direction,
                          direction2 != PANGO_DIRECTION_NEUTRAL);
@@ -1506,6 +1510,7 @@ gtk_render_insertion_cursor (GtkStyleContext *context,
                              x + PANGO_PIXELS (cursor2->x),
                              y + PANGO_PIXELS (cursor2->y),
                              PANGO_PIXELS (cursor2->height),
+                             0.04,
                              FALSE,
                              direction2,
                              TRUE);
@@ -1535,6 +1540,7 @@ gtk_snapshot_render_insertion_cursor (GtkSnapshot     *snapshot,
 {
   GtkStyleContextPrivate *priv = gtk_style_context_get_instance_private (context);
   gboolean split_cursor;
+  float aspect_ratio;
   PangoRectangle strong_pos, weak_pos;
   PangoRectangle *cursor1, *cursor2;
   PangoDirection keymap_direction;
@@ -1547,6 +1553,7 @@ gtk_snapshot_render_insertion_cursor (GtkSnapshot     *snapshot,
 
   g_object_get (gtk_settings_get_for_display (priv->display),
                 "gtk-split-cursor", &split_cursor,
+                "gtk-cursor-aspect-ratio", &aspect_ratio,
                 NULL);
 
   keymap_direction = gdk_keymap_get_direction (gdk_display_get_keymap (priv->display));
@@ -1578,6 +1585,7 @@ gtk_snapshot_render_insertion_cursor (GtkSnapshot     *snapshot,
   snapshot_insertion_cursor (snapshot,
                              context,
                              PANGO_PIXELS (cursor1->height),
+                             aspect_ratio,
                              TRUE,
                              direction,
                              direction2 != PANGO_DIRECTION_NEUTRAL);
@@ -1590,6 +1598,7 @@ gtk_snapshot_render_insertion_cursor (GtkSnapshot     *snapshot,
       snapshot_insertion_cursor (snapshot,
                                  context,
                                  PANGO_PIXELS (cursor2->height),
+                                 aspect_ratio,
                                  FALSE,
                                  direction2,
                                  TRUE);