1package Tk::Mwm; 2 3use vars qw($VERSION); 4$VERSION = '4.004'; # $Id: //depot/Tkutf8/Mwm/Mwm.pm#4 $ 5 6use Tk qw($XS_VERSION); 7require DynaLoader; 8 9use base qw(DynaLoader); 10 11bootstrap Tk::Mwm; 12 13package Tk; 14use Tk::Submethods ( 'mwm' => [qw(decorations ismwmrunning protocol transientfor)] ); 15package Tk::Mwm; 16 171; 18 19