Hi
I created some Label and Button using the following:
$frames{$ticket}{'main'} = $TOP->Frame(
-width => 250,
-height => 60,
-borderwidth => 2,
-relief => 'sunken',
-background => "#FFFFFF",
)->pack(-side=>'top', -fill=>'x', -pady=>1);
$frames{$ticket}{Label } = $frames{$ticket}{'main'}->Label ( -font =>
['Verdana',8,'normal'], -relief => 'raise', -text => $name, -bg => $color,
-activebackground => $color, );
$frames{$ticket}{Close } = $frames{$ticket}{'main'}->Button( -font =>
['Verdana',8,'normal'], -relief => 'raise', -text => 'Close', -
command => sub{ } );
My question is:
How do i remove the label and button?
Do I simply do undef $frames{$ticket}{Label}?
I tried $frames{$ticket}{Label}->delete and it wont work.
Dan
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
