One thing I noticed wrong is that you do not name your event subroutine
correctly. You Listbox is named StatusText so your Click event should
be named as such (i.e. StatusText_Click). I have attached a script that
uses a Listbox so you can see how to set up a listbox. I noticed you
do not setup any vertical scroll control. You may or may not need one.
The attached code codes for that in case the listbox contains more data
than is able to show on the screen. A vertical scroll control is better than
expecting your users to use pageup and pagedown, etc.
Eric
-----Original Message-----
From: [EMAIL PROTECTED] [SMTP:[EMAIL PROTECTED]]
Sent: Tuesday, July 27, 1999 6:22 AM
To: [EMAIL PROTECTED]
Subject: [perl-win32-gui] problem with list box
Hello all,
I am using Win32-GUI and have a listbox in my form. I am having trouble with
the Click Event of the listbox. It appears that it's not working correctly.
That is, no actions are being performed when I click in the listbox. Is
this still a bug or has it been fixed? Also, is there a workaround for this?
I'm attaching my script. Please email me if you have any questions.
Thanks in advance,
Felice
use Win32::GUI;
$Main1 = new Win32::GUI::Window(
-name => "MainWindow",
-left => 100,
-top => 100,
-width => 300,
-height => 200,
-text => ('Please provide the following information', 2),
-style => WS_BORDER | WS_CAPTION,
);
$Main1->AddLabel(
-name => "StatusLabel",
-left => 10,
-top => 50,
-width => 100,
-height => 22,
-text => "Status:"
);
$Main1->AddListbox(
-name => "StatusText",
-left => 100,
-top => 50,
-width => 100,
-height => 80
);
$Main1->AddButton(
-name => "Enter",
-left => 90,
-top => 140,
-width => 100,
-text => "Enter"
);
$Main1->Show;
&FillListBox();
Win32::GUI::Dialog();
sub Status_Click {();-name
print "Entered Status_Click\n";
}
sub Enter_Click {
return -1;
}
begin 600 DBGrid.pl
M#0HC($YA;64Z(" @(" @("!D8F=R:60N<&P-"B,@4'5R<&]S93H@(" @($1A
M=&%B87-E(&=R:60@87!P;&EC871I;VX@*%!E<FP@5VEN,S(Z.D]$0D,L1U5)
M*0T*(R!!=71H;W(Z(" @(" @17)I8R!(86YS96XL(" @0V]P>7)I9VAT(#$Y
M.3DL($EN9F]R;6%T:6]N#0HC(" @(" @(" @(" @("!496-H;F]L;V=Y(%-E
M<G9I8V5S+"!);F,N($1A;&QA<RP@5%@-"B,@0V]N=&%C=#H@(" @(&5R:6-H
M86YS96Y :71S:2UC;W)P+F-O;0T*(R!$97-C<FEP=&EO;CH@57-E<B!I<R!D
M:7-P;&%Y960@82!L:7-T(&]F(&%V86EL86)L92!/1$)##0HC(" @(" @(" @
M(" @("!$871A4V]U<F-E3F%M97,N(%1H92!U<V5R(&1O=6)L92!C;&EC:W,@
M82!$4TX-"B,@(" @(" @(" @(" @(&%N9"!T:&5N(&ES(&1I<W!L87EE9"!A
M(&QI<W0@;V8@879A:6QA8FQE('1A8FQE<RX-"B,@(" @(" @(" @(" @(%1H
M92!U<V5R('1H96X@9&]U8FQE(&-L:6-K<R!A('1A8FQE;F%M92P@869T97)W
M:&EC: T*(R @(" @(" @(" @(" @82!L:7-T=FEE=R!I<R!L;V%D960@=VET
M:"!A;&P@<F5C;W)D<R!F<F]M('1H870-"B,@(" @(" @(" @(" @('1A8FQE
M+B!4:&4@=7-E<B!C86X@=&AE;B!B<F]W<V4@=&AE(')O=W,@86YD(&-O;'5M
M;G,-"B,@(" @(" @(" @(" @(&9R;VT@=&AA="!D871A8F%S92!T86)L92X@
M3F\@<F]W<R!A<F4@=7!D871E9"X@5&AI<PT*(R @(" @(" @(" @(" @:7,@
M82!D:7-P;&%Y(&]N;'D@9&%T86)A<V4@:6YT97)F86-E+B @1G5T=7)E#0HC
M(" @(" @(" @(" @("!R96QE87-E<R!M87D@<')O=FED92!S96QE8W1I=F4@
M9&%T82!E>'!O<G0@9F5A='5R97,-"B,@(" @(" @(" @(" @("AI+F4N('-E
M;&5C=&5D(')O=W,L('-E;&5C=&5D(&-O;'5M;G,I+"!A;F0@<V]R=&EN9RX-
M"B -"G5S92!7:6XS,CHZ1U5).PT*=7-E(%=I;C,R.CI/1$)#.PT*#0HC($AI
M9&4@=&AE($1O<R!7:6YD;W<-"B@D1$]3:'=N9"P@)$1/4VAI;G-T86YC92D@
M/2!'54DZ.D=E=%!E<FQ7:6YD;W<H*3L-"D=523HZ2&ED92@D1$]3:'=N9"D[
M#0H-"B,M+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM(PT*(R @("!7:6YD;W<@
M0V]N=')O;',-"B,M+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM(PT*)%<@/2!N
M97<@1U5).CI7:6YD;W<H#0H@(" @+6YA;64@/3X@(E=I;F1O=R(L#0H@(" @
M+71E>'0@/3X@(F1B9W)I9"YP;" M($1A=&%B87-E($=R:60@07!P;&EC871I
M;VX@*%=I;C,R.CI/1$)#+%=I;C,R.CI'54DI(BP-"B @(" M=VED=&@@/3X@
M-3$P+ T*(" @("UH96EG:'0@/3X@,S$P+ T*(" @("UL969T(#T^(#$P,"P-
M"B @(" M=&]P(#T^(#$P,"P-"BD[#0H-"B1&;VYT(#T@;F5W($=523HZ1F]N
M="@-"B @(" M;F%M92 ]/B B5&%H;VUA(BP-"B @(" M<VEZ92 ]/B X+ T*
M(" @("UW96EG:'0@/3X@-S P+ T*(" @("UH96EG:'0@/3X@+3$Q+ T**3L-
M"@T*)$Q6(#T@;F5W($=523HZ3&ES=%9I97<H)%<L#0H@(" @(" @(" M;F%M
M92 ]/B B3&ES=%9I97<B+ T*(" @(" @(" @+69O;G0@/3X@)$9O;G0L#0H@
M(" @(" @(" M;&5F=" ]/B Q,"P-"B @(" @(" @("UT;W @/3X@,3 L#0H@
M(" @(" @(" M=VED=&@@/3X@-#DP+" -"B @(" @(" @("UH96EG:'0@/3X@
M,CDP+ T**3L-"B1,5BT^5&5X=$-O;&]R*&AE>"@B,# P,$9&(BDI.R C(')E
M9 T*)$Q6+3Y6:65W*#$I.R @(R!D971A:6QE9"!L:7-T:6YG#0HD3%8M/DAI
M9&4[#0H-"B1,0B ](&YE=R!'54DZ.DQI<W1B;W@H)%<L#0H@(" @(" @(" M
M;F%M92 ]/B B3&ES=$)O>"(L#0H@(" @(" @(" M9F]N=" ]/B D1F]N="P-
M"B @(" @(" @("US='EL92 ]/B!74U]#2$E,1"!\(%=37U9)4TE"3$4@?"!7
M4U]64T-23TQ,('P@,2P-"B @(" @(" @("UL969T(#T^(#$P+ T*(" @(" @
M(" @+71O<" @/3X@,3 L( T*(" @(" @(" @+69O<F5G<F]U;F0@/3X@,'@P
M,# P1D8L(",@<F5D#0H@(" @(" @(" M:&5I9VAT(#T^(#0Y,"P@(" @#0H@
M(" @(" @(" M=VED=&@@/3X@(#(Y,"P-"BD[#0H-"B13=&%T=7,@/2!N97<@
M1U5).CI3=&%T=7-"87(H)%<L#0H@(" @(" @("UT97AT(#T^("(@(BP-"B @
M(" @(" @+69O;G0@/3X@)$9O;G0L#0H@(" @(" @("UW:61T:" ]/B D5RT^
M4V-A;&57:61T:"P-"BD[#0H-"B10<F]G<F5S<R ](&YE=R!'54DZ.E!R;V=R
M97-S0F%R*"13=&%T=7,L#0H@(" @+7-M;V]T:" ]/B P+" @(" @(R P/6)R
M;VME;B!B87(L(#$]<VUO;W1H(&)A<@T*(" @("UW:61T:" @/3X@)%-T871U
M<RT^5VED=&@O,BP-"B @(" M:&5I9VAT(#T^("13=&%T=7,M/DAE:6=H="TS
M+ T*(" @("UL969T(" @/3X@)%-T871U<RT^5VED=&@O,BP@#0H@(" @+71O
M<" @(" ]/B R+ T**3L-"B10<F]G<F5S<RT^2&ED93L-"@T*(RTM+2TM+2TM
M+2TM+2TM+2TM+2TM+2TM+2TM+2TC#0HC(" @(" @5VEN9&]W($1I86QO9PT*
M(RTM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TC#0HD5RT^4VAO=SL-"DQO
M861?1%-.<[EMAIL PROTECTED]*1U5).CI$:6%L;V<[#0H-"B,M+2TM+2TM+2TM+2TM+2TM
M+2TM+2TM+2TM+2TM(PT*(R @($YO;BU%=F5N="!3=6)R;W5T:6YE<PT*(RTM
M+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TC#0I%3D0@>PT*(" @(&EF("@D
M9&(I('LD9&(M/D-L;W-E*"D[?0T*(" @($=523HZ4VAO=R@D1$]3:'=N9"D[
M#0I]#0H-"G-U8B!,;V%D7T133G,@>PT*(" @("1$4TYM;V1E/3$[( T*(" @
M(&EF("@E1%-.3&ES=#U/1$)#.CI$871A4V]U<F-E<R@I*2![#0H@(" @(" @
M9F]R96%C:" D3F%M92 H:V5Y<R@E1%-.3&ES="DI('L-"B @(" @(" @(" D
M3$(M/D%D9%-T<FEN9R@D3F%M92D[( T*(" @(" @('T-"B @(" @(" D4W1A
M='5S+3Y497AT*")$;W5B;&4@0VQI8VL@82!$871A4V]U<F-E3F%M92!F<F]M
M('1H92!,:7-T(&%B;W9E(BD[#0H@(" @(" @)%-T871U<RT^57!D871E.R -
M"B @("!](&5L<V4@>PT*(" @(" @($=523HZ365S<V%G94)O>"@D5RPB0V%N
M)W0@1&5T97)M:6YE($%V86EL86)L92!$4TXG<R(L(D5R<F]R(BPQ-BPI.PT*
M(" @(" @($=523HZ365S<V%G94)O>"@D5RPB4VAU='1I;F<@1&]W;B!T:&4@
M07!P;&EC871I;VXB+")3=&%T=7,B+#8T+"D[#0H@(" @(" @97AI=#L@#0H@
M(" @?0T*?0T*#0IS=6(@3&]A9%]40DQS('L-"B @("1,0BT^4F5S970H*3L@
M#0H@(" D9&(@/2!N97<@3T1"0R@D1%-.*3L-"B @(&EF("@A("1D8BD@>PT*
M(" @(" @1U5).CI-97-S86=E0F]X*"17+")#86XG="!%<W1A8FQI<V@@1&%T
M86)A<V4@0V]N;F5C=&EO;B!T;R!$4TX@)R1$4TXG(BP-"B @(" @(" @(D5R
M<F]R(BPQ-BPI.PT*(" @(" @1U5).CI-97-S86=E0F]X*"17+")3:'5T=&EN
M9R!$;W=N('1H92!!<'!L:6-A=&EO;B(L(E-T871U<R(L-C0L*3L-"B @(" @
M(&5X:70[(" -"B @('T@#0H@("! 5&%B;&5S/21D8BT^5&%B;&5,:7-T*"D[
M#0H@(" D;&%S='1B;#TD(U1A8FQE<SL-"B @(&9O<B@D:3TP.R1I/#TD;&%S
M='1B;#LD:2LK*2![#0H@(" @(" @)$Q"+3Y!9&13=')I;F<H)%1A8FQE<ULD
M:5TI.PT*(" @?0T*(" @)%-T871U<RT^5&5X="@B1&]U8FQE($-L:6-K(&$@
M5&%B;&5.86UE(&9R;VT@=&AE($QI<W0@86)O=F4B*3L-"B @("13=&%T=7,M
M/E5P9&%T93L-"GT-"@T*<W5B($QO861?3&ES=%9I97<@>PT*(" @)%-T871U
M<RT^5&5X="@B3&]A9&EN9R!$871A8F%S92!'<FED+BXN(BD[#0H@(" D4W1A
M='5S+3Y5<&1A=&4[#0H@(" C+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM
M+2TM+2TM+2TM+2TM+2TM+2,-"B @(",@($=E="!A(')O=R!C;W5N="!F;W(@
M<')O9W)E<W,@8F%R(&1I<W!L87D-"B @(",M+2TM+2TM+2TM+2TM+2TM+2TM
M+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM(PT*(" @(R1R970@/2 D9&(M/E-Q
M;"@B4T5,14-4($-/54Y4*"HI($%3(&-N=%]O9E]R;W=S($923TT@)%1A8FQE
M(BD[#0H@(" C:68@*"1R970I('L-"B @(",@(" D97)R;W(])&1B+3Y%<G)O
M<[EMAIL PROTECTED] @(R!D871A8F%S92!E<G)O<B!M<V<-"B @(",@("!'54DZ.DUE<W-A
M9V5";W@H)%<L)&5R<F]R+")%<G)O<B(L,38L*3L-"B @(",@("!'54DZ.DUE
M<W-A9V5";W@H)%<L(E-H=71T:6YG($1O=VX@=&AE($%P<&QI8V%T:6]N(BPB
M4W1A='5S(BPV-"PI.PT*(" @(R @(&5X:70[(" -"B @("-](" -"B @(",D
M9&(M/D9E=&-H4F]W*"D[( T*(" @(R1D8F-N=" ]("1D8BT^1&%T82@B8VYT
M7V]F7W)O=W,B*3L-"B @( T*(" @(RTM+2TM+2TM+2TM+2TM+2TM+2TM+2TM
M+2TM+2TM+2TM+2TM(PT*(" @(R!,;V%D($QI<W1V:65W(&9R;VT@=&AE($1A
M=&%B87-E#0H@(" C+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM
M+2TC#0H@(" D9&(M/E-Q;"@B<V5T(')O=V-O=6YT(#$P,"(I.R C+2T@;VYL
M>2!G:79E(&UE(#$P,"!R;W=S#0H@(" D<W%L='AT(#T@(E-%3$5#5" G("<L
M("H@1E)/32 D5&%B;&4B.PT*(" @)')E=" ]("1D8BT^4W%L*"1S<6QT>'0I
M.PT*(" @:68@*"1R970I('L-"B @(" @("1E<G)O<CTD9&(M/D5R<F]R*"D[
M(" C(&1A=&%B87-E(&5R<F]R(&US9PT*(" @(" @1U5).CI-97-S86=E0F]X
M*"17+"1E<G)O<BPB17)R;W(B+#$V+"D[#0H@(" @("!'54DZ.DUE<W-A9V5"
M;W@H)%<L(E-H=71T:6YG($1O=VX@=&AE($%P<&QI8V%T:6]N(BPB4W1A='5S
M(BPV-"PI.PT*(" @(" @97AI=#L@#0H@("!]( T*(" @(R1D8BT^4W%L*")S
M970@<F]W8V]U;G0@,"(I.PT*(" @)$Q6+3Y);G-E<G1#;VQU;6XH+6EN9&5X
M(#T^(# L+7=I9'1H(#T^(#4P+" M=&5X=" ]/B B4F]W(R(I.PT*(" @0$-O
M;',@/2 D9&(M/D9I96QD3F%M97,H*3L-"B @("1L87-T8V]L/20C0V]L<SL-
M"B @(&9O<B@D:3TQ.R1I/#TD;&%S=&-O;#LD:2LK*2![#0H@(" @(" D8V]L
M=6UN86UE/21#;VQS6R1I73L-"B @(" @("1,5BT^26YS97)T0V]L=6UN*"UI
M;F1E>" ]/B D:2PM=VED=&@@/3X@,3 P+" M=&5X=" ]/B D8V]L=6UN86UE
M*3L-"B @('T-"B @("1I=&5M8VYT/3 [#0H@(" D<F]W8VYT/3$[#0H@(" D
M4')O9W)E<W,M/E-H;W<[#0H@(" D9&)C;G0],3 P.PT*(" @=VAI;&4@*"1D
M8BT^1F5T8VA2;W<H*2D@>PT*(" @(" D<&]S/2@D<F]W8VYT*C$P,"DO)&1B
M8VYT.R -"B @(" @)%!R;V=R97-S+3Y39710;W,H)'!O<RD[#0H@(" @("10
M<F]G<F5S<RT^57!D871E.PT*(" @(" D3%8M/DEN<V5R=$ET96TH+6ET96T@
M/3X@)&ET96UC;G0L("UT97AT(#T^("1R;W=C;G0I.PT*(" @("! 1&%T83TH
M*3L@(",@8VQE87(@=&AE(&1A=&$@87)R87D-"B @(" @0$1A=&$@/2 D9&(M
M/D1A=&$H*3L-"B @(" @)&QA<W1F;&0])"-$871A.PT*(" @(" D<W5B:71E
M;6-N=#TQ.PT*(" @("!F;W(H)&D],3LD:3P])&QA<W1F;&0[)&DK*RD@>PT*
M(" @(" @(" D9FEE;&1V86QU93TD1&%T85LD:5T[#0H@(" @(" @("1,5BT^
M4V5T271E;2@M:71E;2 ]/B D:71E;6-N="PM<W5B:71E;2 ]/B D<W5B:71E
M;6-N="PM=&5X=" ]/B -"B1F:65L9'9A;'5E*3L@(" -"B @(" @(" @)'-U
M8FET96UC;G0K*SL-"B @(" @?0T*(" @(" D<F]W8VYT*RL[#0H@(" @("1I
M=&5M8VYT*RL[#0H@("!]#0H@(" D9&(M/D-L;W-E*"D[#0H@(" D4')O9W)E
M<W,M/DAI9&4[#0H@(" D3%8M/E-H;W<[#0H@(" D4W1A='5S+3Y497AT*")$
M871A4V]U<F-E3F%M93TD1%-.+"!486)L94YA;64])%1A8FQE(BD[#0H@(" D
M4W1A='5S+3Y5<&1A=&4[#0I]#0H-"B,M+2TM+2TM+2TM+2TM+2TM+2TM+2TM
M+2TM+2TM(PT*(R @(" @(%=I;F1O=R!%=F5N=',-"B,M+2TM+2TM+2TM+2TM
M+2TM+2TM+2TM+2TM+2TM(PT*<W5B(%=I;F1O=U]497)M:6YA=&4@>PT*("!I
M9B H)&1B*2![)&1B+3Y#;&][EMAIL PROTECTED]@#0H@($=523HZ4VAO=R@D1$]3:'=N
M9"D[#0H@(&5X:70[#0I]#0H-"G-U8B!7:6YD;W=?4F5S:7IE('L-"B @)$Q6
M+3Y297-I>F4H)%<M/E-C86QE5VED=&@M,C L*"17+3Y38V%L94AE:6=H="TR
M,"DM)%-T871U<RT^2&5I9VAT*3L-"B @)$Q"+3Y297-I>F4H)%<M/E-C86QE
M5VED=&@M,C L*"17+3Y38V%L94AE:6=H="TQ-2DM)%-T871U<RT^2&5I9VAT
M*3L-"B @)%-T871U<RT^4F5S:7IE*"17+3Y38V%L95=I9'1H+"17+3Y38V%L
M94AE:6=H="D[#0H@("10<F]G<F5S<RT^4F5S:7IE*"13=&%T=7,M/E=I9'1H
M+S(L)%-T871U<RT^2&5I9VAT+3,I.PT*(" D4')O9W)E<W,M/DUO=F4H)%-T
M871U<RT^5VED=&@O,BPR*3L-"GT-"@T*<W5B($QI<W1";WA?1&)L0VQI8VL@
M>PT*(" D<V5L(#T@)$Q"+3Y396QE8W1E9$ET96TH*3L@(",@<V5L(&ES('IE
M<F\@8F%S960@:6YD97@-"B @:68H)'-E;" ^/2 P*2![#0H@(" @("1I=&5M
M(#T@)$Q"+3Y'9713=')I;F<H)'-E;"D[#0H@(" @(&EF("@D1%-.;6]D92D@
M>PT*(" @(" @("!U;F1E9B D1%-.;6]D93L-"B @(" @(" @)$133CTD:71E
M;3L-"B @(" @(" @3&]A9%]40DQS*"D[#0H@(" @('T@96QS92
