Commit | Line | Data |
---|---|---|
86530b38 AT |
1 | package Tk::Mwm; |
2 | ||
3 | use vars qw($VERSION); | |
4 | $VERSION = '3.012'; # $Id: //depot/Tk8/Mwm/Mwm.pm#12 $ | |
5 | ||
6 | use Tk qw($XS_VERSION); | |
7 | require DynaLoader; | |
8 | ||
9 | use vars qw($VERSION); | |
10 | $VERSION = '3.012'; # $Id: //depot/Tk8/Mwm/Mwm.pm#12 $ | |
11 | ||
12 | use base qw(DynaLoader); | |
13 | ||
14 | bootstrap Tk::Mwm; | |
15 | ||
16 | package Tk; | |
17 | use Tk::Submethods ( 'mwm' => [qw(decorations ismwmrunning protocol transientfor)] ); | |
18 | package Tk::Mwm; | |
19 | ||
20 | 1; | |
21 |