Tk:WM $toplevel->protocol

This is a multi-part message in MIME format.
--------------010201060307010708080206
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit

The following works well for making the Windows WM Close button result
in a sub call instead of killing a Tk application:
(example) $mw->protocol('WM_DELETE_WINDOW', sub{ $mw->withdraw; });

My question is can I do the same for the MINIMIZE button? I can't seem
to find a protocol name that works. Does one exist or can I acheive
this another way?

--------------010201060307010708080206
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
</head>
<body bgcolor="#ffffff" text="#000000">
The following works well
for making the Windows WM Close button result in a sub call instead of
killing a Tk application: 
(example) $mw->protocol('WM_DELETE_WINDOW', sub{ $mw->withdraw;
}); 
 
My question is can I do the same for the MINIMIZE button?  I can't seem
to find a protocol name that works.  Does one exist or can I acheive
this another way? 

</body>
</html>

--------------010201060307010708080206--
-++**==--++**==--++**==--++**==--++**==--++**==--++**==
This message was posted through the Stanford campus mailing list
server. If you wish to unsubscribe from this mailing list, send the
message body of "unsubscribe ptk" to majordomo@lists.stanford.edu

On Mon, 13 Feb 2006 23:04:20 +0000 (UTC), listmail
<listmail@triad.rr.com> wrote:

>This is a multi-part message in MIME format.
>--------------010201060307010708080206
>Content-Type: text/plain; charset=ISO-8859-1; format=flowed
>Content-Transfer-Encoding: 7bit
>
>The following works well for making the Windows WM Close button result
>in a sub call instead of killing a Tk application:
>(example) $mw->protocol('WM_DELETE_WINDOW', sub{ $mw->withdraw; });
>
>My question is can I do the same for the MINIMIZE button? I can't seem
>to find a protocol name that works. Does one exist or can I acheive
>this another way?

Hi, it would be better if you posted plain text to this list. Many
people ignore html here if it is hard to read.

I don't think there is a corresponding protocol for minimize.
The best you can do is catch the event, by binding "<Unmap>"

#!/usr/bin/perl
use warnings;
use strict;
use Tk;

my $mw = new MainWindow;
$mw->title("Minimize test");
$mw->geometry("400x250");
$mw->bind("<Unmap>",sub{ print "unmap event\n" });
MainLoop;

__END__

--
I'm not really a human, but I play one on earth.
http://zentara.net/japh.html

Tk:WM $toplevel->protocol - Perl

Tk:WM $toplevel->protocol

LinkBack

Thread Tools

Tk:WM $toplevel->protocol

Re: Tk:WM $toplevel->protocol

Similar Threads

Looping at toplevel?

toplevel in a container

TopLevel window management

$mw->TopLevel Fail ??

Toplevel Groups