Figured it out. What I did to get this to work is loop checking for one of two flags. The DoEvents method coupled with a while loop checks for both outcomes, albeit not concurrently. I had to put a short sleep timer in the loop or the click would not register. I've also removed the onMouseMove params from the buttons because the mouse clicks were not registering with them on their.

So here's what I changed to get this to work: 
use Time::HiRes qw(usleep); #added 

use vars qw/$cc_number $exp_dt/; #add these two

my $input1 = ''; #added these here so I 
my $input2 = ''; #could use them in subs
my $swiped = 0;
my $clicked = 0;

# ...
#old code matched in this section
# ...

$event_field->Append("Please swipe card... ");

$window->Show();
$window->DoEvents();

while ($swiped != 1 && $clicked != 1) {
    $swiped = check_swipe();
    usleep(750000);
    $window->DoEvents();
}

if ($swiped == 1) {
    $event_field->Append("swiped\n");
}

sleep 1;

$event_field->Append("Connecting... ");

sub check_swipe {

    $input1 = $card_input->GetLine(0);
    $input2 = $card_input->GetLine(1);
    
    if ($card_input->GetLine(1) !~ /\?$/) {
        $card_input->SetFocus();
        $input1 = $card_input->GetLine(0);
        $input2 = $card_input->GetLine(1);
        $window->DoEvents();
    }
    
    if ($input1 =~ /^\%B(\d{16})/i) {
        $cc_number = $1;
    }
 
    if ($input2 =~ /\=(\d{2})(\d{2})(.*)/) {
        $exp_dt = $2 . $1;
        return 1;
    }
    return 0;
}

sub manual_dial_Click {
  
    $card_number_label->Show();
    $clicked = 1;
}

[download]

In reply to Re^2: Win32 GUI Input or Event by perldiverx
in thread Win32 GUI Input or Event by perldiverx

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.