perl-win32-gui-users

[perl-win32-gui-users] problems with combobox

[<ma...@mm...>]

hi. ive' got a combox in a settings window that displays dun entries. i've
done it like this

sub Settings_Click {
    &settings
}

sub settings {
    $Window2 = new GUI::Window(
                      -name   => "Window2",
                      -text   => "Settings",
                      -width  => 250,
                      -height => 150,
                      );
    $dunlist = $Window2->AddCombobox(
                         -name => "Dun",
                         -left => 10,
                         -top => 10,
                         -width => 230,
                         -height => 100,
                         -style => WS_VISIBLE | 2 | WS_NOTIFY,
                         );

    @dunentries = Win32::RASE->RasEnumEntries();
    $dunlist->InsertItem(@dunentries);
    $Window2->Show();
    $Window2->Dialog();
}

problem is when i click on the comboxbox it will only list 1 entry (there
are 2) and both $Window and $Window2 will freeze. what am i doing wrong?
also is there a way to stop a window from being resized? is there a way to
open a window maximized. i tried using $Window->Maximize and it would
maximize and then go back to its original size or minimize completely if i
took out -height and -width. and (i think this is the last one) is it
possible to make the widgets sticky like in tk?

thanx

Re: [perl-win32-gui-users] problems with combobox

[Aldo C. <dad...@al...>]

ma...@mm... wrote:
> problem is when i click on the comboxbox it will only list 1 entry (there
> are 2)

InsertItem() can insert only one item at a time. use this instead:

  $dunlist->Add(@dunentries);

> and both $Window and $Window2 will freeze. what am i doing wrong?

you should not call $Window2->Dialog(), because it will intercept messages
from $Window2 *only*. Comboboxes fire their own messages, so you need a
Dialog() call that intercepts everything:

  Win32::GUI::Dialog();

> also is there a way to stop a window from being resized?

use -resizable => 0 when building the window.

> is there a way to open a window maximized.

call $Window2->Show(3); # 3 == SW_SHOWMAXIMIZED

> and (i think this is the last one) is it possible to make the widgets
sticky
> like in tk?

dunno what it means...


cheers,
Aldo

__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;