Skip Menu |

This queue is for tickets about the Tk CPAN distribution.

Report information
The Basics
Id: 69632
Status: open
Priority: 0/
Queue: Tk

People
Owner: Nobody in particular
Requestors: user42 [...] zip.com.au
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



Subject: Tk::Mwm mwmDecorations() doc typo
Date: Thu, 21 Jul 2011 10:09:37 +1000
To: bug-Tk [...] rt.cpan.org
From: Kevin Ryde <user42 [...] zip.com.au>
The pod of Tk::Mwm 804.029 shows $toplevel->mwmDecoration but is the method actually the plural mwmDecorations? Not sure if I'm using it correctly. I tried a call expecting _MOTIF_WM_HINTS property set, but it didn't seem to do anything.
On 2011-07-20 20:09:52, user42@zip.com.au wrote: Show quoted text
> The pod of Tk::Mwm 804.029 shows > > $toplevel->mwmDecoration > > but is the method actually the plural mwmDecorations?
Yes, this should be fixed in the documentation. Show quoted text
> Not sure if I'm using it correctly. I tried a call expecting > _MOTIF_WM_HINTS property set, but it didn't seem to do anything.
There's some output when trying it under fvwm2: $ perl -MTk -MTk::Mwm -e 'warn tkinit->mwmDecorations' -border 1-resizeh 1-title 1-menu 1-minimize 1-maximize 1 at -e line 1. Regards, Slaven
Subject: Re: [rt.cpan.org #69632] Tk::Mwm mwmDecorations() doc typo
Date: Tue, 25 Oct 2011 07:54:40 +1100
To: bug-Tk [...] rt.cpan.org
From: Kevin Ryde <user42 [...] zip.com.au>
"Slaven_Rezic via RT" <bug-Tk@rt.cpan.org> writes: Show quoted text
> > $ perl -MTk -MTk::Mwm -e 'warn tkinit->mwmDecorations' > -border 1-resizeh 1-title 1-menu 1-minimize 1-maximize 1 at -e line 1.
Hmm, yes, but setting decorations seems to have no effect. Experimenting with the bit of nonsense below suggests $mw->mwmDecorations (-maximize => 0); sets _MOTIF_WM_HINTS not on the toplevel window, but on a child which is the $mw->id. There's a secret toplevel client window is there? I see the toplevel gets WM_NORMAL_HINTS and bits and pieces successfully, but the _MOTIF_WM_HINTS is down one window and so isn't seen -- assuming still that I'm calling it correctly.
use strict; use Tk; use Tk::Mwm; my $mw = MainWindow->new; $mw->mwmDecorations (-maximize => 0); $mw->update; my $id = $mw->id; print "mw id is $id\n"; print "xprop $id gives:\n"; system "xprop -id $id"; print "\n"; print "xwininfo $id gives:\n"; system "xwininfo -tree -id $id"; my $xwininfo = `xwininfo -tree -id $id`; $xwininfo =~ /Parent window id: (0x[0-9a-f]+)/ or die; my $parent_id = $1; print "parent_id is $parent_id\n"; print "\n"; print "xprop parent_id $parent_id gives:\n"; system "xprop -id $parent_id"; print "\n";