From 53e69fceafbed6dc1f982240a4bc8117df414bac Mon Sep 17 00:00:00 2001
From: Christian Hergert <chergert@redhat.com>
Date: Thu, 13 Jul 2023 19:52:50 -0700
Subject: [PATCH] sysprof: add zoom controls

And update them when the visible range changes.
---
 src/sysprof/sysprof-sidebar.ui |  57 +++++++++++++++---
 src/sysprof/sysprof-window.c   | 102 +++++++++++++++++++++++++++++++++
 2 files changed, 152 insertions(+), 7 deletions(-)

diff --git a/src/sysprof/sysprof-sidebar.ui b/src/sysprof/sysprof-sidebar.ui
index d0ac9a68..b0e33009 100644
--- a/src/sysprof/sysprof-sidebar.ui
+++ b/src/sysprof/sysprof-sidebar.ui
@@ -2,14 +2,57 @@
 <interface>
   <template class="SysprofSidebar" parent="GtkWidget">
     <child>
-      <object class="GtkScrolledWindow">
-        <property name="hscrollbar-policy">never</property>
+      <object class="GtkBox">
+        <property name="orientation">vertical</property>
         <child>
-          <object class="GtkListBox" id="list_box">
-            <signal name="row-activated" handler="list_box_row_activated_cb" swapped="true"/>
-            <style>
-              <class name="navigation-sidebar"/>
-            </style>
+          <object class="GtkScrolledWindow">
+            <property name="vexpand">true</property>
+            <property name="hscrollbar-policy">never</property>
+            <child>
+              <object class="GtkListBox" id="list_box">
+                <signal name="row-activated" handler="list_box_row_activated_cb" swapped="true"/>
+                <style>
+                  <class name="navigation-sidebar"/>
+                </style>
+              </object>
+            </child>
+          </object>
+        </child>
+        <child>
+          <object class="GtkBox">
+            <property name="halign">center</property>
+            <property name="margin-start">6</property>
+            <property name="margin-end">6</property>
+            <property name="margin-bottom">6</property>
+            <property name="margin-top">6</property>
+            <child>
+              <object class="GtkButton">
+                <property name="action-name">session.zoom-out</property>
+                <property name="icon-name">zoom-out-symbolic</property>
+                <style>
+                  <class name="flat"/>
+                </style>
+              </object>
+            </child>
+            <child>
+              <object class="GtkButton">
+                <property name="action-name">session.zoom-one</property>
+                <property name="icon-name">zoom-original-symbolic</property>
+                <property name="width-request">48</property>
+                <style>
+                  <class name="flat"/>
+                </style>
+              </object>
+            </child>
+            <child>
+              <object class="GtkButton">
+                <property name="action-name">session.zoom-in</property>
+                <property name="icon-name">zoom-in-symbolic</property>
+                <style>
+                  <class name="flat"/>
+                </style>
+              </object>
+            </child>
           </object>
         </child>
       </object>
diff --git a/src/sysprof/sysprof-window.c b/src/sysprof/sysprof-window.c
index 89b5baac..2b59dbb8 100644
--- a/src/sysprof/sysprof-window.c
+++ b/src/sysprof/sysprof-window.c
@@ -57,6 +57,28 @@ G_DEFINE_FINAL_TYPE (SysprofWindow, sysprof_window, ADW_TYPE_APPLICATION_WINDOW)
 
 static GParamSpec *properties [N_PROPS];
 
+static void
+sysprof_window_update_zoom_actions (SysprofWindow *self)
+{
+  const SysprofTimeSpan *visible_time;
+  const SysprofTimeSpan *document_time;
+
+  g_assert (SYSPROF_IS_WINDOW (self));
+
+  if (self->session == NULL)
+    return;
+
+  visible_time = sysprof_session_get_visible_time (self->session);
+  document_time = sysprof_session_get_document_time (self->session);
+
+  gtk_widget_action_set_enabled (GTK_WIDGET (self),
+                                 "session.zoom-one",
+                                 !sysprof_time_span_equal (visible_time, document_time));
+  gtk_widget_action_set_enabled (GTK_WIDGET (self),
+                                 "session.zoom-out",
+                                 !sysprof_time_span_equal (visible_time, document_time));
+}
+
 static void
 show_greeter (SysprofWindow      *self,
               SysprofGreeterPage  page)
