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: <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
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: [EMAIL PROTECTED]
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com
