Initial commit of OpenSPARC T2 design and verification files.

[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / site_perl / 5.8.0 / sun4-solaris / auto / Tk / Frame / freeze_on_map.al

# NOTE: Derived from blib/lib/Tk/Frame.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package Tk::Frame;

#line 211 "blib/lib/Tk/Frame.pm (autosplit into blib/lib/auto/Tk/Frame/freeze_on_map.al)"
sub freeze_on_map
{
my ($w) = @_;
unless ($w->Tk::bind('Freeze','<Map>'))
 {
  $w->Tk::bind('Freeze','<Map>',['packPropagate' => 0])
 }
$w->AddBindTag('Freeze');
}

# end of Tk::Frame::freeze_on_map
1;