478 |
} |
} |
479 |
|
|
480 |
my $path = icon_exists( $class ); |
my $path = icon_exists( $class ); |
481 |
|
if ( ! $path ) { |
482 |
while ( $class =~ s{::[^:]+$}{} && ! $path ) { |
my $super_class = $class; |
483 |
$path = icon_exists( $class ) unless $class eq 'Frey'; # don't default on Frey icon |
while ( $super_class =~ s{::[^:]+$}{} && ! $path ) { |
484 |
|
$path = icon_exists( $super_class ) unless $super_class eq 'Frey'; # don't default on Frey icon |
485 |
|
} |
486 |
} |
} |
487 |
|
|
488 |
if ( -e $path ) { |
if ( ! $path ) { |
489 |
warn "# $class from $self icon_path $path" if $self->debug; |
$self->TODO( "add icon for $class" . ( $variant ? " variant $variant" : '' ) ); |
|
return $path; |
|
|
} else { |
|
|
$self->TODO( "add $path icon for $class $variant" ); |
|
490 |
return undef; |
return undef; |
491 |
} |
} |
492 |
|
|
493 |
|
warn "# $class from $self icon_path $path" if $self->debug; |
494 |
|
return $path; |
495 |
} |
} |
496 |
|
|
497 |
sub add_icon { |
sub add_icon { |