perl-win32-gui-users

[perl-win32-gui-users] combobox making me crazy

[Peter E. <Pet...@at...>]

Hi all,

This is making me nuts. I have a combobox dropdown that shows on my window
but it does not show the data when I click on it. I copied this same exact
code into the comboxbox.pl sample and it works. Aaaaaaaarrgggghhhh!

Any help would be greatly appreciated. I'll just bang my head on the wall
'til then...

-Pete

#################################################################

my @months = ('',Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec);

my $fromMonth = $Window->AddCombobox( 
	-name   => "fromMonth",
	-left   => 65, 
	-top    => 440,
	-width  => 60, 
	-height => 150,
	-style  => WS_VISIBLE | 2 # | WS_NOTIFY,
);

foreach (@months)
{
	$fromMonth->InsertItem("$_");
}

sub fromMonth_Change 
{
	my $selection=$fromMonth->SelectedItem();
	my $fromMonthSelection=$months[$selection];
	print "fromMonthSelection=$fromMonthSelection $selection\n";
	return 0;
}

Re: [perl-win32-gui-users] combobox making me crazy

[Erick J. B. <er...@e-...>]

I know when I would forget a comma in the options, I would not get the proper
output. Try either uncommenting the WS_NOTIFY or adding a comma after the 2.

| my @months = ('',Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec);
|
| my $fromMonth = $Window->AddCombobox(
| -name   => "fromMonth",
| -left   => 65,
| -top    => 440,
| -width  => 60,
| -height => 150,
| -style  => WS_VISIBLE | 2 # | WS_NOTIFY,
| );
|

erick
never stop questioning
www.jeb.ca