From 65e2dad646cada8681f8d79924324a87cfd48e6e Mon Sep 17 00:00:00 2001
From: Dmitry Karasik <dmitry@karasik.eu.org>
Date: Sat, 23 Nov 2024 18:26:44 +0100
Subject: [PATCH] add Prima.Font.colored

---
 Prima/Classes.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/Prima/Classes.pm b/Prima/Classes.pm
index 6060545c..d5d05d59 100644
--- a/Prima/Classes.pm
+++ b/Prima/Classes.pm
@@ -388,6 +388,8 @@ sub set
 	$o-> $w( \%pr);
 }
 
+sub colored { $_[0]->{OWNER}->is_font_colored }
+
 for ( qw( size name width height direction style pitch encoding vector)) {
 	eval <<GENPROC;
    sub $_