@@ -124,6 +146,16 @@ sysprof_window_set_document (SysprofWindow   *self,
   g_object_notify_by_pspec (G_OBJECT (self), properties[PROP_DOCUMENT]);
 
   self->session = sysprof_session_new (document);
+  g_signal_connect_object (self->session,
+                           "notify::selected-time",
+                           G_CALLBACK (sysprof_window_update_zoom_actions),
+                           self,
+                           G_CONNECT_SWAPPED);
+  g_signal_connect_object (self->session,
+                           "notify::visible-time",
+                           G_CALLBACK (sysprof_window_update_zoom_actions),
+                           self,
+                           G_CONNECT_SWAPPED);
   g_object_notify_by_pspec (G_OBJECT (self), properties[PROP_SESSION]);
 
   for (guint i = 0; i < G_N_ELEMENTS (callgraph_actions); i++)
@@ -133,6 +165,8 @@ sysprof_window_set_document (SysprofWindow   *self,
 
       g_action_map_add_action (G_ACTION_MAP (self), G_ACTION (action));
     }
+
+  sysprof_window_update_zoom_actions (self);
 }
 
 static void
@@ -153,6 +187,71 @@ main_view_notify_sidebar (SysprofWindow       *self,
   gtk_widget_set_sensitive (GTK_WIDGET (self->show_right_sidebar), sidebar != NULL);
 }
 
+static void
+sysprof_window_session_zoom_one (GtkWidget  *widget,
+                                 const char *action_name,
+                                 GVariant   *param)
+{
+  SysprofWindow *self = (SysprofWindow *)widget;
+
+  g_assert (SYSPROF_IS_WINDOW (self));
+
+  if (self->session == NULL)
+    return;
+
+  sysprof_session_select_time (self->session,
+                               sysprof_session_get_document_time (self->session));
+}
+
+static void
+sysprof_window_session_zoom_in (GtkWidget  *widget,
+                                const char *action_name,
+                                GVariant   *param)
+{
+  SysprofWindow *self = (SysprofWindow *)widget;
+  const SysprofTimeSpan *visible_time;
+  SysprofTimeSpan select;
+  gint64 duration;
+
+  g_assert (SYSPROF_IS_WINDOW (self));
+
+  if (self->session == NULL)
+    return;
+
+  visible_time = sysprof_session_get_visible_time (self->session);
+  duration = sysprof_time_span_duration (*visible_time);
+
+  select.begin_nsec = visible_time->begin_nsec + (duration / 4);
+  select.end_nsec = select.begin_nsec + (duration / 2);
+
+  sysprof_session_select_time (self->session, &select);
+  sysprof_session_zoom_to_selection (self->session);
+}
+
+static void
+sysprof_window_session_zoom_out (GtkWidget  *widget,
+                                 const char *action_name,
+                                 GVariant   *param)
+{
+  SysprofWindow *self = (SysprofWindow *)widget;
+  SysprofTimeSpan select;
+  gint64 duration;
+
+  g_assert (SYSPROF_IS_WINDOW (self));
+
+  if (self->session == NULL)
+    return;
+
+  select = *sysprof_session_get_visible_time (self->session);
+  duration = sysprof_time_span_duration (select);
+
+  select.begin_nsec -= floor (duration / 2.);
+  select.end_nsec += ceil (duration / 2.);
+
+  sysprof_session_select_time (self->session, &select);
+  sysprof_session_zoom_to_selection (self->session);
+}
+
 static void
 sysprof_window_dispose (GObject *object)
 {
@@ -238,6 +337,9 @@ sysprof_window_class_init (SysprofWindowClass *klass)
   gtk_widget_class_install_action (widget_class, "win.open-capture", NULL, sysprof_window_open_capture_action);
   gtk_widget_class_install_action (widget_class, "win.record-capture", NULL, sysprof_window_record_capture_action);
   gtk_widget_class_install_action (widget_class, "win.show-cpu-info", NULL, sysprof_window_show_cpu_info_action);
+  gtk_widget_class_install_action (widget_class, "session.zoom-one", NULL, sysprof_window_session_zoom_one);
+  gtk_widget_class_install_action (widget_class, "session.zoom-out", NULL, sysprof_window_session_zoom_out);
+  gtk_widget_class_install_action (widget_class, "session.zoom-in", NULL, sysprof_window_session_zoom_in);
 
   g_type_ensure (SYSPROF_TYPE_DOCUMENT);
   g_type_ensure (SYSPROF_TYPE_FILES_SECTION);