From 1bb4c748b5844ac8fbc069d13b17d53b1406bd13 Mon Sep 17 00:00:00 2001
From: Shawn Laffan <shawnlaffan@gmail.com>
Date: Sun, 1 Nov 2020 11:59:48 +1100
Subject: [PATCH] Gtk3::Table->new calls: provide third arg

Defaulted to 0, so each case might yet need to be changed.

Updates #770
---
 lib/Biodiverse/GUI/BasedataImport.pm  | 6 +++---
 lib/Biodiverse/GUI/GUIManager.pm      | 2 +-
 lib/Biodiverse/GUI/MatrixImport.pm    | 2 +-
 lib/Biodiverse/GUI/PhylogenyImport.pm | 2 +-
 lib/Biodiverse/GUI/SpatialParams.pm   | 2 +-
 lib/Biodiverse/GUI/Tabs/Spatial.pm    | 2 +-
 6 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/lib/Biodiverse/GUI/BasedataImport.pm b/lib/Biodiverse/GUI/BasedataImport.pm
index 8feeddd46..ea1966a46 100644
--- a/lib/Biodiverse/GUI/BasedataImport.pm
+++ b/lib/Biodiverse/GUI/BasedataImport.pm
@@ -1147,7 +1147,7 @@ sub show_expl_dialog {
 
     my $text_wrapper = Text::Wrapper->new( columns => 90 );
 
-    my $table = Gtk3::Table->new( 1 + scalar keys %$expl_hash, 2 );
+    my $table = Gtk3::Table->new( 1 + scalar keys %$expl_hash, 2, 0 );
     $table->set_row_spacings(5);
     $table->set_col_spacings(5);
 
@@ -1588,7 +1588,7 @@ sub make_columns_dialog {
     $dlg->vbox->pack_start( $label, 0, 0, 0 );
 
     # Make table
-    my $table = Gtk3::Table->new( $num_columns + 1, 8 );
+    my $table = Gtk3::Table->new( $num_columns + 1, 8, 0 );
     $table->set_row_spacings(5);
     $table->set_col_spacings(20);
 
@@ -1982,7 +1982,7 @@ sub make_remap_columns_dialog {
     $dlg->vbox->pack_start( $label, 0, 0, 0 );
 
     # Make table
-    my $table = Gtk3::Table->new( $num_columns + 1, 8 );
+    my $table = Gtk3::Table->new( $num_columns + 1, 8, 0 );
     $table->set_row_spacings(5);
     $table->set_col_spacings(20);
 
diff --git a/lib/Biodiverse/GUI/GUIManager.pm b/lib/Biodiverse/GUI/GUIManager.pm
index 0d9038f31..13c2c6d8d 100644
--- a/lib/Biodiverse/GUI/GUIManager.pm
+++ b/lib/Biodiverse/GUI/GUIManager.pm
@@ -1091,7 +1091,7 @@ sub show_describe_dialog {
     my $table_widget;
     if (is_ref($description)) {
         my $row_count = scalar @$description;
-        my $table = Gtk3::Table->new( $row_count, 2 );
+        my $table = Gtk3::Table->new( $row_count, 2, 0 );
 
         my $i = 0;
         foreach my $row (@$description) {
diff --git a/lib/Biodiverse/GUI/MatrixImport.pm b/lib/Biodiverse/GUI/MatrixImport.pm
index daf35b015..c5d79e46c 100644
--- a/lib/Biodiverse/GUI/MatrixImport.pm
+++ b/lib/Biodiverse/GUI/MatrixImport.pm
@@ -259,7 +259,7 @@ sub make_columns_dialog_normal {
     $dlg->vbox->pack_start( $label, 0, 0, 0 );
 
     # Make table
-    my $table = Gtk3::Table->new( 4, $num_columns + 1 );
+    my $table = Gtk3::Table->new( 4, $num_columns + 1, 0 );
     $table->set_row_spacings(5);
 
     #$table->set_col_spacings(20);
diff --git a/lib/Biodiverse/GUI/PhylogenyImport.pm b/lib/Biodiverse/GUI/PhylogenyImport.pm
index a5579128d..9b02af074 100644
--- a/lib/Biodiverse/GUI/PhylogenyImport.pm
+++ b/lib/Biodiverse/GUI/PhylogenyImport.pm
@@ -411,7 +411,7 @@ sub make_columns_dialog {
     $dlg->vbox->pack_start( $label, 0, 0, 0 );
 
     # make table
-    my $table = Gtk3::Table->new( 4, $num_columns + 1 );
+    my $table = Gtk3::Table->new( 4, $num_columns + 1, 0 );
     $table->set_row_spacings(5);
 
     #$table->set_col_spacings(20);
diff --git a/lib/Biodiverse/GUI/SpatialParams.pm b/lib/Biodiverse/GUI/SpatialParams.pm
index 0805c2b1c..c81f85796 100644
--- a/lib/Biodiverse/GUI/SpatialParams.pm
+++ b/lib/Biodiverse/GUI/SpatialParams.pm
@@ -256,7 +256,7 @@ sub run_options_dialogue {
     }
     
 
-    my $table = Gtk3::Table->new(2, 2);
+    my $table = Gtk3::Table->new(2, 2, 0);
     $table->set_row_spacings(5);
     $table->set_col_spacings(20);
 
diff --git a/lib/Biodiverse/GUI/Tabs/Spatial.pm b/lib/Biodiverse/GUI/Tabs/Spatial.pm
index 9248a3259..8af6e8e76 100644
--- a/lib/Biodiverse/GUI/Tabs/Spatial.pm
+++ b/lib/Biodiverse/GUI/Tabs/Spatial.pm
@@ -2193,7 +2193,7 @@ sub run_options_dialogue {
     }
 
 
-    my $table = Gtk3::Table->new(2, 2);
+    my $table = Gtk3::Table->new(2, 2, 0);
     $table->set_row_spacings(5);
     $table->set_col_spacings(20);