Tree plotting: retain the chosen plot mode when tree is changed

We were previously switching back to length mode, leaving the menu out of synch.
shawnlaffan · Jan 9, 2024 · 0ca0409 · 0ca0409
1 parent 11f4772
commit 0ca0409
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/lib/Biodiverse/GUI/Tabs/Labels.pm b/lib/Biodiverse/GUI/Tabs/Labels.pm
@@ -799,7 +799,7 @@ sub on_selected_phylogeny_changed {
         $self->set_phylogeny_options_sensitive(1);
     }
     else {
-        $self->{dendrogram}->set_cluster(undef, 'length');
+        $self->{dendrogram}->set_cluster(undef, $self->{plot_mode} //= 'length');
         $self->set_phylogeny_options_sensitive(0);
         my $str = '<i>No selected tree</i>';
         $self->get_xmlpage_object('label_VL_tree')->set_markup($str);

diff --git a/lib/Biodiverse/GUI/Tabs/Spatial.pm b/lib/Biodiverse/GUI/Tabs/Spatial.pm
@@ -1126,11 +1126,11 @@ sub on_selected_phylogeny_changed {
         $self->{dendrogram}->clear;
     }
     if ($phylogeny) {
-        $self->{dendrogram}->set_cluster($phylogeny, 'length');  #  now storing tree objects directly
+        $self->{dendrogram}->set_cluster($phylogeny, $self->{plot_mode} //= 'length');  #  now storing tree objects directly
         $self->set_phylogeny_options_sensitive(1);
     }
     else {
-        $self->{dendrogram}->set_cluster(undef, 'length');
+        $self->{dendrogram}->set_cluster(undef, $self->{plot_mode} //= 'length');
         $self->set_phylogeny_options_sensitive(0);
         my $str = '<i>No selected tree</i>';
         $self->get_xmlpage_object('spatial_label_VL_tree')->set_markup($str);