Figured it out..
in case anyone was wondering...
sub OnSetNodeDialog {
# Construct the DialogBox
my $setNode = $mw->DialogBox( -title=>"Set Node Dialog", -default_button
=> "Cancel", -buttons=>["OK", "Cancel"] );
# Now we need to add a Label widget so we can show some text
$setNode->add('Label', -anchor => 'w', -justify => 'left', -text =>
qq(Choose Node to search on.\n\tCurrent Node = $nodesrch ))->pack;
$setNode->Label(-text => 'Search on Node')->pack;
my $org_value = $nodesrch;
my $rb2_value = $nodesrch;
my $answer2 = "";
my $rb2_valueA = node-ex';
my $rb2_valueB = 'edwdev';
# my $rb2_value = node-ex';
$setNode->Radiobutton(-text => node-ex', -value => "node-ex"
, -variable => \$rb2_value, -command => sub {OnSetNode("node-ex"); })->pack;
$setNode->Radiobutton(-text => 'edwdev', -value => "edwdev", -variable
=> \$rb2_value, -command => sub {OnSetNode( "edwdev"); } )->pack;
$answer2 = $setNode->Show();
if ($answer2 eq 'OK') {
# ... nothing to do, accept the change...
} else {
# ... revert back to previous value ...
$nodesrch = $org_value;
}
}
<[EMAIL PROTECTED]> wrote in message
news:[EMAIL PROTECTED]
> Hello all..
> the radiobuttons execute the code in the command whether I select OK or
> Cancel.. How can I execute on ok only?
>
> I have the following code:
> sub OnPowerSearchDialog {
> # Construct the DialogBox
> my $setpwrsrch = $mw->DialogBox( -title=>"Set Node
> Dialog", -buttons=>["OK", "Cancel"] );
> $setpwrsrch->add('Label', -anchor => 'w', -justify => 'left', -text =>
> qq(Choose Node to search on.\n\tCurrent Node = $pwrsrch ))->pack;
> $setpwrsrch->Label(-text => 'Search on Node')->pack;
> my $rb3_value = $pwrsrch ;
> $setpwrsrch->Radiobutton(-text => 'NO', -value => "NO" , -variable
=>
> \$rb3_value, -command => sub {OnPowerSearch("NO"); })->pack;
> $setpwrsrch->Radiobutton(-text => 'YES', -value => "YES", -variable
=>
> \$rb3_value, -command => sub {OnPowerSearch("YES"); } )->pack;
> $setpwrsrch->Show();
> }
>
> sub OnPowerSearch {
> # set the power search variable
> $pwrsrch = $_[0] ;
> }
>
>
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
