Re: [perl-win32-gui-users] Tabstrips

[christopher s. <chr...@ya...>]

I found this sub in the old win32 GUI archive thought it might be useful


sub Tab_Click {

    my $current_tab = $W->Tab->SelectedItem();

    foreach $key (keys %{$W->Tab}) {
       # Skip these items - what remains should be just widgets.
       next if (grep(/^${key}$/,qw(-handle -name -type)));

       $ref = $W->Tab->{$key};

       if ($debug) {
          print "key: $key"," value: ",$W->Tab->{$key},"\n";
          print "  -name: ",$ref->{-name},"\n";
          print "  -text: ",$ref->{-text},"\n";
       }

       # Strip off number from end of -name - use as tabid.
       # A better way would be to define something like "-tabid => .."
       # But this does not carry over after the widget is defined.

       $tabid = substr($ref->{-name},-1);
       if ($current_tab == $tabid) {
          $ref->Show();
       }
       else {
          $ref->Hide();
       }
    }
}


Hope that helps

chris
www.perl-resume.com


----- Original Message -----
From: <tho...@ba...>
To: <per...@li...>
Sent: Wednesday, January 31, 2001 9:12 PM
Subject: [perl-win32-gui-users] Tabstrips


Hello,

might be a silly question but anyway: How can I remove all Elements from a
Window in case a different Tab on a Tabstrip is
clicked and different Elements should be displayed on the Window
accordingly?
Or can I define separate "Panels" with
different Elements for each Tab?

mit freundlichen Grüßen/with best regards
Thomas Emde
nnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnn
nnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnn

BAYER AG
IS-CT DPN
D-51386 Leverkusen
Fon: +49 (0) 214/30-81513
Fax: +49 (0) 214/30-31737
E-Mail: tho...@ba...

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


_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com