---
name: "Tk::Mwm"
section: "3pm"
platform: "linux"
package: "perl-tk"
version: "804.036-9"
release: "Arch Linux 2026-11-01"
platforms: ["linux"]
url: "https://new.carta.tech/Tk::Mwm"
---

# Tk::Mwm(3pm)

Communicate with the Motif(tm) window manager.

## NAME

Tk::Mwm - Communicate with the Motif(tm) window manager.

## SYNOPSIS

    **use Tk::Mwm;**

    *$toplevel*-\>**mwm***Option*?(*args*)?

    *$toplevel*-\>**mwm**(*option* ?,*args*?)

## DESCRIPTION

Interface to special extentions supported by mwm.

## METHODS

- *$toplevel*-\>**mwmDecoration**?(?option??=\>value? ?,...?)?

  When no options are given, this method returns the values of all the decorations options for the toplevel window with the *$toplevel*. When only one option is given without specifying the value, the current value of that option is returned. When more than one "option-value" pairs are passed to this method, the specified values will be assigned to the corresponding options. As a result, the appearance of the Motif decorations around the toplevel window will be changed. Possible options are: **-border**, **-menu**, **-maximize**, **-minimize**, **-resizeh** and **-title**. The value must be a Boolean value. The values returned by this command are undefined when the window is not managed by mwm.

- *$toplevel*-\>**mwmIsmwmrunning**

  This returns value is true if mwm is running on the screen where the specified window is located, false otherwise.

- *$toplevel*-\>**mwmProtocol**

  When no additional options are given, this method returns all protocols associated with this toplevel window.

- *$toplevel*-\>**mwmProtocol**(**activate** =\> *protocol\_name*)

  Activate the mwm protocol message in mwm's menu.

- *$toplevel*-\>**MwmProtocol**(**add** =\> *protocol\_name*, *menu\_message*)

  Add a new mwm protocol message for this toplevel window. The message is identified by the string name specified in *protocol\_name*.  A menu item will be added into mwm's menu as specified by *menu\_message*.  Once a new mwm protocol message is added to a toplevel, it can be caught by the TK **protocol** method. Here is an example:

      *$toplevel*-\>**mwmProtocol**(**'add'** =\> 'MY\_PRINT\_HELLO', '"Print Hello"  \_H Ctrl\<Key\>H');

      *$toplevel*-\>**protocol**(**'MY\_PRINT\_HELLO'** =\> sub {print "Hello"});

- *$toplevel*-\>**mwmProtocol**(**'deactivate'** =\> *protocol\_name*)

  Deactivate the mwm protocol message in mwm's menu.

- *$toplevel*-\>**mwmProtocol**(**'delete'** =\> *protocol\_name*)

  Delete the mwm protocol message from mwm's menu. Please note that the window manager protocol handler associated with this protocol (by the **protocol** method) is not deleted automatically. You have to delete the protocol handle explicitly.  E.g.:

      *$mw*-\>**mwmProtocol**(**'delete'** =\> 'MY\_PRINT\_HELLO');

      *$mw*-\>**protocol**(**'MY\_PRINT\_HELLO'** =\> '');

## BUGS

This is a Tix extension which perl/Tk has adopted. It has not been tested as perl/Tk's author has not got round to installing a Motif Window Manager.

On some versions of mwm, the **-border** will not disappear unless **-resizeh** is turned off. Also, the **-title** will not disappear unless all of **-title**, **-menu**, **-maximize** and **-minimize** are turned off.

## SEE ALSO

Tk::Wm Tk::tixWm Tk::Toplevel

## KEYWORDS

window manager, mwm, TIX

## AUTHOR

Ioi Kim Lam - ioi@graphics.cis.upenn.edu