/usr/local/CPAN/Win32-CtrlGUI/Win32/CtrlGUI/State/dialog.pm

• package Win32::CtrlGUI::State::dialog
  • _new
• 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 strict;

package Win32::CtrlGUI::State::dialog;
use vars qw($VERSION @ISA);

@ISA = ('Win32::CtrlGUI::State');

$VERSION='0.30';

my $dialog_name = 'dialog001';

sub _new {
  my $class = shift;
  my %data = @_;

  $data{criteria}->[0] ne 'neg' or die "Dialogs can't have negative criteria.\n";

  $data{name} ||= $dialog_name++;

  my(@base_action_keys) = grep(!/^cnfm_/, keys %data);
  my(@cnfm_action_keys) = grep(/^cnfm_/, keys %data);

  my $pos_atom = Win32::CtrlGUI::State->new('atom', map {$_ => $data{$_}} @base_action_keys);

  my $neg_atom = Win32::CtrlGUI::State->new('atom',
      criteria => [neg => \$data{name}], action_delay => 0);

  if (scalar(@cnfm_action_keys)) {
    my $cnfm_atom = Win32::CtrlGUI::State->new('atom', map {substr($_, 5) => $data{$_}} @cnfm_action_keys);
    return Win32::CtrlGUI::State->new('seq', $pos_atom, ['seq_opt', $cnfm_atom, $neg_atom]);
  } else {
    return Win32::CtrlGUI::State->new('seq', $pos_atom, $neg_atom);
  }
}

1;