fix gridColor spilling over normal color

dk · Nov 17, 2024 · 581b4bb · 581b4bb
1 parent 4eae92a
commit 581b4bb
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/Prima/Grids.pm b/Prima/Grids.pm
@@ -1412,8 +1412,12 @@ sub on_paint
 		$$_[4] = $a[3] if $$_[4] > $a[3];
 	}
 
-	$canvas-> color( $self-> {gridColor});
-	$canvas-> lines( \@grid) if @grid;
+	if ( @grid ) {
+		my $c = $canvas->color;
+		$canvas-> color( $self-> {gridColor});
+		$canvas-> lines( \@grid);
+		$canvas-> color( $c );
+	}
 
 	$self-> draw_cells( $canvas, \@colsDraw, \@rowsDraw, \@a);
 }