app: make the dashboard scrollable

The dashboard is getting pretty crowded -- let's make it
scrollable.
This commit is contained in:
Ell 2018-06-19 12:46:07 -04:00
parent 8d0766c1fc
commit 9832f7129e
1 changed files with 19 additions and 1 deletions

View File

@ -726,6 +726,8 @@ gimp_dashboard_init (GimpDashboard *dashboard)
{ {
GimpDashboardPrivate *priv; GimpDashboardPrivate *priv;
GtkWidget *box; GtkWidget *box;
GtkWidget *scrolled_window;
GtkWidget *viewport;
GtkWidget *vbox; GtkWidget *vbox;
GtkWidget *expander; GtkWidget *expander;
GtkWidget *hbox; GtkWidget *hbox;
@ -766,9 +768,25 @@ gimp_dashboard_init (GimpDashboard *dashboard)
gtk_box_pack_start (GTK_BOX (dashboard), box, TRUE, TRUE, 0); gtk_box_pack_start (GTK_BOX (dashboard), box, TRUE, TRUE, 0);
gtk_widget_show (box); gtk_widget_show (box);
/* scrolled window */
scrolled_window = gtk_scrolled_window_new (NULL, NULL);
gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (scrolled_window),
GTK_POLICY_NEVER,
GTK_POLICY_AUTOMATIC);
gtk_container_add (GTK_CONTAINER (box), scrolled_window);
gtk_widget_show (scrolled_window);
/* viewport */
viewport = gtk_viewport_new (
gtk_scrolled_window_get_hadjustment (GTK_SCROLLED_WINDOW (scrolled_window)),
gtk_scrolled_window_get_vadjustment (GTK_SCROLLED_WINDOW (scrolled_window)));
gtk_viewport_set_shadow_type (GTK_VIEWPORT (viewport), GTK_SHADOW_NONE);
gtk_container_add (GTK_CONTAINER (scrolled_window), viewport);
gtk_widget_show (viewport);
/* main vbox */ /* main vbox */
vbox = gtk_box_new (GTK_ORIENTATION_VERTICAL, 2 * content_spacing); vbox = gtk_box_new (GTK_ORIENTATION_VERTICAL, 2 * content_spacing);
gtk_container_add (GTK_CONTAINER (box), vbox); gtk_container_add (GTK_CONTAINER (viewport), vbox);
gtk_widget_show (vbox); gtk_widget_show (vbox);
/* construct the groups */ /* construct the groups */