From 5d7bd374ee7f233db50f01797ce669bba9cc68db Mon Sep 17 00:00:00 2001
From: Ed J <mohawk2@users.noreply.github.com>
Date: Mon, 5 Aug 2024 05:21:07 +0100
Subject: [PATCH] Prima more sensible title font size

---
 lib/PDL/Graphics/Simple/Prima.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lib/PDL/Graphics/Simple/Prima.pm b/lib/PDL/Graphics/Simple/Prima.pm
index 0678f76..fda8f44 100644
--- a/lib/PDL/Graphics/Simple/Prima.pm
+++ b/lib/PDL/Graphics/Simple/Prima.pm
@@ -439,16 +439,18 @@ sub plot {
 					   rely      => 1.0 - (1 + int($pno / $me->{multi}->[0]))/$me->{multi}->[1],
 					   relheight => 1.0/$me->{multi}->[1],
 					   anchor    => 'sw'});
+	    $plot->titleFont(size => 12);
+
 	    $me->{next_plotno}++;
 	} else {
 	    # No multiplot - just instantiate a plot (and destroy any widgets from earlier)
-	    map { $_->destroy } @{$me->{widgets}};
+	    $_->destroy for @{$me->{widgets}};
 	    $me->{widgets} = [];
 	    $plot = $me->{obj}->insert('Plot',
 				       pack=>{fill=>'both',expand=>1}
 		);
+	    $plot->titleFont(size => 14);
 	}
-
     }
 
     push(@{$me->{widgets}}, $plot);