# NOTE: Derived from blib/lib/Tk/Wm.pm.
# Changes made here will be lost when autosplit is run again.
#line 130 "blib/lib/Tk/Wm.pm (autosplit into blib/lib/auto/Tk/Wm/FullScreen.al)"
my $over = (@_) ? shift : 0;
my $width = $w->screenwidth;
my $height = $w->screenheight;
$w->GeometryRequest($width,$height);
$w->overrideredirect($over & 1);
$w->GeometryRequest($width,$height);
# end of Tk::Wm::FullScreen