/usr/local/CPAN/Win32-CtrlGUI/Win32/CtrlGUI/Criteria/neg.pm

• package Win32::CtrlGUI::Criteria::neg
  • new
  • is_recognized
• EOF

###########################################################################
# Copyright 2000, 2001 Toby Everett.  All rights reserved.
#
# This file is distributed under the Artistic License. See
# http://www.ActiveState.com/corporate/artistic_license.htm or
# the license that comes with your perl distribution.
#
# For comments, questions, bugs or general interest, feel free to
# contact Toby Everett at teverett@alascom.att.com
##########################################################################
use Win32::CtrlGUI;
use Win32::CtrlGUI::Criteria;

use strict;

package Win32::CtrlGUI::Criteria::neg;
use vars qw($VERSION @ISA);

@ISA = 'Win32::CtrlGUI::Criteria';

$VERSION='0.30';

sub new {
  my $class = shift;

  my $self = {
    criteria => $_[0],
    childcriteria => $_[1]
  };

  bless $self, $class;
  return $self;
}

sub is_recognized {
  my $self = shift;

  return scalar(Win32::CtrlGUI::get_windows($self->{criteria}, $self->{childcriteria}, 1)) ? 0 : 1;
}

1;