-my $hasthemeblacklist = 1;
-open BLACKLIST, "<$blacklistfile.$themename" or $hasthemeblacklist = 0;
-if ($hasthemeblacklist) {
- while(<BLACKLIST>) {
- s/#.*//;
- next unless my ($name) = /([-\w]+)\s*/;
- $blacklist{$name} = 1;
- $themeblacklist{$name} = 1;
- }
- close BLACKLIST;
-} else {
- print "Info: No theme specific blacklist found...\n";
-}
-
-# We now grep the source for things like SmallIcon("fubar") and generate size and name from that
-print "Grepping $source for requested icons...\n";
-my @results = `grep -r QIcon::fromTheme\\(\\" $source`;
+# We now grep the source for icon::get() to find required icons
+print "Grepping $srcdir for required icons...\n";
+my @results = `grep -r icon::get $srcdir`;