#!/usr/bin/perl

foreach my $file (@ARGV)
  {
  print "*** $file ***\n";
  open GET, "<$file" or die "Unable to read file\n";
  while (<GET>)
    {
    if (/get_data.*\"(\w+)\"/) 
      {
      my $widget = $1;
      my $result = 0;

      open SET, "<$file" or die "Unable to read file\n";
      while (<SET>)
        {
        if (/set_data.*\"$widget\"/)
          {
          $result = 1;
          break;
          }
        }
      if ($result == 0)
        {
        print "$widget: not found\n";
        }
      close SET;
      }
    }
  close GET;
  }
