RE: [perl-win32-gui-users] use of Pos method

[Moore, L. <Lar...@tf...>]

Bingo!  I changed my subs to:

 sub geo_codes_Click {
        $sel = $geo_codes->SelectedItem();
        if ($sel != -1 ) {$updown2->Pos($sel);}
 }

(lifted from sample code I must confess) and happiness returns.

Larry

-----Original Message-----
From: Glenn Linderman [mailto:Gle...@ne...]
Sent: Friday, March 09, 2001 11:50 AM
To: per...@li...
Subject: Re: [perl-win32-gui-users] use of Pos method


"Moore, Larry" wrote:

> ->Select() doesn't work, I tried it, because $updown1 and $updown2 are
> UpDown objects and Pos is the method for this object.  If I comment out
the
> two lines which set the Pos, then the program dies immediately.

I suspect this latter death is caused by the lack of an appropriate return
value.  Event subs return -1/0/1 to result in death/no action/default action
respectively.

When you comment out Pos, the return value is $sel, which is -1 if nothing
is
selected....

I haven't played with UpDown yet, I'm interested to watch future responses
in
this thread.

>
>
> Larry
>
> -----Original Message-----
> From: Peter Eisengrein [mailto:Pet...@at...]
> Sent: Thursday, March 08, 2001 2:34 PM
> To: 'per...@li...'
> Subject: RE: [perl-win32-gui-users] use of Pos method
>
> Do you want ->Pos() or ->Select()? I suspect you probably want the latter.
>
> -----Original Message-----
> From: Moore, Larry [mailto:Lar...@tf...]
> Sent: Thursday, March 08, 2001 1:49 PM
> To: 'per...@li...'
> Subject: [perl-win32-gui-users] use of Pos method
>
> I have two listboxes each as the Buddy to an UpDown object.
>
> I want to synchronize the selected item for the two listboxes.
>
> I use two click event subroutines to allow selection in the list, as well
as
> two scroll events.  I get an error message saying that the Pos method is
not
> available in my click subs, but after responding ok to these two messages,
> one for each sub, my code seems to perform as I expect.  What am I doing
> wrong?  Here is the code:
>
> sub ud1_Scroll {
>         geo_codes_Click();
> }
>
> sub ud2_Scroll {
>         geo_names_Click();
> }
>
> sub geo_codes_Click {
>         $sel = $geo_codes->SelectedItem();
>         $updown2->Pos($sel);
> }
>
> sub geo_names_Click {
>         $sel = $geo_names->SelectedItem();
>         $updown1->Pos($sel);
> }
>
> Tks,
> Larry
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

--
Glenn
=====
Even if you're on the right track,
you'll get run over if you just sit there.
                       -- Will Rogers



_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users