Hello perl-win32-gui-users,

  I have a small window with many checkboxes. I need to ask every
  checkbox, so I:
  for(0..((keys %PLZ) - 1)){
      if($Window->(sort keys %PLZ)[$_]->Checked == 1){
      print $PLZ{(sort keys %PLZ)[$_]}." is checked\n";
  }

  this dont works, the error: "Not a CODE reference at ..."

  perldiag say to me: "(W overload) The second (fourth, sixth, ...)
  argument of overload::constant needs to be a code reference.
  Either an anonymous subroutine, or a reference to a subroutine."
  
  so I write workaround:

  for(0..((keys %PLZ) - 1)){
       $Ch = (sort keys %PLZ)[$_];
       if($ModalWindow->$Ch->Checked == 1){
       print $PLZ{(sort keys %PLZ)[$_]}." is checked\n";
  }

  can somebody tell me how can I do this without using intermediate
  variable ($Ch) ??
-- 
Best regards,
Pavel                         mailto:[EMAIL PROTECTED]


Reply via email to