1Mwm(3) User Contributed Perl Documentation Mwm(3)
2
3
4
6 Tk::Mwm - Communicate with the Motif(tm) window manager.
7
9 use Tk::Mwm;
10
11 $toplevel->mwmOption?(args)?
12
13 $toplevel->mwm(option ?,args?)
14
16 Interface to special extentions supported by mwm.
17
19 $toplevel->mwmDecoration?(?option??=>value? ?,...?)?
20 When no options are given, this method returns the values of all
21 the decorations options for the toplevel window with the $toplevel.
22 When only one option is given without specifying the value, the
23 current value of that option is returned. When more than one
24 "option-value" pairs are passed to this method, the specified val‐
25 ues will be assigned to the corresponding options. As a result, the
26 appearance of the Motif decorations around the toplevel window will
27 be changed. Possible options are: -border, -menu, -maximize, -min‐
28 imize, -resizeh and -title. The value must be a Boolean value. The
29 values returned by this command are undefined when the window is
30 not managed by mwm.
31
32 $toplevel->mwmIsmwmrunning
33 This returns value is true if mwm is running on the screen where
34 the specified window is located, false otherwise.
35
36 $toplevel->mwmProtocol
37 When no additional options are given, this method returns all pro‐
38 tocols associated with this toplevel window.
39
40 $toplevel->mwmProtocol(activate => protocol_name)
41 Activate the mwm protocol message in mwm's menu.
42
43 $toplevel->MwmProtocol(add => protocol_name, menu_message)
44 Add a new mwm protocol message for this toplevel window. The mes‐
45 sage is identified by the string name specified in protocol_name.
46 A menu item will be added into mwm's menu as specified by menu_mes‐
47 sage. Once a new mwm protocol message is added to a toplevel, it
48 can be caught by the TK protocol method. Here is an example:
49
50 $toplevel->mwmProtocol('add' => 'MY_PRINT_HELLO', '"Print Hello"
51 _H Ctrl<Key>H');
52
53 $toplevel->protocol('MY_PRINT_HELLO' => sub {print "Hello"});
54
55 $toplevel->mwmProtocol('deactivate' => protocol_name)
56 Deactivate the mwm protocol message in mwm's menu.
57
58 $toplevel->mwmProtocol('delete' => protocol_name)
59 Delete the mwm protocol message from mwm's menu. Please note that
60 the window manager protocol handler associated with this protocol
61 (by the protocol method) is not deleted automatically. You have to
62 delete the protocol handle explicitly. E.g.:
63
64 $mw->mwmProtocol('delete' => 'MY_PRINT_HELLO');
65
66 $mw->protocol('MY_PRINT_HELLO' => '');
67
69 This is a Tix extension which perl/Tk has adopted. It has not been
70 tested as perl/Tk's author has not got round to installing a Motif Win‐
71 dow Manager.
72
73 On some versions of mwm, the -border will not disappear unless -resizeh
74 is turned off. Also, the -title will not disappear unless all of
75 -title, -menu, -maximize and -minimize are turned off.
76
78 Tk::Wm Tk::tixWm Tk::Toplevel
79
81 window manager, mwm, TIX
82
84 Ioi Kim Lam - ioi@graphics.cis.upenn.edu
85
86
87
88perl v5.8.8 2008-02-05 Mwm(3)