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