edit-dialog: wrap in a scrolled window

As we're adding more and more widgets in the Edit dialog,
it is now growing too tall to fit normal screens. Thus, wrap
it in a scrolled window, and let the content height cover
75% of the main window at most.

data/ui/edit-dialog.ui

@@ -122,8 +122,16 @@
     </child>
     <child internal-child="vbox">
       <object class="GtkBox" id="dialog-vbox">
-        <property name="orientation">vertical</property>
+        <property name="visible">true</property>
-        <property name="spacing">2</property>
+        <property name="spacing">0</property>
+        <property name="border_width">0</property>
+        <child>
+          <object class="GtkScrolledWindow" id="scrolled_window">
+            <property name="visible">True</property>
+            <property name="can_focus">False</property>
+            <property name="hscrollbar_policy">never</property>
+            <property name="min_content_height">400</property>
+            <property name="propagate_natural_height">true</property>
             <child>
               <object class="GtkGrid" id="main_grid">
                 <property name="visible">True</property>
@@ -507,8 +515,8 @@
                   </packing>
                 </child>
                 <child>
-              <object class="GtkScrolledWindow" id="scrolled_window">
+                  <object class="GtkScrolledWindow">
-                <property name="height_request">120</property>
+                    <property name="min_content_height">120</property>
                     <property name="visible">True</property>
                     <property name="can_focus">True</property>
                     <property name="margin-top">12</property>
@@ -566,6 +574,8 @@
             </child>
           </object>
         </child>
+      </object>
+    </child>
   </template>
   <object class="GtkPopover" id="sources_popover">
   </object>

src/gcal-edit-dialog.c

@@ -56,6 +56,8 @@ struct _GcalEditDialog
   GtkWidget        *title_label;
   GtkWidget        *subtitle_label;
 
+  GtkWidget        *scrolled_window;
+
   GtkWidget        *lock;
   GtkWidget        *source_image;
   GtkWidget        *source_label;
@@ -300,6 +302,19 @@ remove_recurrence_properties (GcalEvent *event)
   e_cal_component_rescan (comp);
 }
 
+static void
+transient_size_allocate_cb (GcalEditDialog *self)
+{
+  GtkAllocation alloc;
+  GtkWindow *transient;
+
+  transient = gtk_window_get_transient_for (GTK_WINDOW (self));
+  gtk_widget_get_allocation (GTK_WIDGET (transient), &alloc);
+
+  gtk_scrolled_window_set_max_content_height (GTK_SCROLLED_WINDOW (self->scrolled_window),
+                                              MAX (400, (gint) (0.75 * alloc.height)));
+}
+
 static void
 update_location (GtkEntry   *entry,
                  GParamSpec *pspec,
@@ -659,6 +674,12 @@ gcal_edit_dialog_constructed (GObject* object)
   gtk_widget_insert_action_group (GTK_WIDGET (self),
                                   "edit",
                                   G_ACTION_GROUP (self->action_group));
+
+  /* Watch the main window and adapt the maximum size */
+  g_signal_connect_swapped (gtk_window_get_transient_for (GTK_WINDOW (self)),
+                            "size-allocate",
+                            G_CALLBACK (transient_size_allocate_cb),
+                            self);
 }
 
 static void
@@ -801,6 +822,7 @@ gcal_edit_dialog_class_init (GcalEditDialogClass *klass)
   gtk_widget_class_bind_template_child (widget_class, GcalEditDialog, repeat_duration_combo);
   gtk_widget_class_bind_template_child (widget_class, GcalEditDialog, repeat_duration_stack);
   gtk_widget_class_bind_template_child (widget_class, GcalEditDialog, repeat_limits_box);
+  gtk_widget_class_bind_template_child (widget_class, GcalEditDialog, scrolled_window);
   gtk_widget_class_bind_template_child (widget_class, GcalEditDialog, source_image);
   gtk_widget_class_bind_template_child (widget_class, GcalEditDialog, sources_popover);
   gtk_widget_class_bind_template_child (widget_class, GcalEditDialog, until_date_selector);