RE: [perl-win32-gui-users] Hierarchical controls

[Glenn W Munroe]

I reworked my example using a child window instead of a group (as an
attachment to preserve formatting). I got exactly the same symptoms (no
tabbing to the child controls and no visual indication of a disabled child
control). I thought I had it when I discovered this:

"WS_EX_CONTROLPARENT   Allows the user to navigate among the child windows
of the window by using the TAB key."

But that didn't work :-(

Anybody else have any ideas? Could it be simply a question of getting the
right combination of -group and -tabstop options? I can't help feeling
there's something deeper going wrong.

Glenn

-----Original Message-----
From: Jeremy White [mailto:[EMAIL PROTECTED] 
Sent: Tuesday, 17 January, 2006 12:07
To: [EMAIL PROTECTED]; perl-win32-gui-users@lists.sourceforge.net
Subject: RE: [perl-win32-gui-users] Hierarchical controls

I use:

  $mainContainer = new Win32::GUI::Window(
        -name => 'Container',
        -width  => 800,
        -height => 500,
        -pos => [0, 310],
        -parent => $mainwin,
        -popstyle    => Win32::GUI::WS_CAPTION | Win32::GUI::WS_SIZEBOX,
        -pushstyle   => Win32::GUI::WS_CHILD | Win32::GUI::WS_CLIPCHILDREN,
        -class => $WC,
        -onResize => \&ContainerResize,
  );

If you add a class of:

  $WC = new Win32::GUI::Class(
    -name => "flicker",
    -style => 0,
  );

Then you'll get flicker free resizing when the child window is resized. Not 
sure about tabbing...

Cheers,

jez.

HierarchicalWindow.pl
Description: Binary data