Commits

Herbert Breunung committed 3f9bae0

added font checker routine

Comments (0)

Files changed (1)

lib/Kephra/App/Util.pm

 sub is_panel  { 1 if blessed($_[0]) and $_[0]->isa('Wx::Panel') }
 sub is_sizer  { 1 if blessed($_[0]) and $_[0]->isa('Wx::Sizer') }
 sub is_color  { 1 if blessed($_[0]) and $_[0]->isa('Wx::Colour') and $_[0]->IsOk }
+sub is_font   { 1 if blessed($_[0]) and $_[0]->isa('Wx::Font') and $_[0]->IsOk }
 
 sub create_color {
 	my ($r, $g, $b, $t ) = @_;